hanan_ms

الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات ================================================== الان لاداعي بجعل البرنامج جنب سطح المكتب تم ادراج الدالة داخل الفورم (شاهد الفيديو) ==================================================😎 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

الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات تحديث وتصحيح 1- تعديل كود البحث والعرض فوري من اي قاعدة تم انشائها يبحث عن الرقم المدني القومي بكافة القواعد ثم يربط بالاضافة لك قاعدة الرقم المدني القومي '====================================( شرط اذا كانت القيمة واحدة فقد بسجل واحد ) '=================================( IF Null Record Or NO Give Me Only A_Link_A_ID_Card ) Dim strsq2 As String Dim Ttb3 As Recordset strsq2 = "Delete * from A_Link_A_ID_Card" CurrentDb.Execute strsq2 Set Ttb3 = CurrentDb.OpenRecordset("A_Link_A_ID_Card") Ttb3.AddNew Ttb3![ID_Card] = Me.SHX Ttb3.Update DoEvents '==================================( شرط الرقم القومي المدني ان وجد تم الاتصال ) If DLookup("[number_ID]", "[ID_Card]", " [number_ID] Like'" & DLookup("[ID_Card]", "[A_Link_A_ID_Card]") & "' ") = DLookup("[ID_Card]", "[A_Link_A_ID_Card]") Then Me.Refresh 2- تصحيح نسخة الاحتياطية للارتباط بقاعدة الفرعيه ( الرقم المدني القومي ) ============================================ ( بتحديث ) 1- بتحديث عملية حذف القاعدة وكافة ملفاتها ونسخ الاحتياطية ☕ =============( فيديو + مرفق ) تحميل المرفق https://www.mediafire.com/file/tsqlmmenfcvxp37/Update_Fix_AT_Link_db_Ms_Access.rar/file

الاداة مفتوحة المصدر 😎 يمكنك التعديل وتقديم الحلول والاقتراحات تحديث البرنامج كما ذكر 1)- تسريع شريط التقديم مع خيار الغاء النسخ الاحتياطية السبب : عند توفر اجهزة وحدات التخزين فيه تقوم بعمل نسخ احتياطية بسرعة واداء عالي من غير تفشير مقصد لا ترفع مستوى التشفير كما يأمن اجهزة وحدات التخزين تأمين عند عطل احدى الاقراص فقط استبدال القرص المعطوب مثل الاجهزة جهاز سكليوجي و ناس 2)- اضافة مباشر لكل رقم المدني القومي عند اختيار الدولة على سبيل المثال مصر =14 الكويت = 12 السعودية = 10 3)- اضافة قائمة العملاء للمراجعين ودخول والربط عن طريق DlookUp '=================================( IF Null Record Or NO Give Me Only A_Link_A_ID_Card ) Dim strsq2 As String Dim Ttb3 As Recordset strsq2 = "Delete * from A_Link_A_ID_Card" CurrentDb.Execute strsq2 Set Ttb3 = CurrentDb.OpenRecordset("A_Link_A_ID_Card") Ttb3.AddNew Ttb3![ID_Card] = Me.tx Ttb3.Update ======================================== ( بتحديث ) عمل تعديل على بعض الاكواد مع التصحيح والانتهاء ثم للرفع بمكتبة موقع ☕ ========================( فيديوين +2 ) '==================================( Prt 1) ====================================( Prt 2) تحميل النسخة https://www.mediafire.com/file/c8cshc4ayh5cwbz/Update_Link_db_With_User_Customar_Ms_Access.rar/file

تحديث البرنامج الاتصال بقواعد البيانات 1- اضافة نسخة احتياطية كحد اقصى بالعدد الذي تختاره يأخذ آخر نسخة ويحذف أقدم نسخة احتياطية 2- توفير اعدادة الاختيار بنسخة الاحتياطية بكل من القواعد الاساسية وقواعد تفريع منها * 3- تصحيح بالضافة Me.refresh للتحديث عند التحديد الرقم المدني اضافة تحديد الرقم وعرض البيانات بقائمة ==========================( تحديث ) 1- استبدال تحديد المسار الكل DlookUp 2- تحديث سجل الاعدادة من غير استعلام فوري ....... ==========================( Video )☕ تحميل النسخة : https://www.mediafire.com/file/qezjejmmdsogg5d/Update_LinkDB_withBackUp_Ms_Access.rar/file

