الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

أستفسارات

مغلق
بدأه النسر الأبيض في 7 أغسطس 2006 · 4 رد · 610 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم أرجو منكم المساعدة

لقد قمت بإنشاء برنامج للمرضى ولقد واجهت بعض الصعوبات وهي كالتالي :

1 - بالنسبة لقاعدة البيانات عند الضغط على زر إضافة و يقوم المستخدم بإضافة البيانات ويبقى أحد الجداول فارغ فأنه يظهر خطأ بالنسبة لهذا الجدول فما الحل برأيكم وكيف أستطيع تجاوز هذه العقبة

2 - عند النقر على زر إضافة فكيف أستطيع وضع زر يقوم بإلغاء عملية الإضافة (( أي عند النقر عليه بالخطأ ))

3 - عند القيام بعملية البحث و فتح السجل المناسب فإن البرنامج يتوقف عن التنقل بين السجلات الأخرى (( أي الأزرار <التالي> <السابق>))

تتوقف عن الأستجابة

علماً بأنني قمت بربط قاعدة البيانات عن طريق الكود (( عن طريق مكتبة DAO ))

#2

السلام عليكم

أولا بالنسبه للأستفسار الأول يمكنك تفادى هذه المشكله بأرسال قيمه أفتراضيه للحقول

الفارغه ولتكن هذه القيمه 0

ثانيا يمكنك إلغاء الأضافه عن طريق الأمر

Rs.Cancel

أما بالنسبه للأستفسار الثالث

انا لا اعرف ما السبب ولكن يمكنك إرفاق المشروع للتعدبل عليه

ملاحظه أخى الكريم يرجى مراعاه قواعد المشاركه حتى لا يتم إغلاق موضوعك من قبل المشرفين

تم تعديل هذه المشاركة بواسطة GENIUS-IT في 7 أغسطس 2006 في 18:56

Never Give Up You Are Programmer

Being Genius Is The Step Before Madness

Artificial Intelligence Is No Match For Natural Stupidity

#3

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

اقتباس
1 - بالنسبة لقاعدة البيانات عند الضغط على زر إضافة و يقوم المستخدم بإضافة البيانات ويبقى أحد الجداول فارغ فأنه يظهر خطأ بالنسبة لهذا الجدول فما الحل برأيكم وكيف أستطيع تجاوز هذه العقبة

يمكنك تجاوز هذه العقبة بوضع On Error Resume Next أو ارسال قيمة افتراضية كما قال الأخ GENIUS-IT وفقه الله

اقتباس
2 - عند النقر على زر إضافة فكيف أستطيع وضع زر يقوم بإلغاء عملية الإضافة (( أي عند النقر عليه بالخطأ ))

ما رأيك لو وضعت رسالة تأكيد قبل الإضافة ؟؟

اقتباس
3 - عند القيام بعملية البحث و فتح السجل المناسب فإن البرنامج يتوقف عن التنقل بين السجلات الأخرى (( أي الأزرار <التالي> <السابق>))

تتوقف عن الأستجابة

لأن نتيجة البحث قد تكون سجلاً واحداً فقط ....

اكتب بعد عبارة البحث msgbox rs.recordcount لترى عدد السجلات

متمنياً لك التوفيق

#4

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

طبعا الاخوة افادوك بالرد ولكن اريد ان اساعد بما استطيع

اقتباس
- بالنسبة لقاعدة البيانات عند الضغط على زر إضافة و يقوم المستخدم بإضافة البيانات ويبقى أحد الجداول فارغ فأنه يظهر خطأ بالنسبة لهذا الجدول فما الحل برأيكم وكيف أستطيع تجاوز هذه العقب

اذا كانت القيمة رقمية فمن الممكن ارسال قيمة رقمية 0 كما ذكر الاخ GENIUS-IT واذا كانت نصية فقم بوضع مسافة ولكن كيف يتم ذلك بالكود

نفترض ان اسم الحقل Num ويأخذ القيمة من Text1 فسيكون كود الحفظ كما يلي :

If val(Text1)=0 Then Rs("num") = "0"

ولو كانت قيمة نصية فسيكون الكود كما يلي :

if Trim(Text1) ="" Then RS("mytext")=" "

ويمكنك عمل ذلك وعدم تخزين اي قيمة في الحقل عن طريق الكود التالي

If Not Trim(Text1)  = "" then rs("myText") = Text1

----------------

بالنسبة للسؤال الثاني فالاجابة المذكورة تكفي :)

-----------------

اقتباس
3 - عند القيام بعملية البحث و فتح السجل المناسب فإن البرنامج يتوقف عن التنقل بين السجلات الأخرى (( أي الأزرار <التالي> <السابق>))

تتوقف عن الأستجابة

لأنك استخدمت جملة SQL فقط في البحث وهي تحتوي على سجل واحد (على حسب تكرار السجل الذي تبحث عنه)

اما لو كنت تريد التنقل بين السجلات بعد عملية البحث فعليك باستخدام كود فيجوال بيزك للبحث بدلا من جملة SQL

اذا كنت في بداية تكوين البرنامج أنصحك باستخدام تقنية الـ ADO بدلا من الـ DAO

بالتوفيق

==================

الى اللقاء

JusT LeT YouR MinD WorK

#5

السلام عليكم

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

ومرة أخرى جزاكم الله ألف خير عني

هذا الموضوع مغلق.

مواضيع مشابهة