Terima kasih pak Aksan Kurdin...sudah saya coba dengan langkah sbb :
Private Sub TglCutiDari_AfterUpdate()
'Dim Msg, Style, Title, Help, Ctxt, Response, MyString
SysCmd acSysCmdClearStatus
'Msg = "Tidak bisa mengajukan cuti, minimal 1 minggu
sebelumnya !" ' Define message.
'Style = vbOK 'YesNo + vbCritical + vbDefaultButton2 '
Define buttons.
'today = Me![TglForm]
'batasan = today - 7
'If Me![TglCutiDari] > batasan Then
' Response = MsgBox(Msg)
' DoCmd.GoToControl "TglCutiDari"
'End If
End Sub
Private Sub TglCutiDari_BeforeUpdate(Cancel As Integer)
If Not IsDate(Me.TglCutiDari.Text) Then
Beep
SysCmd acSysCmdSetStatus, "Nilai yang anda isikan bukanlah tanggal yang
sah!"
Cancel = -1
Exit Sub
End If
If DateDiff("d", Me.TglCutiDari.Text, Date) >= 7 Then
Beep
SysCmd acSysCmdSetStatus, "Tanggal tidak boleh kurang dari tujuh hari lalu!"
Cancel = -1
End If
End Sub
Untuk yang bertanda ' ....dilewati saja pak, karena itu langkah saya sebelum
bertanya kepada bapak.
Setelah dirunning, masih belum ada respon.
Mohon bantuannya lagi....thanks
