liste kutusunun satır kaynağındaki sorgunun çıkış tarihi sütununun ölçütüne
>Date()-30
ölçütünü ekledim. form1'in açıldığnda olayına da
Me.Metin2 = Me.Liste0.ListCount
If Me.Metin2 = "0" Then
DoCmd.Close acForm, "Form1"
DoCmd.OpenForm "Tablo1", acNormal, "", "", , acNormal
End If
kodunu ekledim.
Form1 açıldığında çıkış tarihi 30 günden az kalan var ise form1 uyarı olarak açık kalıyor, yok ise kapanıp Tablo1 isimli form açılıyor.