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]&"*" Cvp: Süzme Sorgu birkaç alana uygulama - saslan33 - 10/02/2009 TAMAM EKLEDİM OLDU- TEŞEKKÜRLER |