| 2022/10/31(Mon) 23:27:57 編集(投稿者)
> 表形式編集 更新 = 許可, 許可作業 = *, 画面消去 = する, 終了状態 = &error > > このように書いてみたのですが、開くことは開くのですが、桐ウィンドウの×をクリックすると、 > 「一括処理の実行を中止します」のウィンドウが出てしまいます。
私はWindowsバージョンの桐は桐ver.8から使用しています。
そのために一括処理は一切使わずに[フォーム+イベント処理]でアプリケーションを作っています。
添付ファイルのサンプルでは、「一括処理の実行を中止します」のウィンドウは現れません。
だって、一括処理を実行していないのですから「当たり前田のクラッカー」です。古っ!!
サンプルを実行するには、test.wfxを開いてください。
その時に
"test.kex の12行め[メッセージボックス]コマンドを実行しています" "このデバッグのためのメッセージは最終的に不要なので削除してください"
というメッセージボックスが表示されます。
これは念のためにフォームの動作を理解出来るように用意したものなので不要ですから、コメントアウトしてください。
なお、フォームの属性の[開始時実行コマンド]ボタンにコマンドボタン:cmdStartupを指定してありますので、必ずご留意ください。 ・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
[開始時実行コマンド]ボタンに関しては以下の拙作webページを参考にしてください。
こちら ↓ 18 フォームの自動処理 フォームは、編集開始時に表の状態を整えたり、編集を開始する前に指定した処理を自動実行する機能を備えています。 また、フォームを閉じたときに自動実行させる処理を指定することもできます。 http://silicon7565.html.xdomain.jp/guide/guide_Part1.htm#section18
◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇
■test.wfx
フォーム ├ ファミリ │ ├ ワークスペース │ └ cmdStartup ← 重要!!:[開始時実行コマンド]ボタンに指定しています │ ・・・・・・・・・・・・・・・・・・・・・・・・・・・ ├ フォームヘッダ部 │ ├ フォーム明細部 │ ├ cmd閉じる │ └ cmd表を開く │ └ フォームフッタ部
オブジェクト名: cmdStartup 標題 : cmdStartup:このボタンは[開始時実行コマンド]ボタン
機能名 機能パラメータリスト 1 表示 2 手続き実行 cmd表を開くClick 3 閉じる 4 なし
オブジェクト名: cmd表を開く 標題 : 表を開く
機能名 機能パラメータリスト 1 表示 2 手続き実行 cmd表を開くClick 3 なし 4 なし
オブジェクト名: cmd閉じる 標題 : 閉じる(&X)
機能名 機能パラメータリスト 1 表示 2 閉じる 3 なし 4 なし
■test.kex
名札 メイン
*
手続き定義開始 cmd表を開くClick( ) 変数宣言 自動 文字列{ &title = "cmd表を開くClick( )", &msg } 変数宣言 自動 文字列{ &tblName } 変数宣言 自動 整数 { &hdl } 変数宣言 自動 整数 { &error, &hndl }
&msg = "test.kex の12行め[メッセージボックス]コマンドを実行しています" &msg = &msg + "\n\nこのデバッグのためのメッセージは最終的に不要なので削除してください" メッセージボックス &title, &msg, アイコン = !, ボタン指定 = 1, 制御文字展開 = する
**表 "\\server\data\data\2022名簿.tbx",モード = 共有更新,リトライ = する, 終了状態 = &error
&tblName = #一括パス名 + "test.tbx" 表 &tblName,モード = 共有更新, リトライ = する, 終了状態 = &error
┌if ( &error = 1 ) │ │ ウィンドウ作成 表, ハンドル = &hdl, オプション = 最大化 │ ├else │ │┌ケース開始 │├─ケース( &error = 0 ) ││ &msg = "共有違反以外です\n\n共有違反以外で表を開けないエラーが出ています。(エラーコード0)" ││ │├─ケース( &error = -1 ) ││ &msg = "他の誰かが専有モードで表を開いているため、開けません。(エラーコード-1)" ││ │├─ケース( &error = -2 ) ││ &msg = "共有更新違反です\n\n他の作業者が置換、併合等により処理を実行中です。\n\nしばらく時間を置いてから、開いて下さい。(エラーコード-2)" ││ │└ケース終了 │ │ メッセージボックス &title, &msg, アイコン = E, ボタン指定 = 1, 制御文字展開 = する └end
手続き定義終了
p.s.
添付ファイルは数日を目途に削除しますのでお早めにダウンロード願います。
|