hanan_ms

تحديث واستكمال 1- يحول الملفات PDF للنوعين املون ,وابيض واسود (الى صور) 2-طبقا لحواف الصفحة 3- عرض مجموعات للملف المحول PDF To IMG 4- عند التنفيذ الاستخراج والتحويل عدم تمكين الازرار والحقول الى بعد الانتهاء ونسيت الزر نفسة بس المهم الي يمشي في السوق والطلب ولا يكون عليه شبه يمكن اجنبي يعمل Exe خارجي عند مسار Documents لتمرير واستخراج صور *************** المهم ======( استاذ\ @Foksh عندك كود ودالة ما تظهر رسالة حفظ كل ما تقدم شريط التقدم صح عدل المرفق وخلني اشوفه لو تناديني يا اميره اسلوب لطيف 😂🌹 تجميل المرفق https://www.mediafire.com/file/7xcv908w0d10bop/V_1_2_PDF_To_IMG_Trluoon.rar/file

اداة بسيط للتحويل الملفات من PDF الى صور يدعم برامج الوسيط من غير تقيد Adobe ومع اي ابديت وتحديث 1- يمكن تصغير حجم النافذة اقل من المستطيل كود بسيط لتصغير حجم عرض الصفحة 2- يمكن حذف الاضافة وعرض ==( -للاستكمال استبدل 100% بعدد الاجمالي للصفحات مع بعض التعديل قبل الانتهاء لقياس شريط التقدم + عند ضغط تنفذ الا ستخراج يجب الغاء تمكين الحقول والازرارا ☕ ==( لنظر اعتقد فتح موقع بسيط لعرض المواضيع تحميل قريبا عند حساب @hanan_ms استاذ @Foksh هل تنصح بستخدام ادوات OLE للصور ( للاستخراج للورد و الاكسل وادوبي ) تحميل المرفق https://www.mediafire.com/file/p3lw3gxlb2g5cv4/PDF_To_IMG_Trluoon.accdb/file

استكمال وتحديث 1- معالجة التشغيل خاصة التقارير بوضع الاقلاع اكسس مصغر عند ملف اختصار سطح المكتب كود بنموذج الاقلاع 2- عرض التقارير كامل الجدول , الاستعلام , الفلترة بنافذة التقارير 3- اضافة وتحسين بعض الخيارات ... '========( اعتقد عدد السجلات مفتوح ولطباعة بنافذة معاينة قبل الطباعة ونافذة السجلات المستمرة مع تنسيق الشرطي ثابت ومستقر ما توقف على تلريون اتكمل تحميل المرفق https://www.mediafire.com/file/hdhrjlj4t4srt7o/Update_3_Miluon_Record_IN_One_Speed_Read_db_Caption_Filter.rar/file يجب اختيار زر انشاء عشر جداول ثم زر الاتصال ثم زر اضافة بيانات وهمية ثم التشغيل😇 للتجرب الى تحديث التالي مع الاستكمال والمعالجة

كملت وبقى سكه داله عامة وكود مصغر Private Sub ActiveXCtl63_Click() '===( مصدر التقسيم من النموذج الحالي) '===================(حقل الترقيم , عدد التقسيم , اسم الجدول او الاستعلام , اسم النموذج كماهو لفتح التقرير وعبار عن ادوات التحكم , سحب الفلترة من التنموذج الحالي) Call OpenPagedReportWithFilter("D_1", "frm_1", "العملاء", 100, "A7") End Sub Private Sub ActiveXCtl64_Click() '===( مصدر التقسيم من الاستعلام) '===================(حقل الترقيم , عدد التقسيم , اسم الجدول او الاستعلام , اسم النموذج كماهو لفتح التقرير وعبار عن ادوات التحكم) Call OpenPagedReport("frm_1", Me.db.Caption & "_SQL_Date_1", 100, "A7") End Sub Private Sub ActiveXCtl65_Click() '===( مصدر التقسيم من الاستعلام) '===================(حقل الترقيم , عدد التقسيم , اسم الجدول او الاستعلام , اسم النموذج كماهو لفتح التقرير وعبار عن ادوات التحكم) Call OpenPagedReport("frm_1", Me.db.Caption & "_SQL_Date_2", 100, "A7") End Sub

اكملت يعمل بملايين السجلات للعرض التقارير للمعاينة قبل الطباعة مع التقسيم =========================================( @Foksh 🌹☕ 64 bit مع اقل ذاكرة 4 GB والمفترض يكون على القليل 8 GB احسن من 32 يسخن ويحترق اقصد يعطب لا يستوعب الامكانيات 😂 المهم عرفة وين يشتغل ==================================( استاذ @ابو جودي❤️🌹☕ والمهم ملاحظاتك قبل الرفع واستكمال الموضوع الثاني ====================( ممكن اعدل على الكود

؟! تمة التجربة مرفق يأخذ العربي فقط استخدمة المرفق لعرض معاينة التقرير في النموذج يتحجم ويتغير طبقا للكود فقط هل لديك دالة تقسم بعد الاستعلام او الفلترة الى فلترة لعرض السجلات في التقرير وتعلم ان التقرير لحد معين من السجلات يمكن يعرضها او ينهار ويغلق ؟! , فنقسم كل 5000 الف سجل هل المعلومة صحيحة وهل لديك دالة استاذ @ابو جودي ❤️🌹☕ \ نستفيد من عصير خبرتك 😇 تحميل المرفق https://www.mediafire.com/file/0j7r9h3j0bk8rkw/Report_after_print_In_Form_with_tools_V1.mp4/file

تحديث لتجربة معالجة 'على سبيل المثال عند الكود او الدالة Call OptimizeStart { Coding }}; Call OptimizeEnd Option Compare Database Option Explicit Dim ixx As Integer, j As Integer, J1 As Integer ' تعريف المتغير العام لتخزين حالات الاتصال Public GlobalSavedLinks As Collection ' تحرير الذاكرة باستخدام API Private Declare PtrSafe Sub EmptyWorkingSet Lib "psapi" (ByVal hProcess As LongPtr) #If VBA7 And Win64 Then Private Declare PtrSafe Function GetCurrentProcess Lib "kernel32" () As LongPtr Private Declare PtrSafe Function SetProcessWorkingSetSize Lib "kernel32" (ByVal hProcess As LongPtr, ByVal dwMinimumWorkingSetSize As Long, ByVal dwMaximumWorkingSetSize As Long) As Long #Else Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function SetProcessWorkingSetSize Lib "kernel32" (ByVal hProcess As Long, ByVal dwMinimumWorkingSetSize As Long, ByVal dwMaximumWorkingSetSize As Long) As Long #End If ' في قسم التصريحات العامة للوحدة النمطية #If VBA7 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #Else Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #End If Private Sub PauseForUIUpdate(Optional ms As Long = 50) DoEvents Sleep ms DoEvents End Sub Private Sub OptimizeStart() On Error Resume Next ' 1. إيقاف تحديثات واجهة المستخدم Application.Echo False DoCmd.Hourglass True ' عرض مؤشر الانتظار ' 2. إيقاف التحذيرات والرسائل DoCmd.SetWarnings False ' 3. تحسين إعدادات العرض Application.SetOption "Show Status Bar", False Application.SetOption "Show Animations", False ' 4. تعطيل الأحداث المؤقتة للنموذج ' Me.Painting = False ' Me.FastLaserPrinting = True ' Me.ScrollBars = 0 ' تعطيل أشرطة التمرير مؤقتاً ' 5. تحرير الذاكرة Call ClearMemory ' 6. تعطيل تحديث الشاشة للنموذج Me.Repaint End Sub Private Sub OptimizeEnd() On Error Resume Next ' 1. إعادة تفعيل تحديثات واجهة المستخدم Application.Echo True DoCmd.Hourglass False ' 2. إعادة تفعيل التحذيرات DoCmd.SetWarnings True ' 3. استعادة إعدادات العرض Application.SetOption "Show Status Bar", True Application.SetOption "Show Animations", True ' 4. إعادة تفعيل خصائص النموذج ' Me.Painting = True ' Me.FastLaserPrinting = False ' Me.ScrollBars = 2 ' أشرطة التمرير الرأسية ' 5. تحديث النموذج Me.Refresh DoEvents End Sub Private Sub ClearMemory() On Error Resume Next ' طريقة بديلة لتحرير الذاكرة بدون استخدام API Dim db As DAO.Database Set db = CurrentDb ' تحرير ذاكرة الاستعلامات Dim qdf As DAO.QueryDef For Each qdf In db.QueryDefs qdf.Parameters.Refresh Next qdf ' إغلاق كائنات قاعدة البيانات Set qdf = Nothing Set db = Nothing ' تحرير ذاكرة النماذج المفتوحة Dim frm As Form For Each frm In Forms frm.Repaint Next frm End Sub ' دالة مساعدة للتحقق من دعم الخاصية Private Function IsPropertySupported(obj As Object, propName As String) As Boolean On Error Resume Next Dim testVal testVal = CallByName(obj, propName, VbGet) IsPropertySupported = (Err.Number = 0) Err.Clear End Function Private Sub ProcessInChunks() Dim i As Long Dim totalRecords As Long Dim chunkSize As Long totalRecords = 1000 ' عدد السجلات الكلي chunkSize = 100 ' حجم كل جزء Call OptimizeStart For i = 0 To totalRecords Step chunkSize ' معالجة جزء من البيانات ProcessChunk i, i + chunkSize ' تحديث الشاشة بين الحين والآخر If i Mod 200 = 0 Then Me.Repaint DoEvents End If Next i Call OptimizeEnd End Sub Sub ClearMemoryCache() ' محاولة لتحرير الذاكرة Dim i As Long For i = 1 To 100000 ' عملية فارغة لتحفيز تنظيف الذاكرة Next i ' طريقة أخرى لتحرير الذاكرة #If VBA7 And Win64 Then Call SetProcessWorkingSetSize(GetCurrentProcess(), -1, -1) #Else Call SetProcessWorkingSetSize(GetCurrentProcess(), -1, -1) #End If End Sub 1- يجب وضع اختصار سطح المكتب ثم تنقل لاي مكان مع تحديد الخصائص الاختصار الثاني انزال النافذه 2- استكمال انتقال بين القواعد واعادة قائمة المنسدلة .RowSouros 😇 3- والعملية بداية الكود ونهايتة تكون لاكود براميتر او لعدة عمليات استعلام وفلترة وتعديل احجام الادوات تستعمل او ان يكون اجراء المطول 4- انظر لتجربة اسرع تحميل المرفق https://www.mediafire.com/file/1n73xsnmz1l0yk8/Fix_Update_2_Miluon_Record_IN_One_Speed_Read_db_Caption_Filter.rar/file يجب اختيار زر انشاء عشر جداول ثم زر الاتصال ثم زر اضافة بيانات وهمية ثم التشغيل😇 للتجرب الى تحديث التالي مع المعالجة

تحديث واستكمال للتوضيح عند عمل نموذج مستمر اعتيادي مع تقيد الحقول بتنشيق الشرطي سيكون وميض وترميش نصف النموضج لكل حركة ( عند الغاء التنسيق الشرطي لا وميض ولا ترميش بملايين السجلات ) واذا استخدمة حقل او حقلين لتنسيق شرطي سوف يكون خفيف في الاسفل والاعلى النموذج وميض وترميش فقدمة لك الحل البديل بلا ترميش وميض والكل تنسيق شرطي مع سرعة التنقل 1- اضافة عرض مباشر 10000 الف سجل سرعة مناسبة مقسم ويعمل مع استعلام العادي ويمكنك التحكم بتعديل عدد السجلات داخل الكود 2- استعلام عادي لعرض التواريخ المنتهية ولم تنتهي في الموجموعات 3- بحث لكافة الجداول المرتبطة عن رقم فريد كرقم المدني القومي وملاحظة عند البحث ستجد عند جدول واحد لان البحث برقم ID متشابهة لجداول المرتبطه 4- استخدام التنسيق الرشرطي Caption 5- اضافة فحص للجداول بتحديد من حقل قائمة جم يشيل 😇 6- مع بعض التصحيحات وتحسينات تحميل المرفق https://www.mediafire.com/file/uoe599ymzy53g0p/Update_2Miluon_Record_IN_One_Speed_Read_db_Caption_Filter.rar/file يجب اختيار زر انشاء عشر جداول ثم زر الاتصال ثم زر اضافة بيانات وهمية ثم التشغيل😇 للتجرب الى تحديث التالي مع المعالجة

استكمال 1- اضافة فحص الاتباط 2- فحص وقياس عدد السجلات في الجداول المحلية والشبكة المحلية 3- اضافة 10 جداول مع اضافة بيانات اكثر وهمية الى 1000000 مليون سجل وتقدر تعدل الى 20,000,0000 مليون 4- نافذة الانشاء الجداول والارتباط بحزمة 10 جداول 5- تشغيل وتقسيم والفلترة تم التصحيح 6- اضافة سجلات بتسلسل مع تحديد معيار الحد الاقصى للسجلات لكل جدول مرتبط داخل الكود ============== ناقصة فحص اذا الجدول مرتبط عند التنقل والاضافة بتحديث تحميل المرفق https://www.mediafire.com/file/umnrtj2n6yvijtc/200,000,000_Record_IN_One_Speed_Read_db_Caption_Filter.rar/file يجب اختيار زر انشاء عشر جداول ثم زر الاتصال ثم زر اضافة بيانات وهمية ثم التشغيل😇 للتجرب الى تحديث التالي

معالجة بسيطة @ابو جودي❤️🌹☕ ههه سقط الجمل فستأسد الحمل مثال قديم😇 ما اقصد الي في مثال يعمل من غير ترميش ولا وميض مع اضافة واجهة 2 @Moosak ❤️🌹☕جرب تحميل المرفق https://www.mediafire.com/file/53opy2k4ubezau9/Ms_hanan_Test_Desktop_Menu.rar/file

توضيح ارسالة تظهر قبل التعديل لاستاذ @Foksh الرسال ماتظهر عندي ولا لجهاز ثاني من غير اي خمرشة غير صحيح يا استاذي @ابو جودي ❤️🌹☕ يبليها معالجهة بس والي عندي وجهاز غيري من غير ومضي

بشارك محاوله لاستاذ @ابو جودي ❤️🌹☕ لعبت بكود @Foksh تحميل المرفق https://www.mediafire.com/file/ljc1tzl04v3dcch/Eye+Ms_hanan.rar/file

تحديث واستكمال 1- اضافة معايير البحث من 1 الى 5 لكل حقل بحث وقلترة 2- اضافة خيار فقط نتائج البحث والاستعلام فلترة او عرض الكل بموجموعات في الكود بسيط فقط 3-تصحيح الفلترة وعرض الحقول المفلترة + بعض التصحيحات الثانية 😇 4- بعض تحسينات في الواجهة ☕ ... تحميل المرفق https://www.mediafire.com/file/9jtu7ex6u7pshx2/V_4_Speed_Read_db_Caption_Filter.rar/file

تحديث واستكمال 1- تصحيح وجعل المجموعات مع مؤشر التنقل 2- تصحيح الفلترة وتصفية 3- يجب تفريق الرامات عند اغلاق النافذة تم تصحيح والاضافة عند اغلاق مع تحسينات الخفيفة ☕ تحميل المرفق https://www.mediafire.com/file/ygbvh7nazz2oqpz/V_3_7_Speed_Read_db_Caption_Filter.rar/file