الأخوة الكرام .. أعجزني معرفة أين الخطأ في هذا الكود حيث تظهر الرسالة التالية
No Value gevin for one or more required prarametres
الكود :-
Dim Reco As New ADODB.Recordset
Dim sq As String
Dim crite1 As String يأخذ قيمة رقم الموظف
Dim crite2 As String يأخذ قيمة غياب أو إجازة
Dim crite3 As String يأخذ قيمة نوع الدوام رسمي أو خارج دوام أو رمضان
Dim crite4 As String يأخذ قيمة تاريخين
crite1 = " IDHolyDay = " & Forms!frmquryEmployeesWorkDay!ComboNumEmpl*
crite2 = " and TypeHolyOperation=" & "'" & Me.comboTypeQury & "'"*
crite3 = "and TypeWorkingDay = " & " '" & Me.comboTypeWorkDay & "'"*
crite4 = "and [DateHoly] between ComboDate1 And ComboDate2"*
sq = "select * FROM tblholyday WHERE " & crite1 & crite2 & crite3 & crite4*
Reco.Open sq, CurrentProject.Connection, adOpenKeyset, adLockReadOnly*
MsgBox Reco.RecordCount*
وضعت هنا * العلامة النجمية لكي لا ينقلب الكود فقط
بدون Dim crite4 As String يأخذ قيمة تاريخين لا يعرض رسالة ويعرض عدد السجلات بدون تصفية بين تاريخين .. ولكني لا أريد هذا حيث أريد غياب هذا الموظف في الدوام الرسمي بين تاريخين .. علماُ بأني قد سجلت في الجدول كل هذه البيانات
النموذج ليس له مصدر بيانات حيث إنه نموذج حسابي فقط
إن كانت هناك طريقة أفضل من هذه فلا تبخلوا يا كرام
ولكم خالص شكري وتقديري
