(24-09-19, 03:17 PM)Alhootti1 كتب : [ -> ]جملة الاستعلام تعمل بشكل ممتاز عندما عندما يكون التكست بوكس مرئي و لكن لا تعمل عندما يكون التكست بوكس غير مرئي و تظهر عندي رسالة الخطأ
هل الاختبار الذي تقوم به عندما يكون التكست بوكس مرئي هو نفسه عندما يكون التكست بوكس غير مرئي؟
مثلاً إذا ضغط على زر معين عندما يكون التكست بوكس مرئي لم يعطي خطأ,
بينما إذا ضغط على نفس الزر عندما يكون التكست بوكس غير مرئي وأعطى خطأ.
(23-09-19, 06:25 AM)Alhootti1 كتب : [ -> ]جزاك الله خيرا
غريبة
انا ربطت تكس بوكس بقاعدة البيانات اكسس و الامور طيبة لكن عندما اخفي تكست بوكس تظهر عندي مشاكل و خاصة عند البحث و الحفظ
هذه الرسالة :
Syntax error (missing operator) in query expression 'ID='.
الخطأ الذي ذكرته في هذه المشاركة هو فقدان "
ID" وليس TextBox أي يظهر هذا الخطأ عند حدث معين. والله أعلم
وأعتقد أنك قد ربطت الحقل "
ID" بهذا التكست بوكس
تمنياتي لك وللجميع التوفيق
نعم كلامك في محله
ربطت التكس بحقل ID
و هنا ظهرت المشلة
لاني ما قدرت استخدم المتغيرات لتفادي هذه المشكلة و إلا كانت المشكلة محلولة
وعليكم السلام
وجدت لك الطريقة والتي تم استخدامها في المشروع الأساسي الذي أشارك فيه حاليا مع زملائي
طبقت الطريقة على كود من موضوع وجدته لك وهو (كود التنقل بين السجلات لا يعمل جيدا لماذا ؟)
كود :
Dim id = Me.BindingContext(DataSet1, "Ginfo").Current("ID")
في هذه الحالة لا تحتاج لاضافة أداة لربطها بعمود غير مرغوب بظهوره
أرجو الإفادة وشكرا
جزاك الله خيرا يا أخي
أجرب الكود ثم أوافيك بإذن الله
دمت بحفظ الرحمن
أخي سمير أبشرك الكود جاب نتيجة ممتازة
شكرا لك على إفادتك الرائعة
لكن هناك اشكالية في السجل التالي ينتقل إلى السجل الاول ثم الاخير و يتغاضى عن السجلات الموجودة بينهن
انا استخدم هذا الكود للتنقل بين السجلات
PHP كود :
Me.BindingContext(DataSet11, "Apoint").Position += 1 ' الانتقال إلى السجل التالي
بالمقارنة بما لدينا في المشروع وجدت أن الطريقة المتبعة هي بهذا الشكل
كود :
Me.BindingContext(DataSet11.Tables("Apoint")).Position += 1
ارجو الافادة وشكرا
للأسف الطريقة ما نفعت
حاليا ينتقل إلى السجل الأول فقط و لا ينتقل إلى سجلات الأخرى بتاتا
بالنظر مرة أخرى في الموضوع الخاص بك (كود التنقل بين السجلات لا يعمل جيدا لماذا ؟)
وجدت ان طريقتك في في ربط الادوات بهذا الشكل
كود :
Pt_ID.DataBindings.Add("Text", DataSet1, "Ginfo.ID")
في حين كانت الطريقة في مشروعنا بهذا الشكل
كود :
Pt_ID.DataBindings.Add("Text", DataSet1.Tables("Ginfo"), "ID")
لكن، لفت نظري كثرت تعريفك لستة conn وستة DataSet مع استخدام الكود في الاستعلام
في حين لاحظت وجود ClinicDataSet.Medicine_Tbl والذي يعني أنك تستخدم الربط بالمعالج
لهذا لم استطع تحديد الطريقة تتبعها في برمجتك لمعرفة الحل المناسب لك!
أتوقع أن الكود لديك يحتاج للتعديل
ارجو الافادة وشكرا
طريقتي في الحالة هذي دائماً. تحويل التكست بوكس إلى ليبل. وتحويل اللون نفس لون الفورم و اقوم بتصغير الليبل حتى تتلاصق الاطراف ببعضها. وبذلك تكون غير مرئية للمشاهد.