Microsoft Access 掲示板

メインフォームに入力しないとサブフォームに入力できないようにしたい / 13

28 コメント
views
4 フォロー
13
涼子 2021/09/03 (金) 16:40:04 1a64f@e5635

【問題発生】
恐れ入ります・・・・
なぜか突然動作不良になってしまいました・・・。

「取引先コード」の更新後処理とフォームのレコード移動時両方に以下のコードがある状態で、「受注明細」が入力できない状態になります。

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

フォームのレコード移動時のコードのみを消した場合、常に「受注明細」に入力できます。
「取引先コード」の更新後処理のコードを消しても「受注明細」には入力が出来ない状態です。
変わった事と言えば、その後、このフォームにコマンドボタンを一つ作りコードを書きましたが、原因追及のためボタンもコードも削除しました。
その他は触ってないはずなのですが、急に動作しなくなってしまいました。

他に何か考えられる原因はあるでしょうか?
どうぞよろしくお願いいたします・・・。

通報 ...