f_altislem formunun kod sayfasına;
Private Sub Form_Load()
If Forms!f_islem.cinsi = "ALIŞ" Then
Me.RecordSource = "SELECT t_altislem.idaltislem, t_altislem.tarih, t_altislem.adi, t_altislem.giris, t_altislem.tp, t_altislem.stop, t_altislem.cinsi, t_altislem.kademe, [stop]-[giris] AS stoppips, t_altislem.alan1, t_altislem.alan2, t_altislem.alan3, [tp]-[giris] AS tppips FROM t_altislem WHERE (((t_altislem.cinsi)=[Formlar]![f_islem]![cinsi]));"
Else
Me.RecordSource = "SELECT t_altislem.idaltislem, t_altislem.tarih, t_altislem.adi, t_altislem.giris, t_altislem.tp, t_altislem.stop, t_altislem.cinsi, t_altislem.kademe, [giris]-[stop] AS stoppips, t_altislem.alan1, t_altislem.alan2, t_altislem.alan3, [giris]-[tp] AS tppips FROM t_altislem WHERE (((t_altislem.cinsi)=[Formlar]![f_islem]![cinsi]));"
End If
End Sub
yazın ve Formun Yüklendiğinde özelliğini "Olay Yordamı" olarak seçin,
f_islem formunun kod sayfasına;
Private Sub cinsi_AfterUpdate()
Me.f_altislem.Requery
End Sub
yazın. Sonrasında da f_islem formunun CİNSİ alanının Güncelleştirme Sonrasında özelliğini "Olay Yordamı" olarak seçin ve deneyin. Umarım olmuştur. Kolay gelsin. Sonucu bildirirseniz sevinirim.
Not: Belki bana kızıyorsunuzdur. Yapıp neden örneği eklemiyor diye. Ancak amacım bu işlemleri size yaptırmak.