كيف يمكن كتابة Recordset بثلاث شروط (نص،تاريخ،رقم)

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

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

أريد طباعة تقرير لذا أضفت هذا الشرط قبل الطباعة

Criteria = "[Machine]='" & [cboMachine] & "'And [Opérateur] = " & [cboOpérateur]

وهو يشتغل 100%

لكن عند إضافة التاريخ إلى الشرط

Dim rs As Recordset
Dim Criteria As String
Set rs = CurrentDb.OpenRecordset("tblHeuresPerdus", dbOpenSnapshot, dbReadOnly)
Criteria = "[Machine]='" & [cboMachine] & "'" _
                 And "[LaDate] = #" & Format(txtDate, "\#mm\/dd\/yyyy\#") & "#" _
                 And [Opérateur] = " & [cboOpérateur]"

دائما ما أتلقى 

Run-time error 13
Type mismatch

حيث أن

Machine نص

LaDate تاريخ

Opérateur رقم

هل من مساعدة بارك الله فيكم

 

[يوسف أحمد]

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

 

اخي العزيز بو عبد الله

 

جرب الكود التالي

 

Dim rs As Recordset
Dim Criteria As String
Set rs = CurrentDb.OpenRecordset("tblHeuresPerdus", dbOpenSnapshot, dbReadOnly)
Criteria = "[Machine]='" & [cboMachine] & "'" _
                 And "[LaDate] = #" & Format(txtDate, "mm/dd/yyyy") & "#" _
                 And [Opérateur] = " & [cboOpérateur]"

بالتوفيق

[رمهان]

بعد اذن الاستاذ يوسف

جرب

Criteria = "[Machine]='" & [cboMachine] & "' And [LaDate]=#" & Format(txtDate, "mm/dd/yyyy") & "# And [Opérateur] =" & [cboOpérateur]

بالتوفيق

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

2 ساعات مضت, رمهان said:

بعد اذن الاستاذ يوسف

جرب

Criteria = "[Machine]='" & [cboMachine] & "' And [LaDate]=#" & Format(txtDate, "mm/dd/yyyy") & "# And [Opérateur] =" & [cboOpérateur]

بالتوفيق

مشكور أستاذنا الغالي رمهان الكود شغال 100 %

3 ساعات مضت, يوسف أحمد said:

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

 

اخي العزيز بو عبد الله

 

جرب الكود التالي

 

Dim rs As Recordset
Dim Criteria As String
Set rs = CurrentDb.OpenRecordset("tblHeuresPerdus", dbOpenSnapshot, dbReadOnly)
Criteria = "[Machine]='" & [cboMachine] & "'" _
                 And "[LaDate] = #" & Format(txtDate, "mm/dd/yyyy") & "#" _
                 And [Opérateur] = " & [cboOpérateur]"

بالتوفيق

للأسف أستاذنا الكريم يوسف أحمد الكود لم يشتغل 

بعد التعديل أصبح

Criteria = "[Machine]='" & [cboMachine] & "'" _
                & "And  [LaDate] = #" & Format(txtDate, "mm/dd/yyyy") & "#" _
               & " And [Opérateur] = " & [cboOpérateur]

في السطر الثاني تم إضافة & وإشارة التنصيص أصبحت قبل And

في السطر الثالث تم إضافة & وإشارة التنصيص قبل And وتم حذف إشارة التنصيص في آخر السطر

وهو الآن شغال 100 %

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

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

[يوسف أحمد]

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

لم انتبه للعلامات ( وجبت زيارة طبيب العيون ههههههه )

شكراً لكما 

[رمهان]

10 ساعات مضت, يوسف أحمد said:

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

لم انتبه للعلامات ( وجبت زيارة طبيب العيون ههههههه )

شكراً لكما 

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

اغلب مانشارك به تعلمناه من فيض علمكم وخبراتكم النيرة

تحياتي