Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

869 / 9994

←次へ　｜　前へ→


	【12432】更新クエリの実行タイミングについて

すぬ - 13/12/4(水) 14:15 -


	引用なし

	パスワード

こんにちは。
質問です。

部品管理をするデータベースを作成し、職場内で使っています。

参照フォームで編集したいデータを選び、「編集」ボタンを押したら編集フォームが開くようにしています。

このとき、他のユーザーがこのデータを編集できないようにそのレコードにフラグを立て(チェックON)、ガードするようにしています。

編集フォームを閉じる時(Form_Unload)、更新クエリでフラグを下げる(チェックOFF)するようにVBAコードを書いたのですが、うまくいく時、いかない時があります。

この原因がわからなくて解決に至らず、困っています。

知ってみえる方がいましたら教えてください。
よろしくお願いします。

参考までに、作ったVBAコードを載せます。

Private Sub Form_Unload(Cancel As Integer)

On Error GoTo Err_LABEL

　　DoCmd.SetWarnings False
　　
　　If PartsHensyu = True Then　　　　　　　　　　　　　'フラグがONの時
　　　　DoCmd.OpenQuery "Q_更新_T_Parts(Off4)"　　　　
　　End If

Exit_LABEL:
Exit Sub

Err_LABEL:
MsgBox ("予期せぬエラーが発生しました！(エラーNo." & Err.Number & ")" & vbCr & vbCr & "登録を終了します。")
Resume Exit_LABEL

End Sub

275 hits

▼

【12432】更新クエリの実行タイミングについて すぬ 13/12/4(水) 14:15