Microsoft Access 掲示板

Microsoft Access 掲示板

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

28 コメント
views
4 フォロー
11
hatena 2021/09/02 (木) 13:59:01

では、フォームのレコード移動時のコードを下記のように修正してください。

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
通報 ...
  • 12
    涼子 2021/09/02 (木) 14:24:23 1a64f@e5635 >> 11

    【解決】
    ありがとうございます！
    望む動きになりました！

    フォームのレコード移動時と「取引先コード」の更新後処理の両方に入れたら無事に動きました。
    本当にありがとうございます！

    また、相談させてください！
    ありがとうございました。