الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كلمة المرور في الاكسيس

مغلق
بدأه samartoo في 5 مايو 2007 · 1 رد · 419 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله و بركاته

انا عامله مشروع بالأكسيس فيه كلمة مرور

بحيث اول مايَدْخُل المستخدم يُدْخِل كلمة المرور

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

وانا ابغاه قبل مرحلة الانتقال الى الفورم التالي يقفل الفورم الحالي وبعدها ينتقل الى الفورم اللي بعده

ايش الجملة اللي لازم اضيفها على الكود و وين أضيفها عشان تعمل هذا العمل؟؟؟

Private Sub Start_Click()
TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
str_Title = "Password"
str_Prompt = "Enter System Password"
If InputBox(str_Prompt, str_Title) = "toys" Then
		DoCmd.OpenForm "Category form", acNormal
   Else
		MsgBox "You Can Not Enter The System", , "Invalid Password"
		Exit Sub
		End If
End Sub
#2

يمكن هذا ينفع لقد اضفة كود

DoCmd.Close acForm, "FORMS NAME"

Private Sub Start_Click()
TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
str_Title = "Password"
str_Prompt = "Enter System Password"
If InputBox(str_Prompt, str_Title) = "toys" Then
        DoCmd.OpenForm "Category form", acNormal
        DoCmd.Close acForm, "FORMS NAME"
   Else
        MsgBox "You Can Not Enter The System", , "Invalid Password"
        Exit Sub
        End If
End Sub

      
تم تعديل هذه المشاركة بواسطة IHA KING في 6 مايو 2007 في 09:03

      

      
    

  

    
    
 هذا الموضوع مغلق.

    
 مواضيع مشابهة