اذهب الي المحتوي
أوفيسنا

ماهو الخطا فى هذا الكود


الردود الموصى بها

الساده الافاضل كل عام وانتم بخير .......

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

 

.الصندوق.accdb

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

اخ @رشاد احمد

لا استطيع فتح ملفات الضغط الجديده

اذ ممكن ارفق ملف الاكسس مباشرة لاتمكن من محاولة المساعده

تحياتي

رابط هذا التعليق
شارك

لك كل الشكر واتقدير اخى وتم ارفاق الملف 

 

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

 

منذ ساعه, رمهان said:

اخ @رشاد احمد

لا استطيع فتح ملفات الضغط الجديده

اذ ممكن ارفق ملف الاكسس مباشرة لاتمكن من محاولة المساعده

تحياتي

 

كل الشكر والتقدير لك اخى وتم ارفاق الملف بدون ضغط

رابط هذا التعليق
شارك

منذ ساعه, رشاد احمد said:

لك كل الشكر واتقدير اخى وتم ارفاق الملف 

 

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

 

 

كل الشكر والتقدير لك اخى وتم ارفاق الملف بدون ضغط

العفو 

المشكلة كانت :

1. اسم دالة البحث dlookup  كان هناك حرف e  زائد

2. اختلاف اسماء العناصر (مربع اسم المستخدم والباسسورد) حيث اسماؤها نص0 و نص2

وهذا الكود 

Private Sub login_Click()
If Me.نص2 = DLookup("[password]", "users", "[username] = '" & Me.نص0 & "'") Then
DoCmd.OpenForm "main scr"
DoCmd.Close acForm, "login"
Else
MsgBox "كلمة المرور او اسم المستخدم غير صحيح"
End If
End Sub

بالتوفيق

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information