hanan_ms

عند اضافة استلام شيكات كتحصيل والصرف يختلف عملية ان كان الادخال الى نظام آخر مثال oracle باثيون الى ولكن للاثبات والتقارير وبعض التفاصيل الى .... طلبي بسؤال يكون الفصل بتحصيل بالشيكات او تحويل بنكي اما الصرف بتحويل بنك لا يعتمد على الشيكات كيف تنظيم بالواجهة واحده من غير حقول فارغة ويوجد حقول مشتركة مثل رقم الحساب ============================== هل يفضل عمل (حقل واحد ) يذكر فية تحويل بنك او شيكات في النموذج والتقرير بشرط اذا كان الحقل شيكات يظهر حقول مع التمسية الحقول ومستمر ؟!! ما هي طريقة الافظل حتى عند طباعة التقرير Cast ! ما هو الواجب عمله وشكرا خلصة المرحلة الثانية من ربط الثابت للاعدادة مع ربط برقم الملف بالاضافة الى رقم المدني القومي مع سكانر مع الربط والاستخراج وقفت على هذي النقطة فيديو للتوضيح ما ادري بس حاسه 😏

استاذ @Moosak User جرب من جدول بشرط SQL حقل واحد ونسمية رقم الملف للتحديث نفترض على سبيل المثال بعد رقم ملف قبل الدخول الى الفورم كود يحديث رقم ملف وهذا الشرط يتأكد من جدول المستخدمين ان رقم الملف محجوز او غير محجوز وعدد المسموح من المستخدمين للدخول وفتح الفورم IF Dcount("[]","[]") = 0 then docmd.openform "" else msgbox " User INTO Form PLZ Wiat " exit sub end if واذا كان للادمن عدل على دالة if Dcount("[]","[]","[]"=[])=0 then بما يخص دخول المستخدم لرقم الفريد كان لرقم ملف او مدني قومي او لاي اصل فريد وتقدر تزيد عدد بتغير 0 الى 2 او 3 او 4 او 5 بس قريبا تحديث نطاق الجغرافي المرحلة الثانية مع المستخدمين وصلاحيات + حسابات وفواتير + اسكانر ماسح الضوئي لمفات لخاص بالارتبطات القواعد والى العام بسنوات والانواع طباعة + اعدادة اضافية لاعدادة الربط بالقواعد + رقم عام فاخترة رقم ملف + تعين وتغير رقم المرور للقواعد BE ...... يفترض لهذا الكود sub HL Dim tg2 As String Dim LH_Tablet As String LH_Tablet = "رقم_الملف" end sub HL Dim tg2 As String Dim LH_Tablet As String LH_Tablet = "رقم_الملف" Dim xyx00 As String Dim sexx00 As String xyx00 = DLookup("[" & DLookup("[B_tablet1]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "]", "[File_M]", "[" & DLookup("[B_tablet3]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "]='" & [Forms]![ID_File_word]![SHX] & "'") sexx00 = DLookup("[" & DLookup("[B_tablet2]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "]", "[File_M]", "[" & DLookup("[B_tablet3]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "]='" & [Forms]![ID_File_word]![SHX] & "'") If DLookup("[" & DLookup("[B_tablet3]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "]", "[File_M]", " [" & DLookup("[B_tablet3]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "] Like'" & [Forms]![ID_File_word]![SHX] & "' ") = [Forms]![ID_File_word]![SHX] Then tg2 = DLookup("[path_drive_db]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & DLookup("[Folder_db]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "\" & xyx00 & "\" & sexx00 & "\File_" & [Forms]![ID_File_word]![SHX] & "\" & [Forms]![ID_File_word]![SHX] '=================================== ما يحتاج تشفير مادام عندك الخوادم او وحدات التخزين لان من مميزات التشفير من الجهاز للملفات قوي + صعوبة الوصول وما في احد يشفر 😏💯 ما فهمت

ترجم قوقل =( 3 ) فقط اكسل والورد والباور بوينت على شريط الاصفر اضغط موافق فقط عند اختيار تمكين ActivteX ل2024 ============== ويستثنى اكسس اكسس 2024 شغال استاذ وعنده فوبيا

بنسبة لرموز العملات بتحدث + تقرير 😇

قصدك استخراج جدول اكسس الى ملف اكســـل مكتوب فيه الدول اكســــل يمكن اما استخدام مع قواعد الجدوال اكسس الي تسمونها قواعد خلفية يمكن اما العكس اكســــل قاصر بنية اساسية جداول باوراق عمل والاساس برمجي محدود خلاف اكسس ============================== VBA 6 ?! Excel And back db Ms Access = (Ms.Access 1 To Link File Excel ) ☕ ودي اقتنع انك تبي فورم اكســـــل امامي

الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات ==================================================( تحديث ) 1- كتابة المبالغ من الملاين الى الديشليار+ الافلاس كأدخال مبلغ كتفيقيط المبلغ 2- تصحيح اذا كان بداية المبلغ صفر 3- اضافة بعض التحسينات وخيار تنسيق المبالغ واختيار الدولة ملاحظة دالة استاذي @ابو جودي للتفقيط يوجد نقص بالمسميات الملايين ؟! ويوجد داله -ثانية تحميل نسخة من المرفق Writing millions to deshlyar with excil_editor ms access.rar

استاذ @Ahmos ☕ يمكن استكمال بنموذج وجدول عند التشغيل يتأكد اذا كان 1 يغير الى 0 لتغير عدد كمثال مسار الملفات يكون مجنون كطول اضافي كأمثله يمكن تطبيقها حماية الجهاز وتمديد وقت الاتصال ونطاق الارقام * مع نموذج آخر يأخذ نسخة كاملة من الرجستري ولاعادة الضبط بجدول 2يمكن تسجيل بعض البيانات كتلميح وشكرا على المرفق ❤️🌹

بتحديث ☕ تفعيل الارقام الكبيرة مع دالة الى تلريون ^ + وتحديد العملة بدالة مبسيطة ملاحظة الي يبي يشغل الدوال اكسل داخل اكسس ولم اقصد المبالغ كنوع الحقل رقم من اصدارات القديمة للاكسس 2013! من 2016 الى 2021 الى 2024 ارقام كبيرة

بتحديث عمل تحديث مباشر من غير تفريغ للمف اكسل المرتبط واضافة الحاق من جدول اكسس = اسرع ☕ =================================== خارج الموضوع التعقيب على الجداول كلها المرتبطه والغير مرتبطه بجدول واحد فقط DOA Ezy مراقبة المستخدم عند اخال البيانات ومرجع اذا حذف او عدل او اضافة الى جدول تلقائي مرتبط ويعرف بسنة الحالية ويجدد تلقائي الاسم والتاريخ الاضافة وتاريخ اخر عملية ونوع العملية واسم الجدول واسم الفورم ومكان العمل (جدول واحد فقط ) = Function Only لا اعلم اذا ماكرو الجداول يسبب خلل بدواران السجلات واحتمال له مسار ثاني والاهم بيانات مضبوطه 😇

الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات ================================================== فقط اختر ملف اكسل وحدد اسم ورقة العمل + رقم ورقة العمل شاهدوا الفيديو للتوضيح 1-اضافة المبالغ من فلس الى المليار + الاحتساب والجمع (بملف اكسل الى اكسس من خلال اكسس) 2-تحديث ملف الاكسل المرتبط بتحديث من جدول اكسل بضغطة زر 4- يمكن تحديد ورقة العمل مع خيار الكتابة والقراءة او للقراءة فقط 5- حفظ ملف المرتبط وجعلة جدول في الاكسس بضغطة زر Save 6- بتخصيص الدول الاكســـــــل في الملف فقط ادرج البيانات من الاكسس مباشر تنفيذ تحميل نسخة الاداة Full_Nnumber_M_Give_All_Function_Excel_To_Ma_Access.rar

الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات ================================================== تحديث على الصوااريخ 😂 1- ربط ملف الاكسس لكل تعديل تحديث تلقائي وليس تحرير كتابة وقراءة فقط 2- جمع Sum (A:A) جمع المليارات من نص اكسس الى ملف اكسل ورجوع للنص اكسس (( بالملايين )) 3- تنقل وعرض الملفات تحميل بالمرفق : Number_Miluon_Sum_With_Link_Excel_On_MsAccess.rar

الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات ================================================== تحديث على الصاروخ 😂 1- تحديث قائمة اسماء الاوراق الاكسل تلقائي Me.lst_xls_Sheets.RowSource = "" 2- خيار المستخدم اذا كان الملف للقراء والكتابة او للقراءة فقط 3- من غير عرض التصميم بعد التنفيذ ======================================= تحميل بالمرفق : Update_Link_File_excil_With_editor_Ms_Access.rar

هلا بصفاء ما عليج منهم اتذكر ان بعد الماجو طلب منج افلوس بسبب الوقت وعلى العموم حتى جم طلب لم يكن في محلة مثل التقرير هو صحيح ولكن سهل غيري بكود page الى كود السجلات Dcount وانت ما اسأتي لاي موقع بالعكس هم بعد يطلبون افلوس + بعض التوجهات للادراك واستيعاب الواجب تجنبة وعمله استاذ @Moosak ❤️🌹 يمكن حصل سوء فهم وخلها تعرض بصوبين يعني مو معقولة تقارن شركة فوق 6 مليون بمؤسسة ساعدها فيك الخير والبركة

الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات ================================================== فقط اختر ملف اكسل وحدد اسم ورقة العمل + رقم ورقة العمل شاهدوا الفيديو للتوضيح تحميل نسخة الاداة https://www.mediafire.com/file/rpd89qapnkgs0gm/Link_File_excil_With_editor_Ms_Access.rar/file

الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات ================================================== لكل نافذة في الاسفل اعدادة اذا كان للمبالغ كل 000 =1 واذا كان للارقام الهواتف عدد رقم الهاتف الخاص بالدولة مع رمز الدولة Mony AND Number_Phone_World_Ms_Access.rar

غير طريقة خلهم صور اظهار واخفاء بدوائر مغلقة اقصد حركة الكره الحمرا بمسار اتجاه بشكل مربع تغير اظهار ويتحرك من غير كود اسليب خله بكود الوقت لان كود Movie = Refresh Auto ?! dim icon as intger for icon = 1 to 30 مثال if "Game" & icon = Me ( "Game" & icon ).name then Me ( "Game" & icon ).v=true else Me ( "Game" & icon ).v=flase end if next ========================= )جرب( اذا صغط على الكيبورد بضغط مستمر ممتتالي نفس النتيجة فورم مخفي تضغط بالاسهم يغير تحريك العناصر الفورم بالوقت بشرط الغفل 1 0 ================================= الخلفية بفورم لحاله 😇 وفورم اللعبة تكون باطار مخفي الكل فوق بعض في فورم واحد جرب بعض التغيرات

تحديث المرحلة الثانية الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات ================================================== * تحكم بعدد الملفات = بسجلات مع تخصيص الفرعي * 1- اضافة حد لعدد الملفات في القاعدة المرتبطة عند الوصول تضيف قاعدة التالية جديدة مع الربط والاضافة 2- اضافة شريط الانتظار حجمة وبيانات العرض طبقا للجدول 😁 كود: If Me.HL = 1 Then Dim Loading As Integer Dim tablt_count As Integer Static intCount As Integer On Error Resume Next intCount = intCount + 10 Me.ProgressBar1.Value = intCount tablt_count = DCount("[ID]", "[ID_Card_0]") '================================================= Me.ProgressBar1.max = tablt_count * 10 '================================================= For Loading = 1 To tablt_count If intCount = Loading * 10 Then Me.SE.Caption = Loading * 10 & "% - ( Scan db - " & Loading & " )" Else End If Next Else Me.SE.Caption = "0%" intCount = 0 End If 3- تعديل على بعض وتصحيح دالة لتحديد قراءة بطاقة المدنية القومية حصر بين الجهتين للقراءة : Public Function yyx1(ByVal strname_y1 As String) As String Dim yx1 As Long If IsNull(DLookup("[yy2]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ")) Or DLookup("[yy2]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") = "" Then yx1 = 1 Else yx1 = DLookup("[yy2]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") End If yyx1 = Left(strname_y1, InStrRev(strname_y1, "") - yx1) End Function Public Function yyx2(ByVal strname_y2 As String) As String Dim yx2 As Long If IsNull(DLookup("[yy1]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ")) Or DLookup("[yy1]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") = "" Then yx2 = 1 Else yx2 = DLookup("[yy1]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") End If yyx2 = Right(strname_y2, InStrRev(strname_y2, "") - yx2) End Function Public Function mmx1(ByVal strname_m1 As String) As String Dim mx1 As Long If IsNull(DLookup("[mm2]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ")) Or DLookup("[mm2]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") = "" Then mx1 = 1 Else mx1 = DLookup("[mm2]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") End If mmx1 = Left(strname_m1, InStrRev(strname_m1, "") - mx1) End Function Public Function mmx2(ByVal strname_m2 As String) As String Dim mx2 As Long If IsNull(DLookup("[mm1]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ")) Or DLookup("[mm1]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") = "" Then mx2 = 1 Else mx2 = DLookup("[mm1]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") End If 'On Error Resume Next ' =============== Null whrer bit mmx2 = Right(strname_m2, InStrRev(strname_m2, "") - mx2) End Function Public Function ddx1(ByVal strname_d1 As String) As String Dim dx1 As Long If IsNull(DLookup("[dd2]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ")) Or DLookup("[dd2]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") = "" Then dx1 = 1 Else dx1 = DLookup("[dd2]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") End If ddx1 = Left(strname_d1, InStrRev(strname_d1, "") - dx1) End Function Public Function ddx2(ByVal strname_d2 As String) As String Dim dx2 As Long If IsNull(DLookup("[dd1]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ")) Or DLookup("[dd1]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") = "" Then dx2 = 1 Else dx2 = DLookup("[dd1]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") End If ddx2 = Right(strname_d2, InStrRev(strname_d2, "") - dx2) End Function Public Function xxy1(ByVal strname_xy1 As String) As String Dim xy1 As Long If IsNull(DLookup("[xy2]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ")) Or DLookup("[xy2]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") = "" Then xy1 = 1 Else xy1 = DLookup("[xy2]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") End If xxy1 = Left(strname_xy1, InStrRev(strname_xy1, "") - xy1) End Function Public Function xxy2(ByVal strname_xy2 As String) As String Dim xy2 As Long If IsNull(DLookup("[yx1]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ")) Or DLookup("[yx1]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") = "" Then xy2 = 1 Else xy2 = DLookup("[yx1]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") End If xxy2 = Right(strname_xy2, InStrRev(strname_xy2, "") - xy2) End Function Public Function sexx1(ByVal strname_SX1 As String) As String Dim sx1 As Long If IsNull(DLookup("[sex2]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ")) Or DLookup("[sex2]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") = "" Then sx1 = 1 Else sx1 = DLookup("[sex2]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") End If sexx1 = Left(strname_SX1, InStrRev(strname_SX1, "") - sx1) End Function Public Function sexx2(ByVal strname_SX2 As String) As String Dim sx2 As Long If IsNull(DLookup("[sex1]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ")) Or DLookup("[sex1]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") = "" Then sx2 = 1 Else sx2 = DLookup("[sex1]", "[Cantry_ID]", " [name_Cantry] ='" & [Forms]![Add_User_db_0]![G] & "' ") End If sexx2 = Right(strname_SX2, InStrRev(strname_SX2, "") - sx2) End Function تحميل نسخة من الاداة https://www.mediafire.com/file/egiq66urggilbrk/Functon_Read_XIDcard+_with_Limte_db_Siz_MsAceess.rar/file

تحديث المرحلة الثانية الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات ================================================== 1-FolderA\FolderB\File_ID اضافة اداة حصر الارقام بين الجهتين للاستخراج البيانات (ولكل دولة معيارها مع اكانية تعديل بالاعدادة ) 3- تحكم بعدد الملفات = بسجلات مع تخصيص الفرعي مراجعة دالة جلب عدد الملفات في الملف الواحد For Run Code : / part New Folder part YYYY_2 / woman/ File_ID = Complete بتحديث لو حركة العنصر IMG.Png = No Any Flash query And move reboot On way = No AnyFlash query ==================================== للتعقيب والاقتراحات

الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات ================================================== الان لاداعي بجعل البرنامج جنب سطح المكتب تم ادراج الدالة داخل الفورم (شاهد الفيديو) ==================================================😎 1- تصحيح بتغير الى رقم مع تصفير والتأسيس 2- اضافة بعض المعلومات حول العدد الاقصى كحد لعدد الملفات في الملف الواحد بالويندوز 3- %اضافة شريط تقدم من غير الوقت للعرض صفحات الانترنت عند انتقال وعند الاكتمال وعند تغير التقدم 100 كود داخل المرفق تحميل المرفق https://www.mediafire.com/file/14h58cyxm79wqwv/FIX_AT_Update_And_ADD_New_Link_db_Ms_Accesss.rar/file

هي دالة حذف ملف اذا تجاوزة عدد المسار اكثر من 255 😁 الدالة : '============================= (Fix For Long path 255 , Start path Add "\\?\" (Allright I found an answer! Windows can only handle paths under 255 characters.)) Public Function Deltet_Folder(ByVal strname As String) As String On Error GoTo Lerr Dim FX As Object Dim FXX As Object Set FX = CreateObject("scripting.filesystemobject") Set FXX = CreateObject("scripting.filesystemobject") Dim STX_Server As String STX_Server = "\\?\" Deltet_Folder = STX_Server & (strname) FX.FolderExists (Deltet_Folder) FXX.DeleteFolder (Deltet_Folder) Lerr: MsgBox Err.Description Exit Function End Function طريقة الاستدعاء حدث عند النقر : كود : Dim path_xc As String path_xc = Application.CurrentProject.path & "\ID_Card_record" Deltet_Folder (path_xc) اذا تبي للشبكة عدل على كود STX_Server صحيح انت اردني سلو باي حاقة هو نفسه JFR K Jok 😂 هي ادادة انشاء وتأسيس وادارة قواعد البيانات بنطاق الجغرافي هو صحيح لم اكمل بالكامل تفريع الملفات عند اضافة الرقم المدني القومي بأسم سنة الميلاد نفترض 1904 كمثال ملف السنة الميلادية (A) داخل ملف المنطقة (B) قاعدة البيانات المراجع (C) C:\path\A\B\C =================(Net) $ C:\path\A\B\C ' طبعا القواعد الخلفية يفضل وتكون داخل جهاز وحدة التخزين لكامل ناطحة السحاب وتعمل بالانترنت مشفر وسريع كمل في البيت من غير تكالف مادية اضافية كموقع واشتراك استاذ @Foksh شنو تعقيبك على الاداة اذا كنت فاهم😇

الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات ================================================== احفظ البرنامج على درايف او قريب من سطح المكتب والسبب لا يمكن للاداة العظيمة من ميكروسوفت وصول الى مسار الملف بستخدام سكربيت ؟! بسبب كثرة تداخل الملفات "\" Msgbox Error code 76 ?! no Fine path File = No More into read Path "\" FIX Function Selected "\" \ 2 ( للحذف الملفات والصول الى الملفات والمعالجة الا ( بدالة ارفقها بتحديثات =========================================== تحديث الاداة شبكة القواعد بيانات بنطاق الجغرافي : 1- عدة تصحيحات وتعديل الاكواد وتسريع عرض رقم المدني القومي في واجهة المستخدم (FIX AT) 2- تحسينات في الواجهات 3- اضافة معلومات حول استخدام الاداة ======================================( بتحديث الاداة ) ان وجد تعديل وازالة النماذج والدوال الزائد (ازالة المخالفات) مع بعض التعديلات =====================================================( فيديو + مرفق ) =================================================== تحميل نسخة الاداة شبكة القواعد بيانات بنطاق الجغرافي https://www.mediafire.com/file/uoef4p01sct7rdp/Update_Auto_Linkdb_ToolsAll_Add_Editor_Back_UP_Ms_Access.rar/file

(التحكم) اعتقد من تحديث التايمر جرب حفظ الصوره كامل النموذج واعتماد الكيبورد في الكل (حسب كرت الشاشة ومعالج الابتوب لازم تقيد اللعب على مواصفات الجهاز المطلوب للتشغيل ) ما تشوف الفلاش او '================================ ( جرب ) * Only Keyboard Control اما استخدام Video_View :Show: JPG Low = Ezy Scen 1 On Time Show = JPG Low تحول العرض للمشغل الفيديو ActiveX او HTML : Web_View : Coles Scrollbar (1) With ZooM (SandKey 0) Scen 1 On Time Show = JPG Low ActiveX بيفهما الشطار ====================== تحميل خارج الفورم وهو داخل الفورم اعتبرها كمعالجه

الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات حجم المرفق : MB 2.333 تحديث الاداة شبكة القواعد بيانات بنطاق الجغرافي : 1-FIX_AT تعديل بعض الواجهات مع التصحيح 2- اضافة تصفير القاعده من خلال واجهة الرئيسية عند الاقلاع يقوم بتصفية الملفات والبيانات وحذف بتأسيس جديد للمشروعك *( شاهد كيف تصفير القواعدة والملفات الى بداية التأسيس واضافة قواعدك بسهول من خلال الاداة من حيث الاضافة وتعديل والعرض (فيديو اسفل الموضوع))* 😁 3- اضافة احصائية على سبيل المثال القضايا الربحانه من القضايا الخسرانه يبدأ من او قاعده الى آخر قاعده تم انشائها بستدعاء كود التحديث عند حدث الاغلاق كود: Dim strsql As String Dim strsq2 As String Dim strsq3 As String Dim strsq4 As String Dim strsq5 As String Dim strsq6 As String Dim rung As Integer For rung = 1 To 7 If rung = 1 Then If IsNull(DLookup("[قضايا_الربحانه_A4]", "[File_Me_Customer]")) Then Else strsql = "Update ID_Card Set قضايا_الربحانه_A4 = '" & DLookup("[قضايا_الربحانه_A4]", "[File_Me_Customer]") & "'" & _ "WHERE number_ID = '" & DLookup("[ID_Card]", "[A_Link_A_ID_Card]") & "';" CurrentDb.Execute strsql, dbFailOnError End If End If If rung = 2 Then If IsNull(DLookup("[قضايا_خسرانه_A5]", "[File_Me_Customer]")) Then Else strsq2 = "Update ID_Card Set قضايا_خسرانه_A5 = '" & DLookup("[قضايا_خسرانه_A5]", "[File_Me_Customer]") & "'" & _ "WHERE number_ID = '" & DLookup("[ID_Card]", "[A_Link_A_ID_Card]") & "';" CurrentDb.Execute strsq2, dbFailOnError End If End If If rung = 3 Then If IsNull(DLookup("[تأخير_سداد_A6]", "[File_Me_Customer]")) Then Else strsq3 = "Update ID_Card Set تأخير_سداد_A6 = '" & DLookup("[تأخير_سداد_A6]", "[File_Me_Customer]") & "'" & _ "WHERE number_ID = '" & DLookup("[ID_Card]", "[A_Link_A_ID_Card]") & "';" CurrentDb.Execute strsq3, dbFailOnError End If End If If rung = 4 Then If IsNull(DLookup("[تأخير_التحصيل_A7]", "[File_Me_Customer]")) Then Else strsq4 = "Update ID_Card Set تأخير_التحصيل_A7 = '" & DLookup("[تأخير_التحصيل_A7]", "[File_Me_Customer]") & "'" & _ "WHERE number_ID = '" & DLookup("[ID_Card]", "[A_Link_A_ID_Card]") & "';" CurrentDb.Execute strsq4, dbFailOnError End If End If If rung = 5 Then If IsNull(DLookup("[اجمالي_تم_الانتهاء_وسداد_A8]", "[File_Me_Customer]")) Then Else strsq5 = "Update ID_Card Set اجمالي_تم_الانتهاء_وسداد_A8 = '" & DLookup("[اجمالي_تم_الانتهاء_وسداد_A8]", "[File_Me_Customer]") & "'" & _ "WHERE number_ID = '" & DLookup("[ID_Card]", "[A_Link_A_ID_Card]") & "';" CurrentDb.Execute strsq5, dbFailOnError End If End If If rung = 6 Then If IsNull(DLookup("[اجمالي_مبلغ _المتبقي_A9]", "[File_Me_Customer]")) Then Else strsq6 = "Update ID_Card Set اجمالي_مبلغ _المتبقي_A9 = '" & DLookup("[اجمالي_مبلغ _المتبقي_A9]", "[File_Me_Customer]") & "'" & _ "WHERE number_ID = '" & DLookup("[ID_Card]", "[A_Link_A_ID_Card]") & "';" On Error Resume Next CurrentDb.Execute strsq6, dbFailOnError End If End If If rung = 7 Then End If Next rung ======================================( بتحديث الاداة ) ان وجد تعديل وازالة النماذج والدوال الزائد (ازالة المخالفات) مع بعض التعديلات =====================================================( فيديو + مرفق ) =================================================== تحميل نسخة الاداة شبكة القواعد بيانات بنطاق الجغرافي https://www.mediafire.com/file/ryic2rk8eesw72v/Auto_Linkdb_ToolsAll_Add_Editor_Back_UP_Ms_Access.rar/file

الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات تحديث الاداة شبكة القواعد بيانات بنطاق الجغرافي : 1- اضافة شريط التحميل لحين الانتهاء 2-اضافة فحص الرقم المدني القومي قبل العرض ان رقم من الاساس لم يضاف 3- اضافة قائمة اضافة الدول لتفعيل الرقم القومي المدني بزر واحد للاضافة من غير استخدام اضافة استعلام مع الفحص الكود : '=======================================( Chack textBox ) If IsNull(Me.dx) Or Me.dx = "" Then MsgBox " لم تسجل اسم الشبكة للاضافة !فارغ سجل اسم فريد واعادة المحاولة ", vbCritical, "Close_Add " & Date Exit Sub End If '=======================================( Chack textBox On tablet ) If DLookup("[Sys_Line]", "[folder_Link2]", " [Sys_Line] Like'" & [Forms]![db_path_0]![db_Net_M]![dx] & "' ") = Me.dx Then MsgBox "اسم الشبكة مكرر ؟! سجل اسم فريد واعادة المحاولة ", vbCritical, "Close_Add_New " & Date Exit Sub Else '=======================================( Run_Add_New ) Dim Ttb3 As Recordset Set Ttb3 = CurrentDb.OpenRecordset("folder_Link2") Ttb3.AddNew Ttb3![Sys_Line] = Me.dx Ttb3.Update Form_db_Net_M.Requery MsgBox " تم ادراج شبكة جديده يمكن تخصيص الشبكة لاي نوع رقم مدني او رقم ملف او رقم قضايا او رقم السندات ", vbInformation, "Don_Add" Me.dx = "" End If 4- اضافة قائمة تعدد الشبكات لكل شبكه جداولها وتتغير باسمها مع حفاظ على شبكة الجداول الاخرى * يمكن التوسع بمشروعك بسهوله * الكود : DLookup("[path_drive_db]", "[folder_Link2]", "[Sys_Line]='رقم_المدني'") & DLookup("[Folder_db]", "[folder_Link2]", "[Sys_Line]='رقم_المدني'") ان تستبدل الرقم المدني بين علامتني 'رقم_المدني' 'رقم_الحسابات 'رقم_السندات' بما يحدد لك نوع المسار المطلوب 5- اضافة قائمة بستبدال الحقل بازرار 6- يمكن تخصيص كل من انواع الشبكات وتحديد حجم المساحة التخزين المطلوبة لقاعدة البيانات ======================================( بتحديث الاداة ) ان وجد تعديل وازالة النماذج والدوال الزائد (ازالة المخالفات) مع بعض التعديلات =====================================================( فيديو + مرفق ) =================================================== تحميل نسخة الاداة شبكة القواعد بيانات بنطاق الجغرافي https://www.mediafire.com/file/lkkmhxjx4hfr37k/Update_Link_Chack_Give_Add_MsAccess.rar/file

تحديث الربط بنطاق الجغرافي : 1- تعديل الواجهات وفصل تخصيص 2- اضافة اختيار المستخدم مسار القاعده 1- بمسار البرنامج 2- بمسار جهاز او مسار شبكه المحليه 3- تحديد الحجم الاقصى لمساحة تخزين القاعده بالفحص بأضافة الدالة القياس حجم تخزين الملفات ☕😎 Option Compare Database Option Explicit Private Declare PtrSafe Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long Private Declare PtrSafe Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long '~~~ Function to calculate the size of the file (over 2 GB size) Public Function GetSize(ByVal file As String) As Currency Const GENERIC_READ = &H80000000 Const FILE_SHARE_READ = &H1 Const FILE_SHARE_WRITE = &H2 Const OPEN_EXISTING = 3 Dim lngHandle As Long Dim lngLow As Long Dim lngHigh As Long Dim curFileSize As Currency ' Open the file lngHandle = CreateFile(file, GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0&, OPEN_EXISTING, 0, 0) ' Get the file size lngLow = GetFileSize(lngHandle, lngHigh) CloseHandle lngHandle ' Combine the Low and High values into one currency ' Must use the '@' currency declaration or IDE will balk curFileSize = 4294967295@ * lngHigh If lngLow < 0 Then curFileSize = curFileSize + (4294967295@ + (lngLow + 1)) Else curFileSize = curFileSize + lngLow End If GetSize = curFileSize End Function '~~~ Function to return size in appropiate formatting (means GB's, MB's , etc. at the end) Public Function FormatSize(ByVal size As Currency) As String Const Kilobyte As Currency = 1024@ Const HundredK As Currency = 102400@ Const ThousandK As Currency = 1024000@ Const Megabyte As Currency = 1048576@ Const HundredMeg As Currency = 104857600@ Const ThousandMeg As Currency = 1048576000@ Const Gigabyte As Currency = 1073741824@ Const Terabyte As Currency = 1099511627776@ If size < Kilobyte Then FormatSize = Int(size) & " bytes" ElseIf size < HundredK Then FormatSize = Format(size / Kilobyte, "#.0") & " KB" ElseIf size < ThousandK Then FormatSize = Int(size / Kilobyte) & " KB" ElseIf size < HundredMeg Then FormatSize = Format(size / Megabyte, "#.0") & " MB" ElseIf size < ThousandMeg Then FormatSize = Int(size / Megabyte) & " MB" ElseIf size < Terabyte Then FormatSize = Format(size / Gigabyte, "#.00") & " GB" Else FormatSize = Format(size / Terabyte, "#.00") & " TB" End If End Function اغلب الاوامر Dlookup ,if=[]) 4- اضافة ميزة اضافة الرقم المدني القومي بكافة القواعد وتأكد ان الرقم جديد للاضافة * واذا كان حجم القاعده وصل الى الحد المحدد يضيف قاعده بيانات جديده تلقائي مع الربط والاستكمال * .... ============================( بتحديث ) ان وجد تعديل وازالة النماذج والدوال الزائد (ازالة المخالفات) مع بعض التعديلات ============================ ( فيديو + مرفق ) تحميل الملفات https://www.mediafire.com/file/0a06hfptedhaii5/X_Update_Add_Chack_SizeFile_Link_db_Ms_Access.rar/file