【問題発生】
恐れ入ります・・・・
なぜか突然動作不良になってしまいました・・・。
「取引先コード」の更新後処理とフォームのレコード移動時両方に以下のコードがある状態で、「受注明細」が入力できない状態になります。
Private Sub Form_Current()
If Nz(Me.取引先コード.Value) = "" Then
Me.受注明細.Enabled = False
Else
Me.受注明細.Enabled = True
End If
If Me.NewRecord = False Then Exit Sub
Dim AutoID As String
Dim MaxID As Variant
AutoID = Format(Date, "yyyymmdd")
MaxID = DMax("受注コード", "T_受注", "Left(受注コード,8)=" & AutoID)
If IsNull(MaxID) Then
Me.受注コード.DefaultValue = AutoID & "001"
Else
Me.受注コード.DefaultValue = AutoID & Format(Right(MaxID, 3) + 1, "000")
End If
End Sub
Private Sub 取引先コード_AfterUpdate()
If Nz(Me.取引先コード.Value) = "" Then
Me.受注明細.Enabled = False
Else
Me.受注明細.Enabled = True
End If
End Sub
フォームのレコード移動時のコードのみを消した場合、常に「受注明細」に入力できます。
「取引先コード」の更新後処理のコードを消しても「受注明細」には入力が出来ない状態です。
変わった事と言えば、その後、このフォームにコマンドボタンを一つ作りコードを書きましたが、原因追及のためボタンもコードも削除しました。
その他は触ってないはずなのですが、急に動作しなくなってしまいました。
他に何か考えられる原因はあるでしょうか?
どうぞよろしくお願いいたします・・・。