- Katılım
- 9 Ağustos 2014
- Mesajlar
- 85
- Excel Vers. ve Dili
- 2013 türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
If K <> "" Then DoCmd.ApplyFilter , K
Private Sub ARA_Click()
Dim K As String
K = ""
If Len(m) > 0 Then
If Len(K) > 0 Then K = K + "AND"
K = K + "[ADISOYADI] Like'" + m.Value + "'"
End If
If Len(t) > 0 Then
If Len(K) > 0 Then K = K + "AND"
K = K + "[TCNO] Like'" + t.Value + "'"
End If
If Len(d) > 0 Then
If Len(K) > 0 Then K = K + "AND"
K = K + "[DOGUMYERI] Like'" + d.Value + "'"
End If
If K = "" Then
MsgBox "Arama işlemi için TCNO girişi yapınız!", vbCritical
Else
DoCmd.ApplyFilter , K
AYRINTI.Visible = True
End If
End Sub