ابو عارف

هل تقصد يفتح نموذج على حسب معيار الاول في القائمة ثم اغلاقه يدويا ثم على ميعار الثاني و هكذا ولا يفتح و يغلق آليا دون تدخل منك

طول صفحة A4 16000 نقطة و 11000 عرضها طريقة النموذج (2).mdb

Allrecords = 16000 غير الى: Allrecords = 11500 غير سطر: RecordSource = "select * from " & RecordSource & " where " & RecordSource & ".[date1]like'*" & Vl & "*'" الى: RecordSource = "select * from " & RecordSource & " where " & RecordSource & ".[date1]=" & Vl بتوفيق

أخي @محمد احمد لطفى في تعديل التالي جعلت تقريرين مرتبط بمصدر سجلاتهما Q1 بمعيار تاريخ و Q2 بدون معيار ، اجعل مصدره اية استعلام او جدول بشرط عدم وضع معيار في الاستعلام ستحصل على نفس نتيجة كما هو في ملفك ، في تعديلات سابقة كان مصدر سجلات تقرير استعلام Qr فقط حتى مع تغير مصدر يدويا و الان يعمل على حسب مصدر المحدد في خاصية مصدر سجلات. و سبب ضرورة ارتباط هو اسخراج عدد سجلات وفق معيار المحدد و ذالك لتوزيعهم في صفحات ولكن ادخال معيار من خلال باراميترا الاستعلام ، التقرير غير قادر عد سجلات بعد فتحه. طريقة النموذج.mdb

عليكم السلام ورحمة الله انظر تعديل في قاعدتين طريقة النموذج - Copy.mdbطريقة النموذج.mdb

نعم اخي تفضل M_L - Copy.mdb

