Microsoft Access 掲示板

Microsoft Access 掲示板

Site Mapの月単位でデータを入力する場合の日付入力の効率的なUIを考えるからなのですが。

1 コメント
views
4 フォロー

いつも大変お世話になっております。サンプルファイルをもとに月ごとのレコードを呼び出すフォームを作成しました

Private Sub 年月_AfterUpdate()
    Dim fDate As Date
    fDate = CDate(Me.年月)  '月初めの日付
    
    '年月コンボボックスで選択した年月で抽出
    Filter = "請求日 between #" & fDate & "# AND #" & DateAdd("m", 1, fDate) - 1 & "#"
    Me.FilterOn = True
    
    '定型入力
    Me.請求日.InputMask = """" & Me.年月 & """/00;0"
    setDefaultValue
    
  %%{fg:red} DoCmd.GoToRecord , , acNewRec
   Me.請求日.SetFocus
%%    
End Sub

サンプルコードのままですが下の２つでいつもエラーがおきてしまいます。申し訳ないのですが違うところと言ったら日付が請求日になったぐらいです。考えられることはありますか？

rainbow
作成: 2019/08/09 (金) 15:44:24
通報 ...
1
hatena 2019/08/09 (金) 19:25:32

DoCmd.GoToRecord , , acNewRec
でエラーが出るとすると、フォームの「追加の許可」プロパティが「いいえ」になっているとか、
レコードソースのクエリが更新不可になっているか、ではないですか。
新規レコードがないので当然エラーになります。