علي محمد الكعبي قام بنشر يونيو 8, 2017 مشاركة قام بنشر يونيو 8, 2017 ماهو كود طباعة نتائج البحث في النموذج الفرعي بين تاريخين رابط هذا التعليق شارك More sharing options...
kamel2711 قام بنشر يونيو 8, 2017 مشاركة قام بنشر يونيو 8, 2017 سلام عليكم بمناسبة الشهر الصوم و القيام اتمنى ان تكون الامة العربية في احسن حال اما مايخص سؤال الاخ وهو ان يكون استعلام ثم زر لفتح 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 رابط هذا التعليق شارك More sharing options...
علي محمد الكعبي قام بنشر يونيو 8, 2017 الكاتب مشاركة قام بنشر يونيو 8, 2017 لم افهم شي وهذا مثال مرفق لتطبق عليه الكود 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 اتمنا ان تطبق الكود على المثال المرفق رابط هذا التعليق شارك More sharing options...
علي محمد الكعبي قام بنشر يونيو 9, 2017 الكاتب مشاركة قام بنشر يونيو 9, 2017 هل من مجيب رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يونيو 10, 2017 مشاركة قام بنشر يونيو 10, 2017 الاخ علي اطلعت على المرفق ويحتاج تعديلات خلينا نعمل البحث اول فزر البحث لا يعمل وهنا سنطبق فكرة الاستاذ كامل السابقة ضع الكود التالي بديلا لكود البحث السابق لديم وسيصبح الكود بالشكل التالي وهي تطبيق لفكرة الاستاذ كامل Private Sub cmdSearch_Click() Me.fsubEmployee.Form.Filter = "[EmployeeDOB] Between #" & Me.txtDOBStart & "# AND #" & Me.txtDOBEnd & "#" Me.fsubEmployee.Form.FilterOn = True End Sub لما تخبرنا ان التجربة تمت بنجاح لزر البحث ننتقل لطباعة نتائج البحث بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
علي محمد الكعبي قام بنشر يونيو 10, 2017 الكاتب مشاركة قام بنشر يونيو 10, 2017 منذ ساعه, رمهان said: الاخ علي اطلعت على المرفق ويحتاج تعديلات خلينا نعمل البحث اول فزر البحث لا يعمل وهنا سنطبق فكرة الاستاذ كامل السابقة ضع الكود التالي بديلا لكود البحث السابق لديم وسيصبح الكود بالشكل التالي وهي تطبيق لفكرة الاستاذ كامل Private Sub cmdSearch_Click() Me.fsubEmployee.Form.Filter = "[EmployeeDOB] Between #" & Me.txtDOBStart & "# AND #" & Me.txtDOBEnd & "#" Me.fsubEmployee.Form.FilterOn = True End Sub لما تخبرنا ان التجربة تمت بنجاح لزر البحث ننتقل لطباعة نتائج البحث بالتوفيق نعم تم تطبيق الكود وعمل بنجاح رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يونيو 10, 2017 مشاركة قام بنشر يونيو 10, 2017 تمام اذاً سيصبح كود زر فتح التقرير هكذا Private Sub Command27_Click() DoCmd.OpenReport "tblEmployee", acPreview, , Me.fsubEmployee.Form.Filter End Sub بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
علي محمد الكعبي قام بنشر يونيو 13, 2017 الكاتب مشاركة قام بنشر يونيو 13, 2017 طيب هل يكون مصدر بيانات التقرير الجدول ام استعلام رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يونيو 14, 2017 مشاركة قام بنشر يونيو 14, 2017 9 ساعات مضت, علي محمد الكعبي said: طيب هل يكون مصدر بيانات التقرير الجدول ام استعلام الكود مطبق على مثالك المرفق السابق . وهو جدول اما كسؤال جديد فلا يفرق سواء مصدر التقرير جدول ام استعلام المهم تطابق اسماء الاعمدة بين النموذج والتقرير بالتوفيق رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.