شاشة الدخول

[bouchaib zakaria]

السلام عليكم 

كيفية عمل شاشة دخول  باسم مستخدم "1" و كلمة مرور "1"  بفضل الجدول الذي يحمل  اسم مستخدم "1" و كلمة مرور "1" 

الشرط  : الدخول مباشرة دون عملية ادخال لاسم المستخدم  و كلمة المرور  في الحقول 

وشكرا 

[Mo3taz3zzat]

وعليكم السلام 

توجد اكثر من طريقة - بس بالطريقة الى طالبها دة كدة يبقي شاشة دخول سوريه يعني مالها داعي وشكلاً فقط

ابسطها هنعمل فورم شاشة تسجيل دخول ونسميها Login

وهنفترض ان الشاشة الرئيسية عندك بعد تسجيل الدخول اسمها Intro

هنعملQuery من جدول الى فيه اسماء المستخدمين والباسورد

هنخلي الـ Record Source لفورم الـ Login  عليه

ونعمل 2 text boxes 

الاول باسم txtuser ويكون ال Control source بتاعه خانة اليوزر من ال Query 

والتاني باسم txtpass ويكون ال Control source بتاعه خانة ألباسورد من ال Query 

ونعمل زرار اسمو btnLogin

وندخل نحرر كود الزرار عند الضغط ونكتب فيه الاتي 

    If Me.txtUser = Me.UserName And Me.txtPass = Me.Passwrd Then    ' if username/password in form = username/password in table 
        DoCmd.OpenForm "Intro", , , , , acWindowNormal				' open intro form
        DoCmd.Close acForm, "login", acSaveYes						' close login form
    Else	
       MsgBox "Wrong Login info", vbCritical, "Error"				
    End If

كدة اول م تفتح الفورم هيكون واقف على اسم اليوزر والباسورد الى موجودين في الجدول 

ملف القاعدة مرفق

 

شكراً

Login.accdb