بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'كود اغلاق النموذج الرئيسي وفتح نموذج اخر وبعد اغلاقه فتح الرئيسي'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله وبركاته لدي برنامج بصلاحيات النموذج الرئيسي اسمه user3 وبعد ادخال كلمة المرور في نموذج user1 يفتح الرئيسي بهذا الكو د Private Sub p1_Click() If Now() - [time] > 0.01041667 And [error_level] = 3 Then [error_level] = 0 End If If IsNull([n3]) Then DoCmd.OpenForm "user1", acNormal Else If [error_level] = 3 Then Ms$ = "تم ايقاف المستخدم 15 دقيقة " Ti$ = "و" RE = MsgBox(Ms$, 0, Ti$) Else If IsNull([user_name]) Or IsNull([password]) Then Ms$ = "اضف اسم المستخدم وكلمة المرور" Ti$ = "و" RE = MsgBox(Ms$, 0, Ti$) Else If [user_name] = [n1] And [password] = [n2] Then DoCmd.OpenForm "user3", acNormal [error_level] = 0 DoCmd.Close acForm, "user2" Else [error_level] = [error_level] + 1 [time] = Now() Ms$ = "كلمة المرور خطأ للمرة" & [error_level] n2.SetFocus Ti$ = "و" RE = MsgBox(Ms$, 0, Ti$) End If End If End If End If End Sub وما فيه اي مشكلة وعند فتح احد النماذج مثلا CC نفتحه بهذا الكود If [CC] = 0 Then DoCmd.OpenForm "CCC" Else DoCmd.OpenForm "CC", acNormal, , , , acDialog End If المشكلة يبقى النموذج الرئيسي user3 مفتوح ارغب تعديل الكود لفتح نموذج CC واغلاق النموذج الرئيسي وبعد اغلاق النموذج CC يفتح الرئيسي ولا تنسون صلاحيات المستخدمين وشكرا لكم حيث استخدمت كود اغلاق نموذج CC وفتح النموذج الرئيسي وطلع لي الرسالة
