اذهب الي المحتوي
أوفيسنا

مشكلة في تسجيل الدخول


Oliver916

الردود الموصى بها

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

انا لدي قاعدة بيانات فيها نموذج لادخال اسم المستخدم و كلمة المرور قبل الدخول

المهم

انني عندما ادخل الاسم و كلمة المرور لا يقبلهم

الا اذا كانت على الحاسوب الذي قمت بتصميم قاعدة البيانات عليه!

مالحل؟

و هذا الكود:

Option Compare Database

Public LngInterval As Long

Private Sub CmdClose_Click()

    DoCmd.Quit

End Sub


Private Sub Form_Current()

Me.Ad = Date

Me.Refresh

End Sub

Private Sub CmdLogin_Click()

On Error Resume Next

If Me.Bd > Me.Ad And Me.TxtUser = "AA" And Me.TxtPWD = "bb" Then

DoCmd.Close

DoCmd.OpenForm "frm Main"

ElseIf Me.Bd < Me.Ad And Me.TxtUser = "AA" And Me.TxtPWD = "BBCC" Then

MsgBox "Login Successed", vbInformation + vbInformation, "Login"

DoCmd.Close

DoCmd.OpenForm "frm Main"

Else

 MsgBox "Incorrect user name or password", vbExclamation + vbOKOnly, "Login Failed"

End If

End Sub


Private Sub Form_Load()

    'disables the timer control

    LngInterval = 0

End Sub



Private Sub Form_Timer()

    'Unlock controls and make available for input and turn off the hourglass

    Me.TxtUser.Locked = False

    Me.TxtPWD.Locked = False

    Me.CmdLogin.Enabled = True

    DoCmd.Hourglass False

End Sub

تم تعديل بواسطه Oliver916
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information