お世話になります。
仕訳伝票の入力フォームを
日付、伝票No.、目的のテキストボックスと目的テーブルにある、借方規定値、貸方規定値のテキストボックスをメインフォームとし
借方金額、貸方金額のテキストボックス、借方科目ID、貸方科目IDのコンボボックスをサブフォームに配置しました。
サブフォームで新規レコードの借方科目IDにメインフォームの借方規定値をコピーするために次のようにコーディングしました。
尚借方科目IDはテーブル定義でフィールドサイズ:長整数型 規定値：0にしています
命令文の右端の(1)(2)(3)で説明します。
(1)または(2)が有効であればよいのですが
(1)(2)はきいていないようで、(3)は有効です
Private Sub 借方金額_Exit(Cancel As Integer)
If 借方科目ID = 0 Then
借方科目ID = Me.Parent!借方 '…(1)
End If
If IsNull(借方科目ID) Then
借方科目ID = Me.Parent!借方 '…(2)
End If
借方科目ID = Me.Parent!借方 '…(3)
End Sub
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」により問題点を見つけることが出来ました。 テーブルを定義する時に規定値を「１」としていました。