1

サブフォームのテキスト ボックスに入力された内容に基づいて、サブフォームに表示されるレコードをフィルター処理しようとしています。サブフォームはユーザーと呼ばれ、グループ フォームにあります。ユーザー サブフォームには、txtFilter というテキスト ボックスがあります。txtFilter に「W」と入力すると、ユーザーの lastName または userName が「W」で始まるレコードのみが表示されます。W...A...LI と入力し続けると、lastName または UserName が「Wal」で始まるユーザーのみが表示されます。

これを行うには、レコードセット プロパティまたはサブフォームの serverFilter のいずれかを使用する必要があるという漠然とした考えがありますが、どうすればよいか本当に迷っています。私を助けてください！

4

2 に答える 2

1 
Private Sub txtFilter_Change()

    If Nz(Me.txtFilter.Text, "") = "" Then
        Me.FilterOn = False
        Me.txtFilter.SetFocus
        Exit Sub
    End If
    Me.Filter = "lastName like '" + Me.txtFilter.Text + "%' or userName like '" & _
        Me.txtFilter.Text + "%'"
    Me.FilterOn = True
    Me.txtFilter.SetFocus
    Me.txtFilter.SelStart = Len(Nz(Me.txtFilter.Text, "")) + 1


End Sub
于 2010-10-14T18:30:27.817 に答える