Skip to main content

AccessTr.neT


Süzme Sorgu birkaç alana uygulama

Süzme Sorgu birkaç alana uygulama

Çözüldü #1
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.
.rar Süzle Sorgu.rar (Dosya Boyutu: 17,05 KB | İndirme Sayısı: 27)
Cevapla
Çözüldü #2
Basit bir şeyler ekledim siz istediğiniz diğer alanlara da uygulaya bilirsiniz.
.rar Süzle Sorgu.PuLeTiN.rar (Dosya Boyutu: 31,78 KB | İndirme Sayısı: 44)
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #3
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
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
Çözüldü #4
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.
Son Düzenleme: 10/02/2009, 12:37, Düzenleyen: saslan33.
Cevapla
Çözüldü #5
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...
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #6
TAMAM EKLEDİM OLDU- TEŞEKKÜRLER
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da