ابوأسد قام بنشر ديسمبر 20, 2016 مشاركة قام بنشر ديسمبر 20, 2016 اعزائي ارجو منكم تزويدي بكود VBA لانشاء او تغيير كلمة مرور قاعدة بيانات اكسس خارجية .. مشكورين 1 رابط هذا التعليق شارك More sharing options...
ابوأسد قام بنشر ديسمبر 21, 2016 الكاتب مشاركة قام بنشر ديسمبر 21, 2016 يا مسهل يا رب رابط هذا التعليق شارك More sharing options...
ابوأسد قام بنشر ديسمبر 23, 2016 الكاتب مشاركة قام بنشر ديسمبر 23, 2016 لا زال عندي امل في الرد رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 23, 2016 مشاركة قام بنشر ديسمبر 23, 2016 تفضل : كود لكلمة مرور قاعدة بيانات بعيدة يمكنك من خلاله 1-الغاء كلمة المرور 2- تعديل كلمة المرور 3- انشاء كلمة مرور جديدة Private Sub ChangeAccessPassword(OldPass As String, NewPass As String) Dim Db As Database ' opens the databse, using the old password. ' replace "C:\MyDir\Mydb1.mdb" with your database file name Set Db = OpenDatabase("C:\MyDir\Mydb1.mdb", True, False, ";pwd=" & OldPass) ' setthe new password Db.NewPassword OldPass, NewPass ' close the database Db.Close End Sub Private Sub Command1_Click() ' replace "oldPassword" with the current database password, and ' "newPassword" with the new password you want the database will have. Call ChangeAccessPassword("oldPassword", "newPassword") End Sub 2 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر ديسمبر 23, 2016 مشاركة قام بنشر ديسمبر 23, 2016 8 ساعات مضت, ابوخليل said: تفضل : كود لكلمة مرور قاعدة بيانات بعيدة يمكنك من خلاله 1-الغاء كلمة المرور 2- تعديل كلمة المرور 3- انشاء كلمة مرور جديدة Private Sub ChangeAccessPassword(OldPass As String, NewPass As String) Dim Db As Database ' opens the databse, using the old password. ' replace "C:\MyDir\Mydb1.mdb" with your database file name Set Db = OpenDatabase("C:\MyDir\Mydb1.mdb", True, False, ";pwd=" & OldPass) ' setthe new password Db.NewPassword OldPass, NewPass ' close the database Db.Close End Sub Private Sub Command1_Click() ' replace "oldPassword" with the current database password, and ' "newPassword" with the new password you want the database will have. Call ChangeAccessPassword("oldPassword", "newPassword") End Sub بارك الله فيك ااستاذنا ابوخليل بس ممكن علي استحياء اطلب توضيح او مرفق لمعرفة طريقة التطبيق لان تلك الطريقة ستفتح افكار جديدة رابط هذا التعليق شارك More sharing options...
ابوأسد قام بنشر ديسمبر 23, 2016 الكاتب مشاركة قام بنشر ديسمبر 23, 2016 اعجز عن شكرك ورد جمايلك ساطبق الكود واخبرك بالنتيجة رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 23, 2016 مشاركة قام بنشر ديسمبر 23, 2016 اخوي محمد الاسطر عليها شرح وافي ولكن باللغة الانجليزية ويبقى طرق الاستفادة في الالغاء او التعديل او الجديد طبعا الجديد ستكون القاعدة بدون كلمة مرور اما الالغاء والتعديل فيفترض معرفة كلمة المرور القديمة وكلها تتم من خلال السطر Call ChangeAccessPassword("oldPassword", "newPassword") ' لتغيير الباسوورد Call ChangeAccessPassword("oldPassword", "") ' لإلغاء الباسوورد Call ChangeAccessPassword("", "newPassword") ' لكتابة باسوورد جديد oldPassword = يكتب مكانه الباسوور القديم newPassword = يكتب مكانه الباسوور الجديد اما علامتي التنصيص "" فهي تعني لاشي او لايوجد 1 رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر ديسمبر 24, 2016 مشاركة قام بنشر ديسمبر 24, 2016 (معدل) اساتذتي الافاضل السلام عليكم ورحمة الله وبركاته اساتذتي الافاضل استاذن منكم جميعا وانا اسف على مداخلتي واعتذر منكم جميعا لكن الموضوع اعجبني كثيرا واحببت ان اطرح سؤالا في مشاركة اخي واستاذي الفاضل ابو اسد وهو : كيف افتح قاعدة بيانات اكسس محمية برقم سري دون معرفة الرقم الخاص بها مسبقا او مثلا نسيت الرقم السري الخاص بها واريد افتحها ماهو الكود البرمجي لفتحها مع وافر التحايا تم تعديل ديسمبر 24, 2016 بواسطه حربي العنزي رابط هذا التعليق شارك More sharing options...
ابوأسد قام بنشر ديسمبر 24, 2016 الكاتب مشاركة قام بنشر ديسمبر 24, 2016 تم التطبيق بنجاح ولكن بعد استبعاد نوع المتغير Db ولا ادري لماذا لم يتعرف عليه البرنامج عندي.. اكرر الشكر للاستاذ ابوخليل تم التطبيق بنجاح ولكن بعد استبعاد نوع المتغير Db ولا ادري لماذا لم يتعرف عليه البرنامج عندي.. اكرر الشكر للاستاذ ابوخليل اليكم المرفق انشاء-تعديل-حذف كلمة مرور قاعدة بيانات بعيدة.zip 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر ديسمبر 24, 2016 مشاركة قام بنشر ديسمبر 24, 2016 19 ساعات مضت, ابوخليل said: اخوي محمد الاسطر عليها شرح وافي ولكن باللغة الانجليزية ويبقى طرق الاستفادة في الالغاء او التعديل او الجديد طبعا الجديد ستكون القاعدة بدون كلمة مرور اما الالغاء والتعديل فيفترض معرفة كلمة المرور القديمة وكلها تتم من خلال السطر Call ChangeAccessPassword("oldPassword", "newPassword") ' لتغيير الباسوورد Call ChangeAccessPassword("oldPassword", "") ' لإلغاء الباسوورد Call ChangeAccessPassword("", "newPassword") ' لكتابة باسوورد جديد oldPassword = يكتب مكانه الباسوور القديم newPassword = يكتب مكانه الباسوور الجديد اما علامتي التنصيص "" فهي تعني لاشي او لايوجد شكرا استاذنا ابوخليل.. الان اتضح الامر شكرا جزيلا رابط هذا التعليق شارك 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.