hanan_ms

نسخة مختصرة لعرض التقارير فقط بسيط والكود بسيط ودالة مبسطة 1- من خلال المكرو تفتح قائمة مخترة من فورم ولكن خليته فاضي 2- لا يحمل جدول اعدادة الا مقاس الشاشة وتقرير هل يوجد مقترح بتعديل على عرض التقرير او التصميم او طريقة افضل منها ☕ ====================================( Video ) show_report_withcontrol.rar

صحيح يعمل على 64 ptrsafe ولكن لا يمعل اذا شغلة اكثر من قاعده يكون مخفي تم الغاء سطح عند الفتح ولكن دالة لم تعمل بتحجيم الفورم واحتفظ بحجمه ؟! للعلم غيرة حجم الفورم فزدة بالارتفاع والعرض

كوجهة نظري يمكن تشغيل من غير دالة المرفق بدالة آخرى تضبط قياسات الى دعم شاشة HD اما فوق القياس حسب طلب العملاء HDR 4k وتختلف بختلاف التصميم كل ما صغرة الشاشة ستعتمد على اسلوب مختلف لتلائم مع استخدامات المستخدمين تباعد وتناسق التصفيف والحقول يعني 20 حقل بنافذة بتصغرهم نفس الوضع ؟! !!!!!! والبعض مهتم بشاشة الصغيرة عند التكبير يندم صمم بالوسط عند تكبير تصميم آخر وعند تصغيرة تصميم آخر النموذج الصغير يتم تقسيمة بالازرار ليتناسب النموذج الكبير توسيط احجام الحقول ويمكن التغير من بار علوي الى جانبي وخصائص ورئيه ممتازة تم ارفقاق في سابق جزء بما سبق ذكره وانت كيفك صحيح يمكن غرضه بسيط او مشروع اصغر 😂 فورم حدث عند التحميل حدث عند الفتح حدث عند تغير الاحجام ☕

يمكن صعوبة عند البعض في مساعدة ما دام يوجد وسيط لادخال البيانات :اوريكل او اي وسيط آخر حل 1- فصل بين الحساب وضم في حقل واحد شيك /تحويل بنكي 2- Link ان تكون الحسابات خاصة لكل ملف لان الوسيط متغير والحسابات متغيرة ؟! هل الحل صحيح هذه محاوله مني 😏 مع اكمال لكم اضافة طابع ملصق نوع الورق اربعة مستطيلات بوضع الورق افقي بحجم A4 فقط ارفق الاوراق داخل الطابع بدل عن اوراق A4 سأكمل مع معالجة Flash Query ☕ ===================================( 2 Video )

عند اضافة استلام شيكات كتحصيل والصرف يختلف عملية ان كان الادخال الى نظام آخر مثال 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