- ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:ACCESS VBA 条件付き処理)
ACCESS VBA 条件付き処理
このQ&Aのポイント
- 仕訳伝票の入力フォームにおいて、借方科目IDをメインフォームの借方規定値で初期化する条件付き処理の方法
- 借方金額のテキストボックスからフォーカスを外した時、以下の条件に基づいて借方科目IDを設定する処理を行う
- 借方科目IDが0の場合、借方科目IDにメインフォームの借方規定値を設定する。借方科目IDがNullの場合、借方科目IDにメインフォームの借方規定値を設定する。借方科目IDに常にメインフォームの借方規定値を設定する。
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
Private Sub 借方金額_Exit(Cancel As Integer) If Nz(借方科目ID)=0 Then 借方科目ID = Me.Parent!借方 End If End Sub Is Nullと0値が対象ならNz関数(フィールドがNullの時に代替値として扱う)が便利です。 Nz([フィールド],代替値) 代替値を省略時は0になります。 ただ現行で(1)(2)が効かないというのなら借方科目IDに何がセットされているのか確認したほうがいいでしょうね。 Private Sub 借方金額_Exit(Cancel As Integer) MsgBox 借方科目ID End Sub で借方科目IDの内容を表示させて対応を考えたほうがよさそうです。
お礼
ご回答有難うございます。 解決しました。 「MsgBox 借方科目ID」により問題点を見つけることが出来ました。 テーブルを定義する時に規定値を「1」としていました。