AccessTr.neT
Süzme Sorgu birkaç alana uygulama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Süzme Sorgu birkaç alana uygulama (/konu-suzme-sorgu-birkac-alana-uygulama.html)

Sayfalar: 1 2


Süzme Sorgu birkaç alana uygulama - saslan33 - 10/02/2009

Arkadaşlar kolay gelsin

Süzme sorgu yapıyorum alanın birisinde isteğim değiri veriyor o alanda aynı kayıttan çok fazla olduğu için ikinci bir alandan daha sorgu yaptığımda birinci sorğuyu iptal edip iknicisi üzerinden değirlendiriyor bana bu konuda yardımcı olursanız çok sevinirim.


Cvp: Süzme Sorgu birkaç alana uygulama - Puletin - 10/02/2009

Basit bir şeyler ekledim siz istediğiniz diğer alanlara da uygulaya bilirsiniz.


Cvp: Süzme Sorgu birkaç alana uygulama - esrefigit - 10/02/2009

Private Sub T1_Updated(Code As Integer)
suz
End Sub

Private Sub T2_Updated(Code As Integer)
suz
End Sub

Private Sub T3_Updated(Code As Integer)
suz
End Sub
Function suz()
Dim strFilter As String
strFilter = ""

If Me.T1 <> "" Then
strFilter = "Adı Like'" & Me.T1 & "*'"
strFilter = strFilter & " AND "
End If

If Me.T2 <> "" Then
strFilter = strFilter & "Soyadı Like'" & Me.T2 & "*'"
strFilter = strFilter & " AND "
End If

If Me.T3 <> "" Then
strFilter = strFilter & "Baba Adı Like'" & Me.T3 & "*'"
strFilter = strFilter & " AND "
End If
If strFilter = "" Then
MsgBox ("Kriter girmediniz tekrar giriniz!")
Else

strFilter = Left$(strFilter, Len(strFilter) - 5)
DoCmd.ApplyFilter , strFilter
End If

End Function


Cvp: Süzme Sorgu birkaç alana uygulama - saslan33 - 10/02/2009

esrefigit kardeş kod bilgim pek yok verdiğiniz kodu örnek üzerinde uyğulayabilirseniz öğrenmem daha kolay olur teşekkür ederim.
PuLeTiN ilginiz için teşekkür ederim. Bunu ben daha önce uyguladım bir sorunla karşılaştım eger adı ve soyadı bölümlerinden biri doldurulmamış ise yani boş ise o alandan sorgu yapmıyor o alanı hiç görmüyor.


Cvp: Süzme Sorgu birkaç alana uygulama - Puletin - 10/02/2009

Sorgunuzun Ölçüt bölümüne
Kod:
Is Null Or Like"*"&Formlar!Form1![ADI]&"*"
Şeklinde yazarsanız kayıtlarda boş olan varsa bile sorguda getirecektir...


Cvp: Süzme Sorgu birkaç alana uygulama - saslan33 - 10/02/2009

TAMAM EKLEDİM OLDU- TEŞEKKÜRLER