Maksud mas gatot dengan tidak ada respon ? Apakah status bar anda tidak dalam kondisi tersembunyi ? (Seting tools>options pada tab view, conteng Status Bar) Lalu periksa event dari tglcutidari di property, pastikan bahwa After Update dan Before Update sudah terisi, karena kalau hanya di salin ulang di modul VBE, biasanya Access tidak melink-nya dengan form sebagai event. Bisa juga dengan melihat dari list event pada VBE, jika sudah tercetak tebal, berarti sudah link dengan form.
kalau bisa sertakan screen shoot kemari dari apa yang mas gatot sebut tidak ada respon. aksan kurdin 2009/4/13 Gatot Subroto <[email protected]>: > > > 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 > -- Aksan Kurdin
