Oke pak sudah bisa sekarang, rupanya syarat batasan 7 hari belum terbaca, setelah saya coba, sbb :
Private Sub TglCutiDari_BeforeUpdate(Cancel As Integer)
today = Me![TglForm]
batasan = today - 7
If Me![TglCutiDari] > batasan Then
Beep
SysCmd acSysCmdSetStatus, "Tanggal tidak boleh kurang dari tujuh hari
lalu!"
Cancel = -1
End If
End Sub
Maaf pak, kalau saya belum biasa dengan fungsi If DateDiff("d",
Me.TglCutiDari.Text, Date) >= 7 Then
Gimana agar fungsi tersebut bisa dipakai ? thanks
