Microsoft Access 掲示板

ありがとうございます。

フォームのレコード移動時のイベントプロシージャに同じコードを入れてみましたが「取引先コード」にデータ入力しても「受注明細」のEnabledがFalseのままで入力できない状態です。
因みに「取引先コード」のAfterUpdateをCallしてみても同じ状態でした。
先にコードが入っているのでそれの影響があるのでしょうか？

Private Sub Form_Current()

   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
   If IsNull(Me.取引先コード.Value) Then
        Me.受注明細.Enabled = False
   Else
        Me.受注明細.Enabled = True
   End If

End Sub

現状この状態ですが上記の動作になってしまいます。
何が原因でしょう？