ابو عارف

أخي عبدالقدوس يجب عمل فرز داخل تقرير من تاريخ إلى تاريخ.rar

أخي ابو زاهر جرب المرفق ان شاء الله يكون حسب مطلوب تعديل كود.mdb

تفضل اخي حسين يمكنك الآن ادخال ارقام من باركود او يدوي ولكن عند ادخال يدوي عليك ضغط على زر انتر سواء من نموذج او من كيبورد Test1.accdb

أخي حسين الكود في حدث بعد تحديث للمربع النص غير صحيح لان المربع تحدث مع ادخال كل رقم عكس ادخال من كي بورد انظر المرفق عملت لك على طريقتين في نموذجين في القاعدة.اضغط على زر Enter بعد ادخال ارقام بالكامل Test2.accdb

وعليكم السلام في حدث (مفتاح للاسفل) للكومبو اكتب KeyCode = 0 11.accdb

وعليكم السلام و رحمة الله و بركاته أخي حسين اليك المثال بعد تعديل و الافضل وضع شرط ان يكون المؤشر في مربع نص حتى لايرجع الخطاء حبن ضغط على الرقم و المؤشر في عنصر آخر ، اذا حبيت ذالك قم بتغير اكواد الى: If ActiveControl.ControlType = acTextBox Then SendKeys (ActiveControl.Value & 1) و كذالك باقي ازرار 2 ، 3 ، 4 ، 5 ، 6 ، 7 ، 8 ، 9 ، 0 Test2.accdb

تفضل أخي ابو عبدالله Database1 (3).rar

بعد اذن الاستاذ/ @rey360 اليك المثال مثال.accdb

وفيك بارك الله أخي لا يا أخي استعلام غير متوقف حتى نهاية 5102 سجل

تفضل أخي اليك التعديل ولا تنس تطابق جميع خصائص عناصر عند تطبيقهم على برنامج الاساسي H_R0210.rar

تفضل أخي ترقيات.rar

في حدث تحميل نموذج Home اوقف سطر الثاني On Error Resume Next ثم حاول من جديد ثم صور رسالة خطاء و ارفعها

للاسف لايوجد شيء في ايميل عندي ايميلين في ياهو و ايميل واحد في جيميل

تفضل أخي محمد H_R0210.rar

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

طول صفحة 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