Microsoft Access 掲示板

Microsoft Access 掲示板

同日のレコードがあれば既存のものを表示させるには / 1
1
hatena 2020/08/07 (金) 21:22:35

いろいろ方法はありますが、一例を紹介しておきます。

フォームウィザードで入力したいテーブルをもとに単票フォームを作成します。
フォームプロパティを下記のように設定します。

プロパティ設定値
フィルターFalse
読み込み時にフィルターを適用はい
追加の許可いいえ
　

「日付」のテキストボックスの「使用可能」は「いいえ」にします。

フォームヘッダーにテキストボックスを配置して下記のように設定します。

プロパティ設定値
名前txt日付
書式yyyy/mm/dd
（書式はお好みの日付書式に）

txt日付 の更新後処理のイベントプロシージャを下記のように記述します。

Private Sub txt日付_AfterUpdate()
    If IsDate(Me.txt日付.Value) Then
        Me.Filter = "日付=#" & Me.txt日付.Value & "#"
        Me.FilterOn = True
        If Me.Recordset.RecordCount = 0 Then
            Me.日付.DefaultValue = "=#" & Me.txt日付.Value & "#"
            Me.AllowAdditions = True
        End If
        Me.項目1.SetFocus
    End If
End Sub

　
フォームの挿入後処理のイベントプロシージャを下記のように記述します。

Private Sub Form_AfterInsert()
    Me.AllowAdditions = False
End Sub

以上です。

通報 ...