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

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


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

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

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

NewLogin.PNG

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

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

findfirst.PNG

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

findfirst.zip

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

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

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

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

NewLogin.PNG

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

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

findfirst.PNG

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

findfirst.zip

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

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

findfirst_up .rar

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

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

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

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

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

لكن أنا أيضا أريد أن أتعلم الطريقة مع 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

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

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

تم تعديل بواسطه بوعبد الله محفوظ
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

 

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

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

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

 :clapping:

شكرا لك

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

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

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

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

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

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

تم تعديل بواسطه رمهان
  • Like 2
رابط هذا التعليق
شارك

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

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

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

سؤال إذا أمكن 

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

[cboDepartment]
[txtUserName]

هل من سبب لذلك 

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

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

 

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

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

 

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

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

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

 

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

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

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



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

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

Important Information