كيف يمكن وضع شرطين في FindFirst

[بوعبد الله محفوظ]

السلام عليكم ورحمة الله تعالى وبركاته

عندي شاشة الدخول بهذا الشكل

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

لذا استعملت FindFirst لكن للأسف لم ينجح الأمر معي

هل من حل بارك الله فيكم

findfirst.zip

[محمد ايمن]

اخي الكريم

لم استطع التعديل على المرفق !!!!!

استخدم الدالة Dlookup فهي تحقق لك المطلوب

 

[ابو جودي]

13 ساعات مضت, بوعبد الله محفوظ said:

السلام عليكم ورحمة الله تعالى وبركاته

عندي شاشة الدخول بهذا الشكل

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

لذا استعملت FindFirst لكن للأسف لم ينجح الأمر معي

هل من حل بارك الله فيكم

findfirst.zip

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

جرب وفى انتظار رد حضرتك 

findfirst_up .rar

[co2002co]

ممتاز جدا

 

الحل سهل 

ضع نفس الكود

لكن استخدم الماسك *********

[بوعبد الله محفوظ]

السلام عليكم ورحمة الله تعالى وبركاته

مشكورييييييييييييييييين جزيل الشكر على الاهتمام 

أخونا الغالي والحبيب أنا جودي آآآآآآآآآآآآآآآآسف على إتعابك معنا

الكود يشتغل تمام بارك الله فيك 

لكن أنا أيضا أريد أن أتعلم الطريقة مع Findfirst

وعندما أجربها بشرط واحد تعمل بشكل جيد 

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("tblUser", dbOpenSnapshot, dbReadOnly)
rs.FindFirst "Department= '" & Me.cboDepartment & "'"

 If rs!UserName <> Me.txtUserName Then
MsgBox "íÑÌì ÇáÜÊÃßÏ ãä ÅÓã ÇáãÓÊÎÏã", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "ÑÓÇáÉ ÊäÈå"
Me.txtUserName.SetFocus
Exit Sub
 End If

 If rs!Password <> Me.txtPassword Then
 MsgBox "íÑÌì ÇáÜÊÃßÏ ãä ßáãÉ ÇáÓÑ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "ÑÓÇáÉ ÊäÈå"
Me.txtPassword.SetFocus
Exit Sub
 End If

لكن عندما أضيف الشرط الثاني تبدأ المشاكل في الظهور

آآآآآآآآآآآآآآآآآآآآآآسف على الإزعاج مجدد

تم تعديل سبتمبر 7, 2016 بواسطه بوعبد الله محفوظ

[Elsayed Bn Gemy]

Dim rs As Recordset
Dim Criteria As String
Set rs = CurrentDb.OpenRecordset("tblUser", dbOpenSnapshot, dbReadOnly)
Criteria = "[UserName]='" & [txtUserName] & "' And [Department]='" & [cboDepartment] & "'"

rs.FindFirst Criteria




If rs.NoMatch = True Then
MsgBox "يرجى الـتأكد من إسم المستخدم", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة تنبيه"
Me.txtUserName.SetFocus
Exit Sub
End If



 If rs!Password <> Me.txtPassword Then
 MsgBox "يرجى الـتأكد من كلمة السر", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة تنبيه"
Me.txtPassword.SetFocus
Exit Sub
 End If

هل تسمحون لى بالمشاركة معكم

شرطين فى دالة البحث

rs.FindFirst

[ابوخليل]

مشاركة مع  اخوتي واحبتي الكرام

تفضل .. وغير ما يلزم .. حسب المسميات عندك  

Dim rs As Recordset
Private Sub cmdOK_Click()
Set db = CurrentDb
Set rs = db.OpenRecordset("tblUsers", dbOpenDynaset)
rs.FindFirst "UserName = '" & UserName & "' and  password ='" & Password & "'"
If rs.NoMatch Then
    MsgBox "هذا المستخدم غير مسجل"
Exit Sub
Else
DoCmd.OpenForm "frm_main"
DoCmd.Close acForm, Me.Name
End If
End Sub

 

[ابوخليل]

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

 

شكرا لك

[Elsayed Bn Gemy]

10 دقائق مضت, ابوخليل said:

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

 

شكرا لك

غفر الله لى ما كان للعين ابدا ان تعلو على الحاجب

شكرااااااا لك

[رمهان]

انا حشارك فقط بوجود الخطأ في اول مشاركة وفي السطر

rs.FindFirst "[UserName]= ' " & Me.txtUserName & " ' And [Department]= ' " & Me.Me.cboDepartment & " ' "

تلاحظ تكرار me  اخ بو عبدالله 

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

[بوعبد الله محفوظ]

بارك الله فيكم ورزقكم من فضله وزادكم من علمه ورفع قدركم في الدارين

أستذنا الغالي السيد جمال 

الكود يشتغل تمام 100 % 

سؤال إذا أمكن 

في الكود لم تسعمل ".Me"  

[cboDepartment]

[txtUserName]

هل من سبب لذلك 

تم تعديل سبتمبر 7, 2016 بواسطه بوعبد الله محفوظ

[بوعبد الله محفوظ]

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

باقى شئ واحد ما عرفت اعمله وما ظبط معايا بصراحة عرض الباسورد 
او ممكن الطريقة دى مش شغالة مع اصدار الاكسس بتاعى

إضف فقط اشارة تنصيص لكل من Password و Text

Private Sub ShowPassword_AfterUpdate()
If Me.ShowPassword.Value = False Then
Me.txtPassword.InputMask = "Password"
Else
Me.txtPassword.InputMask = "Text"
End If

End Sub

 

[ابو جودي]

11 ساعات مضت, بوعبد الله محفوظ said:

إضف فقط اشارة تنصيص لكل من Password و Text

Private Sub ShowPassword_AfterUpdate()
If Me.ShowPassword.Value = False Then
Me.txtPassword.InputMask = "Password"
Else
Me.txtPassword.InputMask = "Text"
End If

End Sub

 

جزاكم الله كل الخيـــر

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

Private Sub ShowPassword_AfterUpdate()
If Me.ShowPassword.Value = True Then
Me.txtPassword.InputMask = ""
Else
Me.txtPassword.InputMask = "password"
End If
End Sub