اسلم عليكم
ارجو المساعدة في تصميم برامج تذكير المواعيد في تاريخ المحدد انا تقرباً انشأالله كاملت البرامج ولكن في بعد الاخطا في موازنت التاريخ .
كود وبرامج مرفق مع هذا الموضوع.
Private Sub Command1_Click()
On Error Resume Next
'''
Data1.Recordset.FindFirst "Date<='" & Text1 & "'" '''Chack Date
If Data1.Recordset.NoMatch Then
'''
Label1.Caption = "All Ok"
'''
Else
'''
Label1.Caption = "You have Date"
End If
End Sub
'''Load Databas''''
Private Sub Form_Load()
On Error Resume Next
Data1.DatabaseName = App.Path + "\Date_Data.mdb"
End Sub
'''Date'''
Private Sub Timer1_Timer()
Text1 = CDate(Format$(Now(), "dd/mm/yyyy"))
End Sub
Private Sub Command2_Click()
On Error Resume Next
Data1.Recordset.AddNew
End Sub
Private Sub Command3_Click()
On Error Resume Next
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
وشكراً.........................................................................................