hantantin قام بنشر سبتمبر 11, 2020 مشاركة قام بنشر سبتمبر 11, 2020 السلام عليكم لدي برنامج مقسوم الى جداول و برنامجي وعند االدخول الى برنامجي اجبر الزبون على الدخول عن طريق زر حيث يحتوي على كود يأخذ مسار الجداول تلقائيا بغض النظر عن مكان وجود البرنامج.لكن المشكلة عند وضع كلمة سر للجداول حينها لا يتم الربط بالمسار الجديد و يبقى مسار الجداول المحدد سابقا .ارجو الاطلاع على المرفقات و شكرا مقدما ملاحظة:كلمة السر للجداول 123 و عند إلغاء كلمة المرور للجداول و فتح البرنامج مرة اخرى و الضغط على زر الدخول يتفعل المسار الجديد بدون مشاكل zzzz.rar رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر سبتمبر 11, 2020 مشاركة قام بنشر سبتمبر 11, 2020 وعليكم السلام ورحمة الله وبركاتة تفضل اخي الكريم طبعا للامانة الاكواد للاساتذة المبدعين @jjafferr , @ابو تراب with_pass_for_tables.rar رابط هذا التعليق شارك More sharing options...
hantantin قام بنشر سبتمبر 11, 2020 الكاتب مشاركة قام بنشر سبتمبر 11, 2020 اولا مشكور اخ ازهر على مجهودك...ولكن طريقتك هي لفتح الجدول فقط و ادخال كلمة السر وليس لعمل ارتباط مباشر مع الجداول...اذا لاحظت في الكود الخاص ببرنامجي انا اعمل ارتباط مباشر مع الجدول لذلك يظهر المسار للجداول.لذلك اريد من الاخوة من يستطيع تعديل الكود حتى يتم الارتباط مع كلمة السر مباشرة وجدت كود خاص بانشاء جدول عن طريق الربط من مكان اخر ...ولكن يجب ان لا يحتوي برنامجي على الجداول عند تشغيل الكود...يعني ممكن اول مرة يتم انشاء الجداول ولكن اذا دخلت مرة ثانية يظهر خطأ. طلبي هو مساعدتي على دمج كود برنامجي بكلمة السر كما هو الحال بالكود بالاسفل. طبعا الاكواد للامانةدمج من عدة اخوة واخوات من عدة منتديات Option Compare Database Public Function CreateTableLink(strBEPath, strSourceTableName, strPassword) As Boolean Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strConnect As String Dim strLinkName As String strLinkName = strSourceTableName strConnect = "MS Access;PWD=" & strPassword & _ ";DATABASE=" & strBEPath Debug.Print strConnect Set db = CurrentDb Set tdf = db.CreateTableDef tdf.Connect = strConnect tdf.SourceTableName = strSourceTableName tdf.Name = strLinkName db.TableDefs.Append tdf Set tdf = Nothing Set db = Nothing End Function Private Sub Command0_Click() Call CreateTableLink("C:\Users\lenovo\Desktop\ttt\11\55_be.accdb", "table", "123") End Sub 45 دقائق مضت, ازهر عبد العزيز said: طبعا للامانة الاكواد للاساتذة المبدعين @jjafferr , @ابو تراب طبعا شكرا لجميع الاخوة و الاخوات لمساعدتهم رابط هذا التعليق شارك More sharing options...
hantantin قام بنشر سبتمبر 11, 2020 الكاتب مشاركة قام بنشر سبتمبر 11, 2020 @jjafferr @ابو تراب @أبو آدم اخت زهراء او اي احد من الاخوة و الاخوات ارجو المساعدة رابط هذا التعليق شارك More sharing options...
hantantin قام بنشر سبتمبر 12, 2020 الكاتب مشاركة قام بنشر سبتمبر 12, 2020 (معدل) ان كان لا يوجد حل.... هل هناك طريقة لمنع المستخدمين من الوصول الى الجداول حتى لا يستطيعو التعديل تم تعديل سبتمبر 12, 2020 بواسطه hantantin رابط هذا التعليق شارك More sharing options...
hantantin قام بنشر سبتمبر 12, 2020 الكاتب مشاركة قام بنشر سبتمبر 12, 2020 @jjafferr تم حل المشكلة بطريقة ثانية حيث تم عمل نموذج داخل الجداول الغاء شيفت و الدخول برقم سري متصل بيوزر الادمن ارجو ان يكون هنالك حل ابسط كما طرحت بالسؤال رابط هذا التعليق شارك More sharing options...
أفضل إجابة علاء محمد علي قام بنشر سبتمبر 13, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 13, 2020 معي هذه الطريقة التي تشترط وجود الجداول في نفس مجلد الواجهات ضع هذه الوظيفة في موديول ثم قم باستدعائها في النموذج الافتتاحي في حدث عند التحميل Public Function connect() Dim dada Dim wrkJet0 As Workspace Dim dbs0 As DAO.Database adad = CurrentProject.Path & "\DATA.accdb" Set wrkJet0 = DBEngine.Workspaces(0) Set dbs0 = wrkJet0.OpenDatabase(adad, False, False, ";PWD=" & "PASSWORD") Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb() For Each tdf In db.TableDefs If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then On Error Resume Next tdf.Connect = ";DATABASE=" & adad tdf.RefreshLink End If Next End Function عليك تغيير كلمة PASSWORD بكلمة السر الخاصة بقاعدة بيانات الجداول ولاحظ تن قاعدة البيانات عندي اسمها Data.accdb. وعليك كتابة اسم قاعدة البيانات الخاصة بك بدلا منها اتمنى ان تكون الطريقة مفيدة لك اخوك علاء 1 رابط هذا التعليق شارك More sharing options...
hantantin قام بنشر سبتمبر 13, 2020 الكاتب مشاركة قام بنشر سبتمبر 13, 2020 مشكور اخ علي.. سوف احاول ان استفيد من شرحك الان, hantantin said: مشكور اخ علي.. سوف احاول ان استفيد من شرحك اخ علاء رابط هذا التعليق شارك More sharing options...
hantantin قام بنشر سبتمبر 14, 2020 الكاتب مشاركة قام بنشر سبتمبر 14, 2020 مشكور اخ علاء على الطريقة الناجحة... ملاحظة :يمكن دمج كودك مع الرابط في الكود الخاص ببرنامجي وبهالحالة يصبح الكود ممتاز 1 رابط هذا التعليق شارك More sharing options...
علاء محمد علي قام بنشر سبتمبر 14, 2020 مشاركة قام بنشر سبتمبر 14, 2020 13 ساعات مضت, hantantin said: مشكور اخ علاء على الطريقة الناجحة... ملاحظة :يمكن دمج كودك مع الرابط في الكود الخاص ببرنامجي وبهالحالة يصبح الكود ممتاز انا سعيد جدا لأنك استفدت من الكود تحياتي لك اخي العزيز رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.