السلام عليكم و رحمة الله و بركاته أخي العزيز أبا جودي : اولا اشكرك على ما تقدمه لاخوانك في المنتدى ثانيا بعد اطلاع على البرنامج وجدت البرنامج يعمل بكفائة و ماشاء الله عليك و في نفس وقت حبيت عرض اقتراح اختصار وحدة نمطية modConverter من: Public Function ToUniCode(myData As String) myData = Replace(myData, ChrW(1569), "ChrW(1569)") myData = Replace(myData, ChrW(1570), "ChrW(1570)") myData = Replace(myData, ChrW(1571), "ChrW(1571)") myData = Replace(myData, ChrW(1572), "ChrW(1572)") myData = Replace(myData, ChrW(1573), "ChrW(1573)") myData = Replace(myData, ChrW(1574), "ChrW(1574)") myData = Replace(myData, ChrW(1575), "ChrW(1575)") myData = Replace(myData, ChrW(1576), "ChrW(1576)") myData = Replace(myData, ChrW(1577), "ChrW(1577)") myData = Replace(myData, ChrW(1578), "ChrW(1578)") myData = Replace(myData, ChrW(1579), "ChrW(1579)") myData = Replace(myData, ChrW(1580), "ChrW(1580)") myData = Replace(myData, ChrW(1581), "ChrW(1581)") myData = Replace(myData, ChrW(1582), "ChrW(1582)") myData = Replace(myData, ChrW(1583), "ChrW(1583)") myData = Replace(myData, ChrW(1584), "ChrW(1584)") myData = Replace(myData, ChrW(1585), "ChrW(1585)") myData = Replace(myData, ChrW(1586), "ChrW(1586)") myData = Replace(myData, ChrW(1587), "ChrW(1587)") myData = Replace(myData, ChrW(1588), "ChrW(1588)") myData = Replace(myData, ChrW(1589), "ChrW(1589)") myData = Replace(myData, ChrW(1590), "ChrW(1590)") myData = Replace(myData, ChrW(1591), "ChrW(1591)") myData = Replace(myData, ChrW(1592), "ChrW(1592)") myData = Replace(myData, ChrW(1593), "ChrW(1593)") myData = Replace(myData, ChrW(1594), "ChrW(1594)") myData = Replace(myData, ChrW(1600), "ChrW(1600)") myData = Replace(myData, ChrW(1601), "ChrW(1601)") myData = Replace(myData, ChrW(1602), "ChrW(1602)") myData = Replace(myData, ChrW(1603), "ChrW(1603)") myData = Replace(myData, ChrW(1604), "ChrW(1604)") myData = Replace(myData, ChrW(1605), "ChrW(1605)") myData = Replace(myData, ChrW(1606), "ChrW(1606)") myData = Replace(myData, ChrW(1607), "ChrW(1607)") myData = Replace(myData, ChrW(1608), "ChrW(1608)") myData = Replace(myData, ChrW(1609), "ChrW(1609)") myData = Replace(myData, ChrW(1610), "ChrW(1610)") myData = Replace(myData, ChrW(32), "ChrW(32)") ToUniCode = Replace(myData, ")ChrW", ") & ChrW") End Function Public Function ToArabic(myData As String) myData = Replace(myData, "ChrW(1569)", ChrW(1569)) myData = Replace(myData, "ChrW(1570)", ChrW(1570)) myData = Replace(myData, "ChrW(1571)", ChrW(1571)) myData = Replace(myData, "ChrW(1572)", ChrW(1572)) myData = Replace(myData, "ChrW(1573)", ChrW(1573)) myData = Replace(myData, "ChrW(1574)", ChrW(1574)) myData = Replace(myData, "ChrW(1575)", ChrW(1575)) myData = Replace(myData, "ChrW(1576)", ChrW(1576)) myData = Replace(myData, "ChrW(1577)", ChrW(1577)) myData = Replace(myData, "ChrW(1578)", ChrW(1578)) myData = Replace(myData, "ChrW(1579)", ChrW(1579)) myData = Replace(myData, "ChrW(1580)", ChrW(1580)) myData = Replace(myData, "ChrW(1581)", ChrW(1581)) myData = Replace(myData, "ChrW(1582)", ChrW(1582)) myData = Replace(myData, "ChrW(1583)", ChrW(1583)) myData = Replace(myData, "ChrW(1584)", ChrW(1584)) myData = Replace(myData, "ChrW(1585)", ChrW(1585)) myData = Replace(myData, "ChrW(1586)", ChrW(1586)) myData = Replace(myData, "ChrW(1587)", ChrW(1587)) myData = Replace(myData, "ChrW(1588)", ChrW(1588)) myData = Replace(myData, "ChrW(1589)", ChrW(1589)) myData = Replace(myData, "ChrW(1590)", ChrW(1590)) myData = Replace(myData, "ChrW(1591)", ChrW(1591)) myData = Replace(myData, "ChrW(1592)", ChrW(1592)) myData = Replace(myData, "ChrW(1593)", ChrW(1593)) myData = Replace(myData, "ChrW(1594)", ChrW(1594)) myData = Replace(myData, "ChrW(1600)", ChrW(1600)) myData = Replace(myData, "ChrW(1601)", ChrW(1601)) myData = Replace(myData, "ChrW(1602)", ChrW(1602)) myData = Replace(myData, "ChrW(1603)", ChrW(1603)) myData = Replace(myData, "ChrW(1604)", ChrW(1604)) myData = Replace(myData, "ChrW(1605)", ChrW(1605)) myData = Replace(myData, "ChrW(1606)", ChrW(1606)) myData = Replace(myData, "ChrW(1607)", ChrW(1607)) myData = Replace(myData, "ChrW(1608)", ChrW(1608)) myData = Replace(myData, "ChrW(1609)", ChrW(1609)) myData = Replace(myData, "ChrW(1610)", ChrW(1610)) myData = Replace(myData, "ChrW(32)", ChrW(32)) ToArabic = myData 'ToArabic = Replace(myData, ") & ChrW", ")ChrW") End Function اي تعديل فنكشن ToUnicode و حذف فنكشن ToArabic نهائي : Public Function ToUniCode(myData As String) Dim dgt As String Dim Newstring As String Dim i For i = 1 To Len(myData) dgt = AscW(Mid(myData, (i), 1)) Newstring = Newstring & " Chrw (" & Chr(34) & dgt & Chr(34) & ") & " Next i Newstring = Left(Newstring, (Len(Newstring) - 2)) ToUniCode = Newstring End Function و تغير في الكود الزر BtnToArabic كبديل فنكشن ToArabic الي: On Error GoTo Err_Handler Me.frmToArabic!txtArabic.ControlSource = "=" & Me.frmToArabic!txtUnicode Exit_Handler: Exit Sub Err_Handler: MsgBox Err.Description Resume Exit_Handler و اخيرا اتمنى لك صحة وتوفيق

