Alkleeg قام بنشر نوفمبر 29, 2016 مشاركة قام بنشر نوفمبر 29, 2016 (معدل) لدي برنامج صلاحيات المستخدمين وعند ادخال كلمة مرور خطا ثلاث مرات يتم تجميد البرنامج لهذا المستخدم 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 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر نوفمبر 30, 2016 مشاركة قام بنشر نوفمبر 30, 2016 ممكن ترفع المرفق ليتم العملية عليه 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر نوفمبر 30, 2016 مشاركة قام بنشر نوفمبر 30, 2016 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 اضم صوتى لصوت اخى الحبيب شيفان المرفق 1 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر نوفمبر 30, 2016 مشاركة قام بنشر نوفمبر 30, 2016 لم اتتبع البرنامج للتاكد من عمله ولكن فقط لتعديل المدة حسب طلبك عدل الرقم الى 0.01041667 بالتوفيق رابط هذا التعليق شارك More sharing options...
Alkleeg قام بنشر ديسمبر 1, 2016 الكاتب مشاركة قام بنشر ديسمبر 1, 2016 نعم هذا المطلوب وتمت الإجابة وشكرا لك لو تكرمت للفائدة مامعنى الرقم هذا والرقم الأول وما الفرق بينهما رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر ديسمبر 1, 2016 مشاركة قام بنشر ديسمبر 1, 2016 15 ساعات مضت, ALFAALEH said: نعم هذا المطلوب وتمت الإجابة وشكرا لك لو تكرمت للفائدة مامعنى الرقم هذا والرقم الأول وما الفرق بينهما ممكن فضلا وكرما ارفاق قاعدة البيانات لانى حابب اشوف طريقة المستخدمين بهذه الطريقة وتحليل الاكواد جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
Alkleeg قام بنشر ديسمبر 1, 2016 الكاتب مشاركة قام بنشر ديسمبر 1, 2016 9 ساعات مضت, ابا جودى said: ممكن فضلا وكرما ارفاق قاعدة البيانات لانى حابب اشوف طريقة المستخدمين بهذه الطريقة وتحليل الاكواد جزاكم الله خيرا المرفق في مشاركة السماح للمستخدم التعديل على سجلاته فقط وتم الإجابة منكم وجزاكم الله خيرا كل الاحترام والتقديرلشخصكم الكريم رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر ديسمبر 1, 2016 مشاركة قام بنشر ديسمبر 1, 2016 الان, ALFAALEH said: المرفق في مشاركة السماح للمستخدم التعديل على سجلاته فقط وتم الإجابة منكم وجزاكم الله خيرا كل الاحترام والتقديرلشخصكم الكريم اسف جدا جدا جدا اخى الكريم واعتذر حيث اننى لم انتبه لذلك واعتذر للاثقال عليكم جزاكم الله تعالى خير الجزاء حالا ابحث فى مشاركاتى عن الموضوع وادخل لاستعرض المرفق مرة اخرى اسال الله تعالى لكم الخير كله ان شاء الله اخى الفالح يا الله هذا المرفق المعقد مرة اخرى ههههههههههههههههه طيب على كل حالى اخى الفالح انتظر منى ان شاء الله تعالى فى القريب وليس ببعيد قاعدة بيانات دخول المستخدمين التحكم فى التعامل مع القاعدة بمجموعة العمل ادراج المستخدمين كل على مجموعة العمل المناسبة امكانية اضافة مجموعات العمل او تعديل اسم المجموعات او حذفها بكل سهوله ان شاء الله تعالى ستكون هذه القاعدة طفرة فى عالم الصالاحيات ودخول المستخدمين اعمل على هذا المشروع من فترة كبيرة وشارفت على الانتهاء ان شاء الله قد يكون اليوم او الغد ان شاء الله تعالى ويسر لى ربى انتهيت تقريبا من 90 % من القاعدة 2 رابط هذا التعليق شارك More sharing options...
Alkleeg قام بنشر ديسمبر 2, 2016 الكاتب مشاركة قام بنشر ديسمبر 2, 2016 11 ساعات مضت, ابا جودى said: اسف جدا جدا جدا اخى الكريم واعتذر حيث اننى لم انتبه لذلك واعتذر للاثقال عليكم جزاكم الله تعالى خير الجزاء حالا ابحث فى مشاركاتى عن الموضوع وادخل لاستعرض المرفق مرة اخرى اسال الله تعالى لكم الخير كله ان شاء الله اخى الفالح يا الله هذا المرفق المعقد مرة اخرى ههههههههههههههههه طيب على كل حالى اخى الفالح انتظر منى ان شاء الله تعالى فى القريب وليس ببعيد قاعدة بيانات دخول المستخدمين التحكم فى التعامل مع القاعدة بمجموعة العمل ادراج المستخدمين كل على مجموعة العمل المناسبة امكانية اضافة مجموعات العمل او تعديل اسم المجموعات او حذفها بكل سهوله ان شاء الله تعالى ستكون هذه القاعدة طفرة فى عالم الصالاحيات ودخول المستخدمين اعمل على هذا المشروع من فترة كبيرة وشارفت على الانتهاء ان شاء الله قد يكون اليوم او الغد ان شاء الله تعالى ويسر لى ربى انتهيت تقريبا من 90 % من القاعدة تنورنا كما عهدنا منكم بمشاركتك الجميله ولك مني كل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.