اضافه معيار للداله OR

[النجاشي]

السلام عليكم 

احبتي اريد اضيف معيار OR

Me.m1 = DLookup("[Almwka]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf &

تحياتي

[محمد أبوعبدالله]

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

تفضل اخي الكريم

Me.m1 = DLookUp("Almwka","Alsnaf","[ID_Sanf]=" & Me.ID_Sanf & " AND [Criteria2]='" & Me.Text2 & "'")

مع تغيير ما يلزم

تحياتي

[النجاشي]

42 دقائق مضت, محمد ابوعبد الله said:

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

تفضل اخي الكريم

Me.m1 = DLookUp("Almwka","Alsnaf","[ID_Sanf]=" & Me.ID_Sanf & " AND [Criteria2]='" & Me.Text2 & "'")

مع تغيير ما يلزم

تحياتي

استاذي الفاضل 

اليك المثال يوضح المطلوب 

المعذره كنت على استعجال لم ارفق مثال

المطلوب هو ابحث بحقل txt_2

عن ID_Sanf يظهر لي اسم الصنف

او  عن  A2 يظهر لي  اسم الصنف

تحياتي

 

مثال.rar

[محمد أبوعبدالله]

تفضل اخي الكريم

مثال.rar

تحياتي

[النجاشي]

6 دقائق مضت, محمد ابوعبد الله said:

تفضل اخي الكريم

مثال.rar 144.78 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

تحياتي

معذرتا استاذي ليس المطلوب راح ارفق شرح اخر مبسط

 

[ابو ياسين المشولي]

بعد اذن اخي ابو عبدالله 

اتفضل هذا طلبك

Set rs = CurrentDb.OpenRecordset("SELECT * FROM Alsnaf WHERE ID_Sanf ='" & Me.txt_2 & "'" & _
        "or A2='" & Me.txt_2 & "'")
If rs.RecordCount > 0 Then
ID_Sanf = rs!ID_Sanf
Sanf = rs!Sanf
A2 = rs!A2
Else
MsgBox "لايوجد رقم"
'Rajmsanf = ""
Sanf.SetFocus
txt_2.SetFocus
ID_Sanf = Null
Sanf = Null
A2 = Null
End If

 

[النجاشي]

ممتاز بارك الله فيك استاذي ابو ياسين

والشكر موصول لتاج الراس استاذي ابو عبدالله لم تتضح له الفكره 

لاتزعل يابو ياسين ههههههههه

كلكم تاج راسي

الله يعطيكم العافيه

[ابو ياسين المشولي]

الحمدلله انه طلع المطلوب كل اعضاء المنتدى على راسي منفوق مازلنا نتعلم 

وبالتوفيق اخي ابو زاهر

[النجاشي]

الان, ابو ياسين المشولي said:

الحمدلله انه طلع المطلوب كل اعضاء المنتدى على راسي منفوق مازلنا نتعلم 

وبالتوفيق اخي ابو زاهر

تسلم يالغالي من طيب اصلك

ان شاء الله  بنتعلم منكم الكثير 

تسلمووووووووووووووو

[محمد أبوعبدالله]

بالتوفيق اخي الكريم @ابو زاهر والشكر موصول لاستاذنا الفاضل @ابو ياسين المشولي

وارجو من الله ان يتقبل منا ومنكم صالح الاعمال

تحياتي

[ابو ياسين المشولي]

الف شكر لك اخي محمد ابوعبد الله

كلنا في الخدمه بما نستطيع