Microsoft Access 掲示板

Microsoft Access 掲示板

複数条件の抽出フォームの設計 / 16

20 コメント
views
4 フォロー
16
hatena 2019/08/26 (月) 13:17:48 
    Me.Filter = Mid(strfilter, 6)
    If strfilter = "" Then
        Me.FilterOn = False
    Else
        Me.FilterOn = True
        If Me.Recordset.RecordCount = 0 Then MsgBox "検索データはありません"
    End If
通報 ...