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

تجديد الاستفسار السابق بتبديل الصور وادراج النموذج بالمرفقات

بدأه shadi77 في 29 ديسمبر 2008 · 17 رد · 1,148 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

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

المشكلة:

عند اضافة بيانات لقاعدة البيانات من خلال زر الاضافة تظهر مشكلة ولا يتم الاضافة !! بينما في حال ترك التكست فارغا بدون قيم تتم الاضافة !!

ارجو مساعدتي بهذه المشكلة وحلها

ولكم الشكر

shadi.rar

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

#2

لعل السبب هو أن قاعدة البيانات فارغة، جرب إضافة سجل فارغ، ثم اكتب الأسماء وأضف، ستنجح العملية.

لكني لست متأكداً من السبب

هذه الجملة خاطئة  :wacko: 


#3

ساجرب ولي عودة

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

#4

تمت التجربة لكن عند الضغط اضافة يستبدل القيمة الاولى بالقيمة الجديدة ولا يفتح صف جديد !!!

هلللللللللللللللللللللللللللللللللللللللللللللللللللل من حل

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

#5

لأنه يجب أن تنتقل إلى السجل التالي ثم تضيف القيم

هذه الجملة خاطئة  :wacko: 


#6

يا حبيبي انت رابط Text1 و Text2 و Text3 بحقول الجدول ليتم عرض البيانات بها , وهذا سبب المشكله .

يجب عليك تخصيص مربعات نص خاصه لستجيل بيانات جديده غير مرتبطه بحقول الجدول

ومربعات نص مرتبطه بحقول جدول قاعدة البيانات لاستعراض بياناتها كما هو حاصل مع Text1 و Text2 و Text3

ليس كل ما يتمناه المرء يدركه

arabteam2000.gif

#7
العقده كتب:
يا حبيبي انت رابط Text1 و Text2 و Text3 بحقول الجدول ليتم عرض البيانات بها , وهذا سبب المشكله .

يجب عليك تخصيص مربعات نص خاصه لستجيل بيانات جديده غير مرتبطه بحقول الجدول

ومربعات نص مرتبطه بحقول جدول قاعدة البيانات لاستعراض بياناتها كما هو حاصل مع Text1 و Text2 و Text3

انا متفق مع العقدة نوعا ما ولكني لم افهم الرد جيدا

الحقول التي ملأها المستخدم مربوطة بالـ Data .. فأصبحت العملية معكوسة

أي أنك ملأت الحقول داخل الـ Recordset قبل إعطاء الأمر AddNew .. وهذا لا يجوز مطلقا

ولهذا أمامك ثلاثة حلول

الحل الأول أن تلغي الربط بين الحقول الموجودة داخل الـ Form وتستكمل مشورعك بشكل عادي كما هو في المثال المرفق في موضوعك

والحل الثاني أن تضيف زر لإضافة سجل جديد أولا ومن بعدها تفتح الحقول الموجودة في الـ Form وتسمح بالتعديل عليها

والحل الثالث أن تأخذ Backup من الحقول المدخل بها البيانات وبعدها تعطي الأمر Refresh وتقوم بعملية الإضافة.

مرفق 3 أمثلة للـ 3 حلول المذكورة بالأعلى

Shadi_1.rar

Shadi_3.rar

Shadi_2.rar

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#8
العقده كتب:
يا حبيبي انت رابط Text1 و Text2 و Text3 بحقول الجدول ليتم عرض البيانات بها , وهذا سبب المشكله .

يجب عليك تخصيص مربعات نص خاصه لستجيل بيانات جديده غير مرتبطه بحقول الجدول

ومربعات نص مرتبطه بحقول جدول قاعدة البيانات لاستعراض بياناتها كما هو حاصل مع Text1 و Text2 و Text3

mrx_ta7ady كتب:

انا متفق مع العقدة نوعا ما ولكني لم افهم الرد جيدا

الحقول التي ملأها المستخدم مربوطة بالـ Data .. فأصبحت العملية معكوسة

أي أنك ملأت الحقول داخل الـ Recordset قبل إعطاء الأمر AddNew .. وهذا لا يجوز مطلقا

ولهذا أمامك ثلاثة حلول

الحل الأول أن تلغي الربط بين الحقول الموجودة داخل الـ Form وتستكمل مشورعك بشكل عادي كما هو في المثال المرفق في موضوعك

والحل الثاني أن تضيف زر لإضافة سجل جديد أولا ومن بعدها تفتح الحقول الموجودة في الـ Form وتسمح بالتعديل عليها

والحل الثالث أن تأخذ Backup من الحقول المدخل بها البيانات وبعدها تعطي الأمر Refresh وتقوم بعملية الإضافة.

مرفق 3 أمثلة للـ 3 حلول المذكورة بالأعلى

يااااااااااااااااه ايش العز الي انا فيه يعنو مو حل واحد 3 حلول

