saya udah mencoba sarannya...
jadi saya menambahkan field dalam database dengan nama status...
n pada input data saya tambahin 1 textbox dengan default 0 dgn
status Visible...
jadi fungsi textbox ini cuma untuk mamasukkan nilai 0 kedalam field
status dalam database, memang bisa aja kita masukkan dengan
perintah "select" cuma saya kurang mengerti... maklum newbie
kemudian dalam timernya saya tambahkan coding seperti ini :
Private Sub Timer2_Timer()
Dim dTanggal As Date
Dim a As String
With rs
Do While Not .EOF
dTanggal = ![Tanggal_Deadline]
a = ![Status]
If (Date = DateAdd("m", -6, dTanggal)) Then
If a = 0 Then
frmRemind1.Label1.Caption = ![Tanggal_Deadline]
frmRemind1.Label2.Caption = ![Keterangan]
frmRemind1.Show vbModal, frmMenu
Exit Do
End If
End If
If (Date = DateAdd("m", -9, dTanggal)) Then
If a = 0 Then
frmRemind2.Label1.Caption = ![Tanggal_Deadline]
frmRemind2.Label2.Caption = ![Keterangan]
frmRemind2.Show vbModal, frmMenu
Exit Do
End If
End If
If (Date = DateAdd("m", -12, dTanggal)) Then
If a = 0 Then
frmRemind3.Label1.Caption = ![Tanggal_Deadline]
frmRemind3.Label2.Caption = ![Keterangan]
frmRemind3.Show vbModal, frmMenu
Exit Do
End If
End If
.MoveNext
Loop
.MoveFirst
End With
Debug.Print "Nothing activated!"
End Sub
dilihat dari coding diatas, akan terdapat 3 kali reminder untuk
setiap tanggal yg dimasukkan...
oleh karena itu...
dalam frmReminder1, frmReminder2, dan frmReminder3
akan menampilkan pesan dan commandbutton...
yg saya inginkan setiap reminder itu muncul dan kita tekan
commandbutton status dalam field database akan berubah 1, ini
dimaksudkan supaya looping yg terjadi ga akan membaca lagi data yg
telah dimunculkan...
saya dalam commandButton menggunakan coding ini :
'saya ambil dari contoh frmReminder3
Private Sub Command1_Click()
rs.Fields("Status").Value = 1
rs.Update
frmRemind3.Visible = False
Load frmMenu
End Sub
cara ini emang berhasil, tapi ada 1 masalah lagi
Pertanyaannya :
saya ingin status dalam database kembali berubah 0, ini dimaksudkan
untuk menampilkan kembali reminder2 yg lain beberapa bulan kemudian,
karena setiap tanggalkan akan memunculkan 3 kali reminder...
klo status dalam database ini tetep bernilai 1, maka reminder yg
lain nga akan muncul lagi donk
saya ingin setelah reminder muncul, hari besoknya or bulan besoknya,
Statusnya berubah menjadi 0 secara otomatis,,,
kira2 bisa nga yah...
apa menggunakan perintah
DateAdd ??? or apa??
duh saya kurang mengerti, tolong bantuannya lagi yah...
terima kasih...
