هذا برنامج رائع لكلمة السر ... بس لي طلب رجاء وهو أن خصائص الحقل 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