اقدم لكم اليوم شرح لفكرة جديدة توصلت اليها واريد ان افيدكم واستفيد منكم ومن تعلقاتكم
الدرس باختصار هو تجميع لفكرة من الاستاذة العملاقة زهرة (ام عهود) والاستاذ العملاق رضا عقيل اساتذتى ولى كامل الشرف ان اتعلم منهم
قدمت الاستاذة زهرة درس هنا
وفية تم شرح اننا نستطيع عمل ملف خادم (رئيسى-به الجداول الرئيسة- ) ويحتوى على كلمة مرور وبعد اعدادة نجعل امتدادة بدل من .accdb نجعلة .data او اى شى اخر نريدة مع الاخذ فى الاعتبار التغير داخل الملف المخدوم الذى سيتم شرحة لاحقة
-الملف المخدوم ويحتوى على باقى النماذج والاستعلامات والتقارير دون الجداول الرئيسة لانها موجودة بالخادم
من خلال هذا النموذج كنا نحدد قاعدة البيانات ونضغط او فيتم اعادة الربط
ما كان يحدث فى الخلفية هو الاتى يقوم الزرار بملى خانة كلمة المرور فى الملف الخادم ويقوم باستيراد الجداول كرابط LINK السابق اعددها مع الاخذ فى الاعتبار انه اذا كان الملف موجود سابقا يمسحة ويعيد ادراجة
هذا بكل تاكيد ياخذ وقت فى كتابة اكواد البرمجة وخاصا اذا كان عدد الجداول كبير
والكود هو كالاتى
Private Sub OK_Click()
Dim wrkJet As Workspace
Dim dbs As Database
Set wrkJet = DBEngine.Workspaces(0)
Set dbs = wrkJet.OpenDatabase([TxtFilename], False, False, ";PWD=1234")
DoCmd.SetWarnings False
DeleteTabel
On Error GoTo ErrorT
E = [TxtFilename]
DoCmd.TransferDatabase acLink, "Microsoft Access", E, acTable, "111", "111", False
DoCmd.TransferDatabase acLink, "Microsoft Access", E, acTable, "11", "11", False
DoCmd.TransferDatabase acLink, "Microsoft Access", E, acTable, "Check rejected", "Check rejected", False
DoCmd.TransferDatabase acLink, "Microsoft Access", E, acTable, "custmer_inf", "custmer_inf", False
DoCmd.TransferDatabase acLink, "Microsoft Access", E, acTable, "eznkapd", "eznkapd", False
DoCmd.TransferDatabase acLink, "Microsoft Access", E, acTable, "ordars", "ordars", False
DoCmd.TransferDatabase acLink, "Microsoft Access", E, acTable, "plan heder1", "plan heder1", False
DoCmd.TransferDatabase acLink, "Microsoft Access", E, acTable, "product1", "product1", False
DoCmd.TransferDatabase acLink, "Microsoft Access", E, acTable, "reps men inf", "reps men inf", False
DoCmd.TransferDatabase acLink, "Microsoft Access", E, acTable, "statument", "statument", False
DoCmd.TransferDatabase acLink, "Microsoft Access", E, acTable, "Switchboard Items", "Switchboard Items", False
DoCmd.TransferDatabase acLink, "Microsoft Access", E, acTable, "Switchboard Items1", "Switchboard Items1", False
DoCmd.TransferDatabase acLink, "Microsoft Access", E, acTable, "trans", "trans", False
MsgBox "Êã ÑÈØ ÇáÌÏæá ÈäÌÇÍ"
ExitError:
Exit Sub
ErrorT:
MsgBox "ÇáÑÌÇÁ ÇáÊÃßÏ ãä ÇáãáÝ ", , ""
Resume ExitError
End Sub
Public Sub DeleteTabel()
On Error Resume Next
DoCmd.DeleteObject acTable, "11"
DoCmd.DeleteObject acTable, "111"
DoCmd.DeleteObject acTable, "Check rejected"
DoCmd.DeleteObject acTable, "custmer_inf"
DoCmd.DeleteObject acTable, "eznkapd"
DoCmd.DeleteObject acTable, "ordars"
DoCmd.DeleteObject acTable, "plan heder1"
DoCmd.DeleteObject acTable, "product1"
DoCmd.DeleteObject acTable, "reps men inf"
DoCmd.DeleteObject acTable, "statument"
DoCmd.DeleteObject acTable, "Switchboard Items"
DoCmd.DeleteObject acTable, "Switchboard Items1"
DoCmd.DeleteObject acTable, "TRANS"
End Subوطبعا اذا كان هنا خطاء فى ربط الجداول يجب ادخول الى شاشة اعادة الربط الموضحة سابقا
درس الاستاذ رضا عقيل
/index.php?showtopic=56706&view=findpost&p=292338
قدم فى هذة المجموعة بعض الاداوت الرائعة ومنها ربط قواعد البيانات محور موضوعنا
قدم فيها نموذج لا يفتح الا اذا كان هنا خطاء فى الوصول الى الملف الخادم وهذا النموذج يتم تحميلة فى كل مرة يفتح فيها قاعدة البيانات وهذة خاصية جميلة جدا
قدم ايضا فية شى رائع جدا وهو اعادة ربط الجداول دون استيرادها من جديد
ولكن المشكلة كانت تكمن فى ان الكود الخاص به لا يستخدم الباسورد كما قدمت الاستاذة زهرة
ومع دمج هذين الاختراعين توصلنا الى اختراع جديد يقدم الاتى
يفتح فقط اذا كان هناك خطاء فى الوصول الى قاعدة البيانات
يصل الى القواعد المحمية بكلمة مرور ويتجاوزها (اقصد طبعا الباسورد معروف سابقا لاالا يعتقد البعض انها تفتح القواعد كاختراق )
لا يستورد الجداول كلنكات ويمسح القديم ولكنة فقط يعدل مكان الخادم على كل الجداول المرتبطة
من خلال نموذج اخر نستطيع ربط القاعد بملف خادم اخر
يمكنا من حماية البيانات ووجوب الدخول الشرعى لها
الملف المعدل مرفق
انتظر تعليقاتكم ورددودكم واى اضافات ت