اطلعت على جميع النماذج وكلهم ادو نفس الغرض ولو لكن لاحظت في النموذج الاول انو في حال مسح جميع البانات (اي الاول الثاني الثالث) لا تعمل الطريقة بنجاح !! ممكن اعرف السبب ؟

اما باقي النماذج وفي حال مسح البيانات تعمل طبيعي !! ايضا ممكن اعرف السبب ؟

وعلى جميع الاحوال يا سيد تحدي اسمحلي اقلك انك واحد محترم

مع الشكر

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

#9
shadi77 كتب:
لاحظت في النموذج الاول انو في حال مسح جميع البانات (اي الاول الثاني الثالث) لا تعمل الطريقة بنجاح !! ممكن اعرف السبب ؟

اما باقي النماذج وفي حال مسح البيانات تعمل طبيعي !! ايضا ممكن اعرف السبب ؟

بالنسبة للسؤال الأول .. أي بيانات تقصد ؟؟ الحقول أم السجلات ؟؟

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

أم تقصد انه في حالة إعطاء الأمر Delete يصادفك مشكلة ؟؟ .. عموما تم تعديل النموذج الأول وإعادة رفعه

والسبب إعطاء الشرط الخاطئ في الحدث Load .. ينبغي أن يكون


End If
If Data1.Recordset.Recordcount > 0 Then

بدلا من


End If
If Not Data1.Recordset.NoMatch Then

لعدم إستخدام الأمر Find قبلها

أما السؤال الثاني .. عاوز تعرف السبب إنها بتشتغل طبيعي ؟؟

طيب يا سيدي متزعلش .. نبوظهم ونبعتهملك :D

Shadi_1.rar

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#10

تسلم ياكبير

لكن ولو اني ثقلتها عليك شوي الي عندك طلب صغير

حاولت اعمل زر بحث باستخدام الاسم لنفس الفورم وما زبطت معي ممكن هيك تكرمنا وتعدل على الفورم؟؟

الله يكرمك يا مستر تحدي

ارفقت الملف الاخير والمعدل بالمرفقات

Shadi_11.rar

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

#11

قم بتجربة البحث بحرف أو أكثر من الإسم أو الإسم كله .. سيان

Shadi_11.rar

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#12
mrx_ta7ady كتب:

قم بتجربة البحث بحرف أو أكثر من الإسم أو الإسم كله .. سيان

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

طمعتنا فيك انا رح ادل الشباب عليك ولحق وكلو بميزان حسناتك يا معلم

شكرا الى استفسار قادم

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

#13

اخي تحدي

زر البحث يعمل جيدا لكن اجريت بعض التعديلات لاظهار نتائج مشابهة طبق الاصل لكن بقيت مشكلة صغبرة لم اكتشفها واريد مساعدتك

فالمطلوب اظهار النتائج المتشابهة فقط

وشكرا لك سلفا

الملف الجديد مرفق

Shadi_22.rar

تم تعديل هذه المشاركة بواسطة shadi77 في 31 ديسمبر 2008 في 14:20

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

#14

اذا أردت اظهار النتيجة الماشبهة لكلمة البحث

.FindFirst "Trim([First]) Like '*" & CStr(Trim(Text4)) & "*'"

اما اذا أردت إظهار النتيجة طبق الأصل كما تقول

.FindFirst "Trim([First]) = '" & CStr(Trim(Text4)) & "'"

والفرق بينهما هو كلمة Like التي تستبدل بالرمز = .. و Like تعني ( شبيه بـ )

أما الـ (*) التي كانت تسبق كلمة البحث وتليها في المرة الأولى

فهي لإحتمالية البحث عن حروف في منتصف الكلمة

أي مثلا يمكننا البحث عن إسم (شادي) بكلمة بحث (اد) دون تحديد الأحرف الأولى والأخيرة

وفي حالة حذف الـ (*) من أول الكلمة وآخرها فلن يظهر إلى النتائج التي تطابق كلمة البحث فقط :)

Shadi_22.rar

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#15

والله اعجز عن شكرك

انت نعم المعلم ولا اقولها مجاملة

الى استفسار قادم معلمي

مع التحية

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

#16

صديقي تحدي استفسار لو سمحت

ما الطريقة الانسب لمعرفة ان البيان قد تم اضافته بالفعل الى قاعدة البيانات وعدم الاكتفاء فقط بصندوق رسالة انه قد تم الحفظ؟؟

من جهة اخرى

ما الطريقة الصحيحة لعدم اضافة اسم موجود مسبقا ؟

اي عند الاضافة وفي حالة وجود اسم مشابه تم اضافته سابقا ايقاف الاضافة والتنبيه بوجود اسم مشابه تم اضافته سابقا؟

تم تعديل هذه المشاركة بواسطة shadi77 في 1 يناير 2009 في 14:53

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

#17

آسف جدا على التأخير .. لم أرى المشاركة إلا الآن وبالصدفة

Shadi_22.rar

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#18

جزاك الله كل خير عنا يا شيخ

صدقني انك محترم

كلوووووووووووووووو تممممماااااااااااااااااااااااااام

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…