1- اضافة بالعدادة الدولة والرمز وعدد الارقام* 2- ادراج بقناع الادخال متغير ضغطتين بنقر المزدوج لزر الماوس* Number_Phone_World_Ms_Access.rar

استاذ @Foksh 🌹❤️☕ ان شاء الله تكون بخير والله يعينك على شغلك الثاني من جهة حديث الاداة 1- عرض البيانات على نطاق الجغرافي 2- عمل نسخة احتياطية لكل قاعدة مضافة ونسخة تلقائية 3- ترحيل كافة الحسابات المنتهية بقواعد البيانات المضافة 4- خيار عرض معلومات المدنية ==========================( تحديث الاداة) 1- عمل تحديد عدد النسخ الاحتياطية على سبيل المثال اذا اخترة 10 نسخ اذا وصل 11 نسخة يحذف الاول القديم ويحتفظ على اقصى عدد 10 ويمكنك الاختيار Back_UP_Auto Clean Old db ====== 2- جلب بيانات المدنية عند العثور بدل من عرض القاعدة المرتبطة فقط مع خيار التشغيل النموذج 3- عرض نموذج ادخل الرقم المدني فقط وعرض البيانات 4- مع هدية 😏 ============( فيديو ) تحميل الاداة https://www.mediafire.com/file/zwpivi0mufmhlms/Update_Link_db_Ms_Access.rar/file

الحلق التكرارية Integer ممكن صحيح ولكن افضل التثبيت في بعض الحقول تحتاج الى ضغطتين للاستيعاب العفو استاذ @Foksh ☕❤️🌹 يسعدني مرورك 😎 كأنه عندك كود ينور واستبدل

شكرا استاذ @Foksh ☕🌹 انسخ الكود واستبدلة 😁 ولا تنسى بعد التجربة عطني النتيجة هذا الكود طيارة اذا شافة الرقم القومي عند التفاف لكل قاعدة اعادة ربط يفتح مع ربط الرقم القومي استبدل الكود بزر محرك البحث عند الرقم القومي If IsNull(Me.SHX) Or Me.SHX = "" Then MsgBox " ÇÏÎá ÑÞã ÇáÞæãí ÇáãÏäí ", vbCritical, "Close Don" Exit Sub End If '===================================( Run Chack All Speed ) No Need Run DOA.36 = 32 Bit = Error Old List For instoll this Error DOA.36 on Drive Dll $ !! Dim Tb As DAO.TableDef Dim db As DAO.Database Dim RS As DAO.Recordset Set db = CurrentDb Set RS = db.OpenRecordset("ID_Card_0") Do Until RS.EOF Dim A As Integer Dim tg1 As String Dim tg2 As String 'Dim tgX As String 'tgX = DLookup("[number_ID]", "[ID_Card]", "[number_ID]=" & "' [Forms]![ID_word]![SHX]'") tg1 = Me.save_folder_item tg2 = DLookup("[path_drive_db]", "[folder_Link2]") & "\" & "ID_Word\File_" Me.file = RS.Fields("DB") For A = 1 To 1 For Each Tb In db.TableDefs If Tb.name = "ID_Card" Then Tb.Connect = ";DATABASE=" & tg1 & "\" & RS.Fields("db") & ".accdb" Tb.RefreshLink End If Next Next A DoEvents Me.one.Requery Me.rx.Requery Me.rx.SetFocus Me.rx.Selected(lrow:=0) = True Me.rx.SetFocus DoEvents '==================================( ÔÑØ ÇáÑÞã ÇáÞæãí ÇáãÏäí Çä æÌÏ ÎÑæÌ æÇÛáÇÞ ) If DCount("[ID]", "[Chack_All_form_db_Give_ONe]") = 1 Then '=====================================( ÝÍÕ æÌæÏ ÇáÞÇÚÏÉ ) DoEvents Me.one.Requery Me.rx.Requery Me.rx.SetFocus Me.rx.Selected(lrow:=0) = True Me.rx.SetFocus DoEvents Forms("ID_word").Form.XXC.Form.subFormData.SourceObject = "Link_ID_Card" '& .RecordSource On Error GoTo Lerr 'Call b2_Click For A = 1 To 1 For Each Tb In db.TableDefs If Tb.name = "File_Me_Customer" Then Tb.Connect = ";DATABASE=" & tg2 & Me.SHX & "\" & Me.SHX & ".accdb" Tb.RefreshLink End If Next Next A DoEvents DoCmd.OpenForm "File_Me_Customer" End If Me.file = RS.Fields("DB") RS.MoveNext Loop RS.Close Set RS = Nothing db.Close Me.one.Requery Me.rx.Requery Me.rx.SetFocus Me.rx.Selected(lrow:=0) = True Me.rx.SetFocus Exit Sub Lerr: MsgBox Err.Description 'MsgBox "áÇíÊæÝÑ ÇÊÕÇá ÈÇáÞÇÚÏÉ íÑÌì ÇáÊÃßÏ ãä ÇÚÏÇÏÉ ÇáÔÈßÉ " Me.one.Requery Me.rx.Requery Me.rx.SetFocus Me.rx.Selected(lrow:=0) = True Me.rx.SetFocus بتحديث استكمال التقرير والكل مع الشروطك + تحريل الحسابات Auto At Button k ☕

