DLookup関数はテーブル内やクエリ内のデータを検索し、一番最初に見つかったデータのレコードの値を返すことができます。

検索フォームを作るときに良く使います、











　　　　Dlookup関数

Private Sub Form_Load()

    Dim num As String
    Dim kno As String
    Dim knamesei As String
    Dim knamemei As String
   
    num = InputBox("会員名(姓)を入力して下さい", "会員検索")
    
    '会員Noの取得
    kno = DLookup("会員No", "T_会員", "名前姓 = '" & num & "'")
    
    '会員名（姓）の取得
    knamesei = DLookup("名前姓", "T_会員", "名前姓 = '" & num & "'")
    
    '会員名（名）の取得
    knamemei = DLookup("名前名", "T_会員", "名前姓 = '" & num & "'")
   
    If kno = "" Then
        '入力された名前の人が見つからなかった場合
        MsgBox ("会員が見つかりません")
    Else
        '入力された名前の人が見つかった場合
        'テキストボックスにデータを代入
        Me.テキスト0 = kno
        Me.テキスト2 = knamesei & knamemei
    End If
   
End Sub

実行すると・・・

 






上の例ではフォームを読み込んだ際にインプットボックスで検索したい名前（姓）を入力させT_会員テーブルに登録されているデータを入力した値で検索しています、

一致したデータがあった場合には会員Noと名前(姓）、名前（名）のデータを取得し、
フォーム内のテキストボックスに入れています、

データの検索方法は他にもありますが、Dlookup関数が一番使いやすいかもしれません、