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

[lyla]

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

[rudwan]

أهلا بالأخت الواعدة ليلى و المجتهده دوما

من المنطقي أن يكون اسم المستخدم نص و ليس رقم

و على كل حال اذا أردتي تحويله الى رقم فيجب تحويله من جدول المستخدمين - حقل اسم المستخدم غيري الخصائص الى رقم

أما الكود المذكور أعلاه فليس له علاقة بتغيير خاصية الحقل الى رقم

تم تعديل أبريل 3, 2006 بواسطه rudwan

[lyla]

وتتوقع ليه طرحت السؤال أخ رضوان !!! هذا ولي صار معاي لما حولته من الجدول لرقم طلع إرور ولما حطيته تكست مشي الحال. ولو قرأت الموضوع السابق لعرفت أني تطرقت لما أشرت عليه :o

[ahmedbadr]

أخت ليلي

من الممكن إضافة مثال و بإذن الله لدي الحل

أحمد بدر

[lobna]

السلام عليكم

انا بحاجه ماسه لفتح الملف التالي مكتوب في السطر الاول :username وفي السطر التاني password وفي الثالث رقم الهويه

https://online.openu.ac.il/cgi-bin/sso.pl?T...nPage=FocusPage

[rudwan]

طيب عدلي الكود الأول الى مايلي :

Dim A As String

    A = DLookup("[password]", "user", "[UserName]=" & [UserName])