انشاء نموذج للدخول باسم مستخدم وكلمة مرور الى برنامج اكسس
عندما يكون البرنامج متاح لاكثر من شخص للعمل علية فلا بد من حماية البرنامج من المستخدمين غير المصرح لهم من خلال اضافة نموذج للدخول الى قاعدة الببيانات، ولانشاء نموذج الدخول الى البرنامج نتبع الخطوات التالية:
- انشاء جدول للمستخدمين يتم فيه تخزين اسماء المستخدمين وكلمات مرورهم ويحتوي على حقل لاسم المستخدم وحقل لكلمة المرور
- انشاء نموذج للدخول ويحتوي على مربعي نص غير مستندة الى مصدر بيانات، وزري امر واحد للالغاء والثاني للدخول
- اضافة الكود التالي في حدث عند النقر في زر موافق
VBA
If pas = DLookup("userpass", "tusers", "usernam='" & [usr] & "'") Then
DoCmd.OpenForm "Form1"
Else
MsgBox "يوجد خطأ في اسم المستخدم او كلمة المرور"
End If
If pas = DLookup("userpass", "tusers", "usernam='" & [usr] & "'") Then
ردحذفالسلام عليكم
عفوا يعطيني رساله عند تشغيل النموذج
بانه يوجد خطأ في تشغيل هذه السطر بانه يوجد في التعبير خطأ ( العثور على ’[1’
نعم نفس المشكلة عندي وانا استخدم اكسس 2010، ما الحل؟؟
حذفالسلام عليكم معي نفس المشكل هل وجدت الحل
حذفاستاذي شكر على الشرح ... ممكن كيف استطيع اذا كان عندي ادخالات اجعلها جميع باسم المستخدم الذي ادخل اليوز و الباس صح
ردحذفالسلام عليك استاذي
ردحذفانا عملت برنامج في الاكسس وكان يحتوي علي ارتباط تشعبي
وفي مرحلة التصميم البرنامج كان الارتباط التشعبي يعمل بشكل طبيعي وكنت اضيف الية الارتباط ويشتغل
ولاكن عندما قمت بتحويلة الي برنامج تنفيذي لم تعمل الارتباط التشعبي فما هوة السبب
وشكرا
استاذي اريد كود للزر موافق باسم المستخدم وكلمة المرور للدخول الى الشاشة الرائيسيه
ردحذف
حذفIf Me.txtpass = DLookup("[password]", "user", "[user_name]= '" & Me.txtname & "'") Then
DoCmd.OpenForm "home"
DoCmd.Close acForm, "login"
Else
MsgBox "اسم المستخدم أو كلمة المرور غير صحيحة !!", vbInformation, "خطأ"
End If
هاد كود الدخول خلال اسم مستخدم وكلمة مرور
ردحذفIf Me.txtpass = DLookup("[password]", "user", "[user_name]= '" & Me.txtname & "'") Then
DoCmd.OpenForm "home"
DoCmd.Close acForm, "login"
Else
MsgBox "اسم المستخدم أو كلمة المرور غير صحيحة !!", vbInformation, "خطأ"
End If