زيادة وقت تجميد البرنامج

[Alkleeg]

لدي برنامج صلاحيات المستخدمين وعند ادخال كلمة مرور خطا ثلاث مرات يتم تجميد البرنامج لهذا المستخدم 3 دقائق 

المطلوب زيادة الوقت الى 15 دقيقة  حاولت بتعديل الرقم في سطر الكود الاحمر الثاني ولم اوفق ولم اعرف معنى الرقم0.002118056

Private Sub p1_Click()
If Now() - [time] > 0.002118056 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$ = "تم تجميد الحساب 3 دقائق"
Ti$ = "خطا تجميد الحساب"
Re = MsgBox(Ms$, 0, Ti$)
Else
If IsNull([user_name]) Then
Ms$ = "لا يوجد مستخدم بهذا الاسم"
Ti$ = "خطا اسم المستخدم"
Re = MsgBox(Ms$, 0, Ti$)
Else
If IsNull([n1]) Or IsNull([n2]) 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]
Ti$ = "تحذير"
Re = MsgBox(Ms$, 0, Ti$)
End If
End If
End If
End If
End If
End Sub

تم تعديل نوفمبر 29, 2016 بواسطه ALFAALEH

[Shivan Rekany]

ممكن ترفع المرفق

ليتم العملية عليه

[ابو جودي]

10 ساعات مضت, ALFAALEH said:

لدي برنامج صلاحيات المستخدمين وعند ادخال كلمة مرور خطا ثلاث مرات يتم تجميد البرنامج لهذا المستخدم 3 دقائق 

المطلوب زيادة الوقت الى 15 دقيقة  حاولت بتعديل الرقم في سطر الكود الاحمر الثاني ولم اوفق ولم اعرف معنى الرقم0.002118056

Private Sub p1_Click()
If Now() - [time] > 0.002118056 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$ = "تم تجميد الحساب 3 دقائق"
Ti$ = "خطا تجميد الحساب"
Re = MsgBox(Ms$, 0, Ti$)
Else
If IsNull([user_name]) Then
Ms$ = "لا يوجد مستخدم بهذا الاسم"
Ti$ = "خطا اسم المستخدم"
Re = MsgBox(Ms$, 0, Ti$)
Else
If IsNull([n1]) Or IsNull([n2]) 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]
Ti$ = "تحذير"
Re = MsgBox(Ms$, 0, Ti$)
End If
End If
End If
End If
End If
End Sub

اضم صوتى لصوت اخى الحبيب شيفان المرفق 

[رمهان]

لم اتتبع البرنامج للتاكد من عمله

ولكن فقط لتعديل المدة حسب طلبك عدل الرقم الى

0.01041667

بالتوفيق

[Alkleeg]

 

 

 

نعم هذا المطلوب وتمت الإجابة وشكرا لك 

لو تكرمت للفائدة مامعنى الرقم هذا والرقم الأول وما الفرق بينهما 

[ابو جودي]

15 ساعات مضت, ALFAALEH said:

 

 

 

نعم هذا المطلوب وتمت الإجابة وشكرا لك 

لو تكرمت للفائدة مامعنى الرقم هذا والرقم الأول وما الفرق بينهما 

ممكن فضلا وكرما ارفاق قاعدة البيانات لانى حابب اشوف طريقة المستخدمين بهذه الطريقة وتحليل الاكواد
جزاكم الله خيرا

[Alkleeg]

9 ساعات مضت, ابا جودى said:

ممكن فضلا وكرما ارفاق قاعدة البيانات لانى حابب اشوف طريقة المستخدمين بهذه الطريقة وتحليل الاكواد
جزاكم الله خيرا

المرفق في مشاركة السماح للمستخدم التعديل على سجلاته فقط

وتم الإجابة منكم وجزاكم الله خيرا 

كل الاحترام والتقديرلشخصكم الكريم 

[ابو جودي]

الان, ALFAALEH said:

المرفق في مشاركة السماح للمستخدم التعديل على سجلاته فقط

وتم الإجابة منكم وجزاكم الله خيرا 

كل الاحترام والتقديرلشخصكم الكريم 

اسف جدا جدا جدا اخى الكريم واعتذر حيث اننى لم انتبه لذلك واعتذر للاثقال عليكم
جزاكم الله تعالى خير الجزاء

حالا ابحث فى مشاركاتى عن الموضوع وادخل لاستعرض المرفق مرة اخرى
اسال الله تعالى لكم الخير كله ان شاء الله 

اخى الفالح

يا الله هذا المرفق المعقد مرة اخرى
ههههههههههههههههه

طيب على كل حالى اخى الفالح انتظر منى ان شاء الله تعالى فى القريب وليس ببعيد 

قاعدة بيانات دخول المستخدمين 
التحكم فى التعامل مع القاعدة بمجموعة العمل 

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

ان شاء الله تعالى ستكون هذه القاعدة طفرة فى عالم الصالاحيات ودخول المستخدمين اعمل على هذا المشروع من فترة كبيرة وشارفت على الانتهاء ان شاء الله قد يكون اليوم او الغد ان شاء الله تعالى ويسر لى ربى 

انتهيت تقريبا من 90 %  من القاعدة  

 

[Alkleeg]

11 ساعات مضت, ابا جودى said:

اسف جدا جدا جدا اخى الكريم واعتذر حيث اننى لم انتبه لذلك واعتذر للاثقال عليكم
جزاكم الله تعالى خير الجزاء

حالا ابحث فى مشاركاتى عن الموضوع وادخل لاستعرض المرفق مرة اخرى
اسال الله تعالى لكم الخير كله ان شاء الله 

اخى الفالح

يا الله هذا المرفق المعقد مرة اخرى
ههههههههههههههههه

طيب على كل حالى اخى الفالح انتظر منى ان شاء الله تعالى فى القريب وليس ببعيد 

قاعدة بيانات دخول المستخدمين 
التحكم فى التعامل مع القاعدة بمجموعة العمل 

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

ان شاء الله تعالى ستكون هذه القاعدة طفرة فى عالم الصالاحيات ودخول المستخدمين اعمل على هذا المشروع من فترة كبيرة وشارفت على الانتهاء ان شاء الله قد يكون اليوم او الغد ان شاء الله تعالى ويسر لى ربى 

انتهيت تقريبا من 90 %  من القاعدة  

 

تنورنا كما عهدنا منكم بمشاركتك الجميله ولك مني كل الشكر والتقدير