الفلترة

[jo_2010]

Dim rst As Recordset
Set rst = Form.RecordsetClone
rst.FindFirst "ID=" & [Text1] & " And Code=" & [Text2]
If Not rst.EOF Then Bookmark = rst.Bookmark

بعد التحية وصباح الخير

ارجو التعديل على هذا الكود لكى يسمح باضافة حقل اخر مثل Age مثلا لكى تصبح الفلترة 3 حقول بدل 2

ويعطى رسالة بانة لا توجد بيانات فى حالة عدم وجود بيانات مطابقة 

[jo_2010]

ارجوكم ايها الخبراء افيدوني 

[jjafferr]

تفضل 🙂

Dim rst As dao.Recordset
dim myWhere as string

Set rst = Form.RecordsetClone

myWhere = "ID=" & [Text1] 
myWhere = myWhere & " And Code=" & [Text2]
myWhere = myWhere & " And Age=" & [Text3]

rst.FindFirst myWhere
If Not rst.EOF Then Bookmark = rst.Bookmark

.

شوف هذا الرابط لبقية انواع الحقول من نص ، وتاريخ

 

جعفر

[jo_2010]

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

Dim rst As dao.Recordset
dim myWhere as string

Set rst = Form.RecordsetClone

myWhere = "ID=" & [Text1] 
myWhere = myWhere & " And Code=" & [Text2]
myWhere = myWhere & " And Age=" & [Text3]

rst.FindFirst myWhere
If Not rst.EOF Then Bookmark = rst.Bookmark

اشكرك علي اهتمامك وسرعة الرد علي ولكن الكود بعد تجربتة لازم  لايعمل ويعطى رسالة خطا

 

تم تعديل فبراير 14, 2019 بواسطه jo_2010

[jjafferr]

اخي الفاضل

 

الدكتور اللي يقدر يوصف لك العلاج عن بُعد ، وبمجرد انك تخبره انك مريض وبس ،فهذا عملة نادرة 🙂

اما انا فلا.

 

جعفر

[jo_2010]

اخى الفاضل 

خالص الشكر لحضرتك لاهتمامك بالرد على 

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

Dim rst As Recordset
Set rst = Form.RecordsetClone
[rst.FindFirst "Code_Month=" & [C] & " And C_year=" & [Y
If Not rst.EOF Then Bookmark = rst.Bookmark
  فهل من الممكن بخبرتك اضافة حقل جديد  حيث اننى لا اجيد التعامل مع الاكواد بصورة جيدة وهذا الكود حصلت علية من هذا المنتدى الرائع الذى علمنى الكثير واسف ان اطلت على حضرتك

تم تعديل فبراير 14, 2019 بواسطه jo_2010

[jjafferr]

4 ساعات مضت, jo_2010 said:

لايعمل ويعطى رسالة خطا

1. رجاء ارفاق رسالة الخطأ ،

2. بالنسبة الى الحقل الجديد ، شو نوع الحقل (نص ، رقم ، او تاريخ) ؟

 

جعفر

[jo_2010]

كحاستاذي الفاضلjjafferr

اشكرك علي اهتمامك وسرعة الرد علي ولكن أين نص الرسالة التي تفيد بانة لاتوجد بيانات في حالة عدم توافر ببانات مطابقة لtext1  text2 text3

النص هو اختيار من كمبوبوكس لمنطقتين المنشية  او طرة

كحاستاذي الفاضلjjafferr

اشكرك علي اهتمامك وسرعة الرد علي ولكن أين نص الرسالة التي تفيد بانة لاتوجد بيانات في حالة عدم توافر ببانات مطابقة لtext1  text2 text3

الحقل الثالث نص واختيار من كمبوبوكس لمنطقتين المنشية او طرة 

[jjafferr]

29 دقائق مضت, jo_2010 said:

ولكن أين نص الرسالة التي تفيد بانة لاتوجد بيانات في حالة عدم توافر ببانات مطابقة لtext1  text2 text3

ما اعرف ، ولكن انت قلت:

10 ساعات مضت, jo_2010 said:

لايعمل ويعطى رسالة خطا

لهذا السبب طلبت منك

5 ساعات مضت, jjafferr said:

رجاء ارفاق رسالة الخطأ

.

 

على العموم ، بما ان الحقل الثالث نص ، فالكود يجب ان يكون:

Dim rst As dao.Recordset
dim myWhere as string

Set rst = Form.RecordsetClone

myWhere = "[ID]=" & me.Text1 
myWhere = myWhere & " And [Code]=" & me.Text2
myWhere = myWhere & " And [City]='" & me.Text3 & "'"

rst.FindFirst myWhere
If Not rst.EOF Then me.Bookmark = rst.Bookmark

 

جعفر

[jo_2010]

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

الكود يعمل بصورة جيدة لك خالص الشكر 

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

[jjafferr]

حياك الله 🙂

 

السؤال خارج عن الموضوع، ويمكنك عمل موضوع خاص به ، 

وهذا الرابط سيفيدك

 

 

جعفر

 

 

[jo_2010]

لم استطيع الاستفادة منها 

هل توجد امثلة اسهل من هذا المثال