تعديل على كود

[Allfaaleh]

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

لدي برنامج بصلاحيات 

النموذج الرئيسي اسمه 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

[jjafferr]

السلام عليكم

 

استعمل الاداة:

.

لكي تعرض الكود في المشاركة بطريقة صحيحة ، ليسهل علينا قراءة الكود :

 

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

.

جعفر

[Allfaaleh]

المعذره اخوي جعفر