تحديث وتوضيح لك استاذ @Foksh 1-فصل الواجهة واجهة الامامية تغير عند الاختيار اما نطاق الجغرافي لحاله 2- اضافة ميزة النسخة الاحتياطية لمفهموك القواعد الخلفية عند الاشاء الاساسي وعند اغلاق للقواعد الفرعية 3-ميزة استبدال نسخة بالاساسي و الكل من غير استخدام جدول Ez ==================================== ملاحظة الطلب عند البحث ( يأخذ بس آخر سجل ويبحث فية ) ؟! 😇 شوف زر بحث وعرض البيانات تابع الفيديو بنتظارك استاذ @Foksh 🌹❤️☕ تحميل المرفق https://www.mediafire.com/file/tgobjoul2e31ixn/up_date_Link_x3.rar/file

عند البحث عند كل سجل مسار لقاعدة البيانات /عند بداية دوران يربط يتحقق من الشرط ثم التالي الى آخر سجل بشرط التحقق من الاستعلام اذا كانت يوجد بيانات ينفذ اذا لم يجد بيانات يستمر الى السجل التالي الى آخر سجل اما قاعدة 36 رقم افتراض الى 1000 (الى آخر سجل هذا مسار القاعد للربط واذا كان البحث بأسم او رقم فريد بسجل واحد فقط شرط في الكود اذا كان الاستعلام اكثر من سجل في القاعدة الواحده تصفية وحذف بيانات جدول ونفترض اسمة Qury حذف السجلات تنفيذ الكود ونتفترض rs.editor rs.filde(record link) if dcount("[id]","Qury") =0 then else docmd.openQury end if rs.move next rs.nothng or Loop =================================== المطلوب بختصار بحث عن رقم او اسم بكافة قواعد البيانات ولكل قاعدة بيانات مسار في السجل ويبدأ الكود من او سجل إلى آخر سجل فقط ☕

شنو الي ما فهمتة ؟ ☕ عشان اوضح لك استاذ @Foksh

!!\\\.accdb مسار الربط المطلوب البحث من اول سجل = من اول قاعدة الدوران الى آخر سجل لكل سجل اعادة ربط وفحص ربط واستعلام بشرط ان كان البحث رقم فريد فتح نموذج اما اذا كان اسماء = سجلات حذف والحاق بجدول مع فتح نموذج * آلية الدوران اما كود او دالة بس بنتظارك استاذ @Foksh🌹❤️☕

استاذ @Foksh ❤️🌹 ( اعتبر ان البرنامج ( اداة ببساطة فالبعض يربط الجداول بالمفهوم القاصر لكل سنة قاعدة جديده ؟! لنفترض الحسابات المفترض 1- جدول Ram *جمع الحسابات الغير منتهية مع جدول + رأس الاجماليات من مبالغ واسماء (احصائية) وتكون بسجل واحد بسجل القاعده الربط 2-جدول الترحيل * يقيس حجم مساحة التخزين الجدول المرتبط اذا كان 2 جيجا ينشأ تلقائي قاعدة جديدة ويعبي 3- محرك بحث * يقوم بربط من اول قاعدة منشأه عن طريق الاستعلام اذا كان رقم فريد يربط القاعدة * اما اذا كانت بحث من اول قاعدة الى قاعدة 36 عن اسم Foksh اكثر من اسم = اكثر من سجل 4- يلحق البيانات الى جدول Ram Qury ====================================== ببساطة الطلب هو دالة 1- تقوم بربط عن طريق Dlookup 2- دالة او كود تبحث عن جداول تربط من قاعدة 1 الى آخر قاعدة 36 عند العثور على الاسم يفتح الفورم للرقم المدني عند الاستعلام يلحق الى جدول الثالث يلتف من القاعدة الاولى الى آخر قاعدة وسلامتك استاذ @Foksh ============================================== اما في الاعلى اداة أختيار حسب طبيعة بيانات المشروع اما بنطاق جغرافي او كل سنة او تصفية وترحيل ..☕❤️🌹

❤️🌹

تم حل من غير انتظار عرض النموذج عند الربط 1- عرض القواعد البيانات على نطاق جغرافي جرب الاضافة والربط ☕ بس يمكن بتحديث استبدال طريقة دوران القواعد بطريقة ثانية 😇 ؟! وينكم هي صعبة لدرجة دي 😂 Link_Into_Link_MS_Access.rar

احدث مش حد امعبرني 😂 انا احل طلبي ! 1- جلب اسماء الجداول مع فتح القاعدة + 2- ربط لكل سجل قاعدة بتحديث بلنك بحث 1- 00 الى رقم القومي المدني ربط وفتح اضافة حقلين بالجدول آخر قاعدة ما خلصة 2GB ربط واضافة رقم القومي المدني ============================== وشوف الحل بدنا داله ما تسألش عن المنطق 😂 اضغط الزر لسجل التالي لحظة اسكر وافتح ثاني ده مش شغلانه يا قدعان ID_Card_Link_AndUpdat.rar

الحد القصى الصحيح 1 للربط قصدك واحد ينشأ سجل و5 ينشؤن سجلات الفرعية بعد عن التأخير والاخطاء والعكس فوق 1000 مرتبط حسب الالية ؟! لاني حسبة ان طلبك للملفات الخارجية مثل اكسل او ورد مرتبط خارجي MySQL?!

تحديث مع نفس الطلب اضافة جداول بضمها بقاعدة واحدة بنفس الاسم + فحص اذا كانت محلية تحذف ويضاف الربط بسؤال 2- اضافة قواعد دائمة لكل سجل جدول وربط فقط تحديد مكان الفولدر بتحديث اكمل يمكن ان الموقع اغلق انشاء حساب للزوار فقط المسجلين او المعلومة غلط :Password = " " ) بموضوع مستقل لا يوجد داله بدل من الكود او عمل فورم يتأكد من الفحص قبل التنفيذ Editor_Link_Add_table_Ms_Access.rar

برنامج بسيط بفضل الاستاذ محمود عبدالغفار عدلة علية فقط اختيار سنة ربط الكل بالملفات الفرعية من غير تحديد الربط كامل بسجل خطوات بيسطة اختر ملف القواعد صفرية للبرنامج -1 2-اختر جديد ثم اكتب اسم السنة مع الترميز واختيار مكان حفظ ثم اختيار حفظ وتطبيق 3- تخصيص الربط + فحص + اختيار الملف الفرعي ملاحظة : اعدادة الربط مره واحدة لتطبيق على الكل للتوصيح متابعة الفيديو وطلبي عند افتح اي فورم تحويل كود الفحص الى ميدوال يعطي شرط اذا 1 او 0 للفتح الفورم او حفظ البيانات او اي عملية كود ان يكون الشرط قواعد مربوطه = 1 بزر تجربة فتح الفورم مع تأكد شرط الاتصال اما كلمة المرور موضوع مستقل 😇 Link_Chack_OPenForm_Ms_Access.rar