مشكلة عندي في نموذج اسم المستخدم وكلمة المرور

[نور الرياض]

السلام عليكم

بدأت الآن بتصميم مشروعي الثاني

وبدأت بالنموذج الخاص باسم المستخدم وكلمة المرور

وعند الضغط على كلمة دخول ينقل إلى النموذج الرئيسي لحد الآن الأمور تمام

ولكن عند العودة إلى نموذج كلمة السر واسم المستخدم تكون البيانات موجودة

هل فيه كود يمسح البيانات

كلمة المرور=1

اسم المستخدم =1

انتظر مساعدتكم

الخطة الفصلية.rar

[ابوخليل]

نموذج الدخول المفترض ان يتم اغلاقه عند الدخول حينما ندخل البيانات الصحيحة

وهذا كفيل بمسح الارقام ، ثم حين تريد العودة تجد الحقول فارغة

ولكن المشكلة لديك الآن بعد الاطلاع على المرفق : ان الكود المسؤول عن ذلك يحتاج الى اعادة نظر

جرب وأدخل في مثالك المرفق اي رقم ستجد انه يتم الدخول وفتح النموذج الرئيسي .

تم حذف الاسطر الزائدة وترتيب الكود واضافة سطر الاغلاق ، مع الشرح لكل سطر

Private Sub Button27_Click()

On Error GoTo Err_Button27_Click

Dim Rs As Integer    'عرفنا متغير كرقم

 Rs = 0     'وقيمته صفر عند فتح النموذج

 If User = "1" And PassW = "1" Then 'شرط : اذا كان حقل الاسم يساوي 1 وحقل الرقم يساوي واحد إذا

 Rs = 1      'قيمة المتغير تساوي 1

End If       ' نهاية الشرط

 If Rs = 0 Then 'شرط : اذا كانالمتغير يساوي صفرا

MsgBox "كلمة المرور او اسم المستخدم خطأ...حاول مرة اخرى"

Exit Sub ' الخروج من الامر

End If ' نهاية الشرط

If Rs = 1 Then 'شرط : اذا كان المتغير يساوي  واحد

 DoCmd.OpenForm "main_screen" 'افتح النموذج المذكور

DoCmd.Close acForm, Me.Name 'واغلق النموذج الحالي

End If ' نهاية الشرط

Exit_Button27_Click:

    Exit Sub


Err_Button27_Click:

    MsgBox Err.Description

    Resume Exit_Button27_Click


End Sub

الخطة الفصلية2.rar

[نور الرياض]

الف الف الف شكر لك مبدعنا

تمت بنجاح

الله يجزاك كل خير الف الف الف الف شكككككرررر انت رررراااائع والله