• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:ACCESS VBA 条件付き処理)

ACCESS VBA 条件付き処理

このQ&Aのポイント
  • 仕訳伝票の入力フォームにおいて、借方科目IDをメインフォームの借方規定値で初期化する条件付き処理の方法
  • 借方金額のテキストボックスからフォーカスを外した時、以下の条件に基づいて借方科目IDを設定する処理を行う
  • 借方科目IDが0の場合、借方科目IDにメインフォームの借方規定値を設定する。借方科目IDがNullの場合、借方科目IDにメインフォームの借方規定値を設定する。借方科目IDに常にメインフォームの借方規定値を設定する。

質問者が選んだベストアンサー

  • ベストアンサー
  • mshr1962
  • ベストアンサー率39% (7417/18945)
回答No.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の内容を表示させて対応を考えたほうがよさそうです。

shinkami
質問者

お礼

ご回答有難うございます。 解決しました。 「MsgBox 借方科目ID」により問題点を見つけることが出来ました。 テーブルを定義する時に規定値を「1」としていました。

関連するQ&A

専門家に質問してみよう