18-04-15, 03:31 PM
اسلام عليكم
كيف عرض التقارير في DBGrid1 اقل من تاريخ الحالي بثلاثين يوم ؟
يعني اظهار كل اسماء مع عدد ايام المتبقي علي انتهاء جوازتهم.....
ارجو المساعدة......شكراً..
Private Sub Command4_Click()
On Error Resume Next
UsData1.DatabaseName = App.Path & "\UserData.mdb"
UsData1.RecordSource = "Select * from UserTable1"
UsData1.Refresh
End Sub
''''''''''''''''''''''''''''''''''''''
Private Sub Command1_Click()
On Error Resume Next
UsData1.RecordSource = "select * from UserTable1 WHERE [db-9] > #" & DateAdd("d", -30, Date) & "#"
UsData1.Refresh
DBGrid1.SelBookmarks.Add DBGrid1.Bookmark
UsData1.Recordset.MoveLast
TexSn = "" & UsData1.Recordset.AbsolutePosition
TexSn = TexSn + 1
End Sub
''''''''''''''''''''''''''''''''''''''''
Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
On Error Resume Next
DBGrid1.Columns(2) = DateDiff("d", DBGrid1.Columns(1), Date)
End Sub
كيف عرض التقارير في DBGrid1 اقل من تاريخ الحالي بثلاثين يوم ؟
يعني اظهار كل اسماء مع عدد ايام المتبقي علي انتهاء جوازتهم.....
ارجو المساعدة......شكراً..
Private Sub Command4_Click()
On Error Resume Next
UsData1.DatabaseName = App.Path & "\UserData.mdb"
UsData1.RecordSource = "Select * from UserTable1"
UsData1.Refresh
End Sub
''''''''''''''''''''''''''''''''''''''
Private Sub Command1_Click()
On Error Resume Next
UsData1.RecordSource = "select * from UserTable1 WHERE [db-9] > #" & DateAdd("d", -30, Date) & "#"
UsData1.Refresh
DBGrid1.SelBookmarks.Add DBGrid1.Bookmark
UsData1.Recordset.MoveLast
TexSn = "" & UsData1.Recordset.AbsolutePosition
TexSn = TexSn + 1
End Sub
''''''''''''''''''''''''''''''''''''''''
Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
On Error Resume Next
DBGrid1.Columns(2) = DateDiff("d", DBGrid1.Columns(1), Date)
End Sub