Skip to main content

AccessTr.neT


Form Filtreleme

Form Filtreleme

Çözüldü #7
sahip ve araba formlarını ben veri girmek için oluşturdum.Arama kriterlerini arama formuna ekleyip arama yaptırabiliriz.2007 nin kendi filtrelerini kullanmak istemiyorsan bahsetmiş olduğun işlemi dediğin gibi comboboxla yapabiliriz.
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
Çözüldü #8
Evet office 2007 nin kini kullanmak istemiyorum. Combobox la nasıl yapabiliriz?
Cevapla
Çözüldü #9
arama2 formunu incele ben kodlarla yaptım.Sadece araba markasına göre süzüyor.
Siz isteğiniz doğrultusunda diğer alanlar için kodlarda oynama yaparak düzenleyebilirsiniz.
örnek ektedir kolay gelsin
Ek Dosyalar
 Veritabanı_COSKUN.rar(30.76 KB)
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
Çözüldü #10
Teşekkür ederim Çoşkun Bey güzel Olmuş Dediğim gibi. Peki son işlemi nasıl yaptınız anlatabilir misiniz?
Cevapla
Çözüldü #11
kısaca aşama aşama anlatmaya çalışayım
1-arama2 formuna "arama" formunu alt form olarak ekledim
2-arama formum tüm kayıtları gösteren sorguya bağlı
3-arama2 formunda combodaki seçilen kritere göre altformun kayıt kaynağını değiştirdim.
Private Sub Açılan_Kutu1_AfterUpdate()
Dim sql
sql = "SELECT sahip.ID, sahip.ADI, sahip.SOYADI, sahip.YASADIGI_YER, sahip.TEL, araba.MODEL, araba.MARKA, araba.FIYAT, araba.MOTOR_HACIM, araba.KM, araba.YIL FROM araba INNER JOIN sahip ON araba.ID = sahip.ID WHERE (((araba.MARKA)=[Formlar]![arama2]![Açılan_Kutu1]));"
Form_arama.RecordSource = sql
Me.Sorgu1.Requery
End Sub
bu kod açılşan kutuda seçmiş olduğun kritere göre altformda sorgulama yapıyor.
eğer sen altformda kritere göre sorgulama yapmasın tüm kayıtları göstersin veya açılan kutudan sorgulama yaptıktan sonra tekrar tüm kayıtları göstersin dersen "hepsi" butonun içine şu kodları yazdım
Private Sub Komut3_Click()
Dim sql
sql = "SELECT sahip.ID, sahip.ADI, sahip.SOYADI, sahip.YASADIGI_YER, sahip.TEL, araba.MODEL, araba.MARKA, araba.FIYAT, araba.MOTOR_HACIM, araba.KM, araba.YIL FROM araba INNER JOIN sahip ON araba.ID = sahip.ID;"
Form_arama.RecordSource = sql
Me.Sorgu1.Requery
End Sub
alt form için bi sorgulama kriteri belirtmedim buda tüm kayıtları göstermemi sağladı.
Kısaca kodun içerisine sorgulamak istediğin kriteri ekliyorsun.Açılan kutunun Güncelleştirme sonrası olayınada arama yaptırdığın altfomu yeniletiyorsun."Refresh" olayı accessdeki karşılığı "requery"
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
Çözüldü #12
Çok teşekkürler emeğinize sağlık Img-grin
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task