Allfaaleh قام بنشر ديسمبر 5, 2017 مشاركة قام بنشر ديسمبر 5, 2017 (معدل) السلام عليكم ورحمة الله وبركاته لدي برنامج بصلاحيات النموذج الرئيسي اسمه 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 وفتح النموذج الرئيسي وطلع لي الرسالة تم تعديل ديسمبر 5, 2017 بواسطه Allfaaleh رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 5, 2017 مشاركة قام بنشر ديسمبر 5, 2017 السلام عليكم استعمل الاداة: . لكي تعرض الكود في المشاركة بطريقة صحيحة ، ليسهل علينا قراءة الكود : 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 . جعفر 1 رابط هذا التعليق شارك More sharing options...
Allfaaleh قام بنشر ديسمبر 5, 2017 الكاتب مشاركة قام بنشر ديسمبر 5, 2017 المعذره اخوي جعفر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان