02-01-14, 09:26 AM
أريد عمل برنامج اقوم بتسجيل تاريخ استلام بضاعة لعملاء حسب تاريخ مستقبلي وليكن شهر 3 2014
في ذلك اليوم عندما افتح البرنامج يقوم بالبحث عن كل العمله الي المفروض تستلم البضاعه النهارده بس
الكود عملته بس في حاجة غلط
ارجو التعديل عليه
f DataGrid1.Columns.Item(aa) - Date < 0 And DataGrid1.Columns.Item(aa) - Date < 5 Then
If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM ADDAMEL WHERE Yoam BETWEEN " & DataGrid1.Columns.Item(10) & " AND " & Date & " ORDER BY Yoam", db, 1, 3
Set DataGrid1.DataSource = rs
DataGrid1.BackColor = &HFF&
End If
في ذلك اليوم عندما افتح البرنامج يقوم بالبحث عن كل العمله الي المفروض تستلم البضاعه النهارده بس
الكود عملته بس في حاجة غلط
ارجو التعديل عليه
f DataGrid1.Columns.Item(aa) - Date < 0 And DataGrid1.Columns.Item(aa) - Date < 5 Then
If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM ADDAMEL WHERE Yoam BETWEEN " & DataGrid1.Columns.Item(10) & " AND " & Date & " ORDER BY Yoam", db, 1, 3
Set DataGrid1.DataSource = rs
DataGrid1.BackColor = &HFF&
End If