كود طباعة نتائج البحث

[علي محمد الكعبي]

ماهو كود طباعة نتائج البحث في النموذج الفرعي بين تاريخين 

[kamel2711]

سلام عليكم  

بمناسبة الشهر الصوم  و القيام   اتمنى  ان تكون الامة العربية في احسن حال  

 اما مايخص سؤال الاخ   وهو ان يكون استعلام ثم زر  لفتح  

Entre [Date_Depart] et [Date_Fin]    الاستعلام
= [date_Depart] & " " & [Date_fin]
code  زر

Me.nom du formulaire.Form.FilterOn = True
Me.nom du formulaire.Form.Filter = "[DATE ] BETWEEN # " & 
Format(Me.date_Depart, "mm/dd/yyyy") & "# AND #" & Format(Me.Date_fin, 
"mm/dd/yyyy") & "#"
Else
Me.nom du formulaire.Form.FilterOn = False

 

[علي محمد الكعبي]

لم افهم شي وهذا مثال مرفق لتطبق عليه الكود

search_form1.rar

20 دقائق مضت, kamel2711 said:

سلام عليكم  

بمناسبة الشهر الصوم  و القيام   اتمنى  ان تكون الامة العربية في احسن حال  

 اما مايخص سؤال الاخ   وهو ان يكون استعلام ثم زر  لفتح  

Entre [Date_Depart] et [Date_Fin]    الاستعلام
= [date_Depart] & " " & [Date_fin]
code  زر

Me.nom du formulaire.Form.FilterOn = True
Me.nom du formulaire.Form.Filter = "[DATE ] BETWEEN # " & 
Format(Me.date_Depart, "mm/dd/yyyy") & "# AND #" & Format(Me.Date_fin, 
"mm/dd/yyyy") & "#"
Else
Me.nom du formulaire.Form.FilterOn = False

 

اتمنا ان تطبق الكود على المثال المرفق

[علي محمد الكعبي]

هل من مجيب

[رمهان]

الاخ علي

اطلعت على المرفق ويحتاج تعديلات 

خلينا نعمل البحث اول فزر البحث لا يعمل وهنا سنطبق فكرة الاستاذ كامل السابقة

ضع الكود التالي بديلا لكود البحث السابق لديم وسيصبح الكود بالشكل التالي وهي تطبيق لفكرة الاستاذ كامل

Private Sub cmdSearch_Click()
Me.fsubEmployee.Form.Filter = "[EmployeeDOB] Between #" & Me.txtDOBStart & "# AND #" & Me.txtDOBEnd & "#"
Me.fsubEmployee.Form.FilterOn = True
End Sub

لما تخبرنا ان التجربة تمت بنجاح لزر البحث ننتقل لطباعة نتائج البحث

بالتوفيق

[علي محمد الكعبي]

منذ ساعه, رمهان said:

الاخ علي

اطلعت على المرفق ويحتاج تعديلات 

خلينا نعمل البحث اول فزر البحث لا يعمل وهنا سنطبق فكرة الاستاذ كامل السابقة

ضع الكود التالي بديلا لكود البحث السابق لديم وسيصبح الكود بالشكل التالي وهي تطبيق لفكرة الاستاذ كامل

Private Sub cmdSearch_Click()
Me.fsubEmployee.Form.Filter = "[EmployeeDOB] Between #" & Me.txtDOBStart & "# AND #" & Me.txtDOBEnd & "#"
Me.fsubEmployee.Form.FilterOn = True
End Sub

لما تخبرنا ان التجربة تمت بنجاح لزر البحث ننتقل لطباعة نتائج البحث

بالتوفيق

نعم تم تطبيق الكود وعمل بنجاح

[رمهان]

تمام

اذاً سيصبح كود زر فتح التقرير هكذا

Private Sub Command27_Click()
DoCmd.OpenReport "tblEmployee", acPreview, , Me.fsubEmployee.Form.Filter
End Sub

بالتوفيق

[علي محمد الكعبي]

طيب هل يكون مصدر بيانات التقرير الجدول ام استعلام

[رمهان]

9 ساعات مضت, علي محمد الكعبي said:

طيب هل يكون مصدر بيانات التقرير الجدول ام استعلام

الكود مطبق على مثالك المرفق السابق . وهو جدول 

اما كسؤال جديد فلا يفرق سواء مصدر التقرير جدول ام استعلام المهم تطابق اسماء الاعمدة بين النموذج والتقرير

بالتوفيق