ممكن فتح النموذج من خلال كتابة كلمة مرور

[فرهاد كريم]

بسم الله الرحمن الرحيم

تحية طيبة للجميع

اساتذة فى هذا المثال اريد فتح MainForm عن طريق كتابة كلمة مرور فى OpenForm بحيث عند ضغط على OpenForm يتم كتابة كلمة مرور و يتم فتح MainForm

sample.rar

[ابوخليل]

ضع هذا الكود في حدث نقر الزر

 

 

 

 

Dim stLinkCriteria As String
Dim str_Title, str_Prompt As String
'Dim mypass As Integer
'mypass = DLookup("[Password]", "tblUsers")
 str_Title = "كلمة المرور"
 str_Prompt = "ادخل كلمة المرور"
If InputBox(str_Prompt, str_Title) = 123 Then '123  or   mypass
     stDocName = "MainForm"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
   Else
        MsgBox "ادخال غير صحيح", , "لا يمكنك الدخول"
        Exit Sub
        End If
 

[فرهاد كريم]

بارك الله فيك استاذى و اخى العزيز ان شاء الله دائما موفق

استاذى العزيز قمت بكتابة الكود و كله تمام لكن استاذى العزيز لديه طلبين اذا امكن ان تعدله فى المثال الله يخليك الله يطول بعمرك

 

1 ) اريد عندما اضغط على ok بدون ما اقوم بكتابة اى نص فى ( مربع النص ) تضهر رسالة ( بان مربع النص فارغ ) بحيث الان فى هذا المثال عندما نضغط على ok تضهر خطاء فى الكود او عندما اقوم بالضغط على علامة ( X )  تضهر خطاء فى الكود

 

 

 

 

sample.rar

[ابوخليل]

طربقة اخرى

مع تلافي الخطأ

sample_up.rar

[فرهاد كريم]

بارك الله فيك استاذى العزيز ان شاء الله دائما موفق