Kod:
Private Sub aragorun_Change()
Dim vSearchString, sqlwhere As String
vSearchString = Me.aragorun.Text
Me.aragizli.Value = vSearchString
Select Case Me.Çerçeve130.Value
Case 1
sqlwhere = " tablo_uye_listesi.[ADI] like '" & "*" & Me.aragizli.Value & "*" & "' order by tablo_uye_listesi.[ADI] ;"
Case 2
sqlwhere = " tablo_uye_listesi.[SOYADI] like '" & "*" & Me.aragizli.Value & "*" & "' order by tablo_uye_listesi.[SOYADI] ;"
Case 3
sqlwhere = " tablo_uye_listesi.[TC KİMLİK NO] like '" & "*" & Me.aragizli.Value & "*" & "' order by tablo_uye_listesi.[TC KİMLİK NO] ;"
End Select
Me.bulunan.RowSource = "tablo_uye_listesi.[TC KİMLİK NO], tablo_uye_listesi.[ADI], tablo_uye_listesi.[SOYADI], tablo_uye_listesi.[TC KİMLİK NO], FROM tablo_uye_listesi where " & sqlwhere
End Sub
Private Sub bulunan_DblClick(Cancel As Integer)
DoCmd.OpenForm "uye_bilgi_formu", , , "TC KİMLİK NO=" & Me.bulunan.Column(3)
End Sub