هذا برنامج رائع لكلمة السر ... بس لي طلب رجاء وهو أن خصائص الحقل username في الجدول user هو في الأصل text بس أنا بدلته الى Numric وبعدها ما أشتغل البرنامج ... أشان كذا ولي عايزه لزم يخلي خصائص الحقل نص .
عموما أنا عايزه خصائص الحقل username تكون رقم وماعرفت كيف أغير في كود البرنامج الى رقم.مع الشكر الجزيل
Dim A As Variant
A = DLookup("[password]", "user", "[UserName]='" & [UserName] & "'")
If A = [Pass] Then
DoCmd.OpenForm "welcome"
Else
MsgBox "ÊÃßÏí ãä ßáãÉ ÇáÓÑ"
Me!Pass.SetFocus
nTry = nTry + 1
If nTry = 3 Then
MsgBox "áÞÏ ÊÌÇæÒÊí ÚÏÏ ÇáãÍÇæáÇÊ ÇáãÓãæÍ Èå"
DoCmd.Quit
End If
End If
End Sub
هذي وصلة البرنامج
http://www.geocities.com/art_rtu/pass.zip