ان شاء الله اسوي لك تقرير كما في ذهنك و اكثر ان شاء الله انا اعرف تعديل الكود اكثر من 37 و اقل من 46 تريد لضيبط صفحتين فقط ولكن انا اريده للعمل عليه حتى لو مئات من صفحات انظر المثال و بعد اضافة سجل 1

و قيك يركة اخي ربما اخترت نمط حدود تلك المربعات شفاف او عملت حدود بخطود و الامر سهل ان شاء الله في كل حالتين If Rcount > 37 And Rcount < 100 Then ممكن ولكن بشرط ادخال تاريخ في مربع نص لا من باراميترا او عمل نموذج و الماكرو لحفظ باراميترا لاستخدام في نماذج و تقارير... و للعلم الملفك الحالي لايزال يحتاج بعض تعديلات ك ملء صفحات على تساوي حتى مع تغير ارتفاع رأس و تذييل و هضبط لك لاحقا حسب الفراغ ان شاء الله

أخي تعين ارتفاع ثابت غير صحيح مثلا 500 الا لصفحتين او ثلاثة ولكن لصفحات اكثر بجب توزيع مساحة اضافية في صفحة الاخيرة على جميع سجلات +ارتفاع سجل الاصلي اليك التعديل ملحوظة: يجب فتح تقرير من نموذج مع مراعاة ادخال معيار حقل التاريخ نموذج و تقرير متساوي تم الحل M_L.mdb

أخي جرب التعديل عملت لك على حسب مسافة سفلية في الصفحة لا على عدد اسطر بمعنى لو قمت بنقص او زيادة ارتفاع عناصر في صفحة وعدد اسطر 37 ، يرجع نفس مشكلة سابقة فلهذا عملت الكود يزداد ارتفاع الآلي بعد وصول سجلات الى نقطة محددة في صفحة مهما كان ارتفاع عناصر ، جرب الملف و وافيني بنتيجة test120 (1).mdb

تفضل اخي ارفقت لك المثال لتجربة و العمل لحد الان غير مكتمل باقي حساب صفحات اضافية 3،4،5.... و حساب تغير ارتفاع اسطر , و جاري عمل عليه test120 (1).mdb

اخي @محمد احمد لطفىهل يناسبك طريقة هذا بعد عدد سجلات 37

تفضل أخي جرب هذا Lab 2019 (1).rar

نظرتكم أجمل من مشاركاتي

وهذا على طريقة كود في حدث بغد تحديث لـ تكست بوكس 1 و تكست بوكس 2 Database.accdb

لا ادري كيف عملت over group علي حقل رصيد سابق هل تقصد على التعبير مربع رصيد سابق ؟ ياليت ترفع الملف أخي @اسلام سيدفي المرفق تجد قاعدتين على طريقتين جرب و وافيني بنتيجة قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar

مافهمت بضبط هل تقصد زيادة ارتفاع تفصيل؟ هذا ممكن جعلها في صفحة الاخيرة فقط test120 (1).mdb

أخي و حبيبي الاستاذ @ابو ياسين المشولي كلامك صح مئة في المئة ولكن السبب هو كبس زر غير موافق بالخطاء عند حفظ الاخير في ارشيف لان كان وقت متأخر من اليل و تم اكمال الباقي لا بالعكس اتا اعتبر خبرتي نقطة من بحر خبراتكم و انا من استفيد من خبراتكم. قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar و ادخالها في المعادلة يمكن تغير ها الى =Nz([الفواتير],0)+Nz([المرتجعات],0)+Nz([الخصم],0)+Nz([الدفعات],0)+[x1]

أخي @ابو ياسين المشولي عملت على حسب صورة توضحية بي بداية الموضوع هل سمعت كلام الأخ @essam rabea و قال قم برفع الرصيد السابق من التفصيل الى رأس التقربر و الأخ إسلام السيد قال لا.... اريده في تفصيل و بصوت عالي🤤

تفضل اخي التعديل على طريقة تحديد سجلات 37 سجل في كل صفحة test120 (1).mdb

و هذا حل آخر على طريقة مختلفة قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar

أخي انقل الامضاء من تذييل التقربر الى تذييل الصفحة و تنحل المشكلة ان شاء الله

تفضل الملف بعد تعديل Hr_2.rar

السلام عليكم مجرد مشاركة الفكرة MsgBox DateSerial(Year(DT), IIf(Day(DT) <= 15, Month(DT), Month(DT) + 1), 1) [DT] اسم الحقل التاريخ