لية يظهر الاستعلام بالاحمر و Syntex error

اخ k.f.u

هذه الرسالة لا تظهر الا اذا كان هناك خطاء في التعبير المنطقي لما تريد ... تأكد من صحة الاستعلام او ارفقه هنا لنرى لك المشكلة

أنا حاولت أعمل كذا أستعلام ولكن الاستعلامات من اكثر من جدول لم أستطع عمل أي أستعلام وحتى في ربط الجداول يظهر لي نفس الخطأ

وهنا في المرفق نموذج أريد عمل الستعلام بداخله وهو النموذج رقم 2 form2

بحيث أستعلم عن أداء موظف خلال فترة معينة حيث أن تكرار رقم الموظف في جدول B_sev هذا يعني ان الموظف عمل اكثر أما تاريخ تقديمة الخدمه موجود(Date_sev ) في Boocking

يعني الاستعلام يكون من جدولين ,,,,,,,,,,,,,,, وياليت فيه إضافة للاستعلام بحيث أنه يحسب لي كم مره تكرر رقم الموظف في جدول B_sev خلال الفترة ويسجلها لي في text ياليت تساعدون والله أحتاج الحل ضروري

مع العلم أني أستخدم Adodc

ولكم جزيل الشكر والتقدير

tests.rar

اخي المثال ينقصة الفورم الاول و الـ DATA BASE

اخي اذا امكن اعادة تحمل المثال لتقديم المساعدة

شكرا ولكن الداتا بيز موجودة بأسم t.mdb

موجوده بالمرفق

بانتظار مساعدتكم

ساعدوني ........... الملف المرفق عندكم

دائما تطلبون الملف المرفق علشان تتم الاجابة على الموضوع بشكل سريع وإلى الان مافيه جواب

ساعدووووووووووووووني أحتاج الاجابة ماعندي وقت

يعني اللاستعلام هذا أيش الخطا فيه ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟!!!!!!!!!!!!!!!

Dim strsql As String

strsql = "SELECT B_sev.No_b, B_sev.No_emp, Boocking.Date_b, " _
		& "	Boocking.Date_sev " _
		& "   FROM B_sev, Boocking " _
		& " WHERE B_sev.No_b = Boocking.No_b And No_emp = '" & Text1.Text& "'"

up

ممكن مساعدة

اعتقد بأن المشكلة بعدم وجود فراغ بنهاية الكود عند علامة &

انسخ الكود المرفق بعد اضافة الفراغ .

ملاحظة : لم يتم تجريب الكود

SQL_Code.txt

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

و اخبرني بنتيجة

strsql = "SELECT [B_sev].No_b, [B_sev].No_emp, [Boocking].Date_b, " _
		& "	Boocking.Date_sev " _
		& "   FROM B_sev, Boocking " _
		& " WHERE [B_sev].No_b = [Boocking].No_b And [B_sev].No_emp = " & Text1.Text

للاسف لم يعمل الزر

وضعت الكود في حدث عند النقر ولكنه لم يعمل

أنا أريد الزر يعرض لي فقط بيانات الموظف على حسب الموجود في text

ولكنه مايعمل

وراح أكتب الخطوات اللي عملتها

وضعت Adodc على النموذج وجعلت مصدر السجلات SQL

ومن ثم ربطت الداتا قريد بـAdodc

ووضعت text1

وزر ضغطت دبل كليك وجربت الاكواد اللي وضعتوها ولكن دون فائده !!!

السلام عليكم ,

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

ملاحظة :

1 - ادخل رقم الموظف 06 وليس 6 لان نوع الحقل هو Text .

2 - الفورم 1 غير موجود , تم التعديل على فورم 2

tests.zip

الله يجزيك خير أشتغل الكود وأخير ألف شكر

k.f.u كتب:

للاسف لم يعمل الزر

وضعت الكود في حدث عند النقر ولكنه لم يعمل

السلام عليكم هل الجملة اعطت Error ام لم ينجح الكود فقط كما ترغب انت ؟؟؟

وعليكم السلام .........

الزر لم يعمل

ولكن الان أصبح يعمل بشكل ممتاز بعد تعديل MasterPiece

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