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 !