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

[رشاد احمد]

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

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

 

.الصندوق.accdb

تم تعديل مايو 17, 2019 بواسطه رشاد احمد
فك الضغط

[رمهان]

اخ @رشاد احمد

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

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

تحياتي

[رشاد احمد]

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

 

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

 

منذ ساعه, رمهان 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

بالتوفيق

[رشاد احمد]

بارك الله فيك اخى رمهان وجزاك الله خيرا تم حل المشكله وبالتوفيق لك ولكل الاعضاء وكل عام وانتم بخير