Ekteki uygulamaya Form1 adında form ekleyip forma liste kutusu ekledim. Formda ayrıca liste kutusundaki satırları sayan metin kutusu var.

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.