السلام عليكم اخواني الاعزاء
معي برنامج يحتوي عل جدول حقل
a نوع الحقل رقم
b نوع الحقل رقم
c نوع الحقل رقم
لما اجمع a+b=c
البرنامج يعمل بشكل ممتاز
ولكن سؤالي ؟؟؟؟؟؟؟؟
هل ممكن تجميع الحقول اذا كان حقول الجداول من نوع نص مثلا
a نوع الحقل نص
b نوع الحقل نص
c نوع الحقل رقم
لما اجمع a+b=c يكون الناتج صحيح ويعمل منفس المثال السابق بدون استخدام استعلام
يستخدم VB
أرجوا من لديه الخبرة لا يبخل في مساعدتي
شكرا لكم
اخي الكريم
وعليكم السلام ورحمة الله وبركاته
تفضل الحل بارك الله بك
في النموذج سوف نستخدم هذه الطريقة بدالة VAL وتعني القيمه للحقل النصي
Private Sub a_AfterUpdate()c = Val(a) * Val(b)End Sub
Private Sub b_AfterUpdate()c = Val(a) * Val(b)End Sub
وسيكون الناتج في النموذج بهذه الطريقة
ملاحظة : العملية يجب ان تكون ضرب وليس جمع لأنه يوجد لديك عدد رزم ويوجد لديك كميات لكل رزمه
ايضا يمكنك استخدام دالة VAL لعملية جمع مربعي نص بنفس الطريقة السابقة ولكن ليس لهذا المثال الذي به عدد وكميه
بالتوفيق
أشكرك جزيل الشكر استاذه
فعلا هذا المثال المطلوب
جزاك الله ألف خير
البرنامج 100% يعمل
ولكن ملاحظة واحدة فقط
هل يمكن اعدل المثال بحيث يكون
b-a=c
يعني تكون عملية طرح
علماً باني حاولت أعدل في المثال ويعمل بحيث يطرح ولكن تضهر مسج RUN-time error
ولما اضع الارقام تختفي المسج ويعمل البرنامج
أشكرك مرة اخرى
تفضل اخي
(اللَّهُمَّ أَنْتَ رَبِّي لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ أَبوءُ لَكَ بِنِعْمتِكَ علَيَ وأَبُوءُ بذَنْبي فَاغْفِرْ لي فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ)
اذا كانت المشاركة مفيدة لك فلا تبخل علينا بالتقييم
mahmoud_20 كتب:تفضل اخي
بارك الله بك اخي الكريم : محمود
ولكنه ليس المطلوب !!!
المطلوب هو ان يكون الناتج في الجدول وليس في النموذج
لذا انظر بارك الله بك الى الجدول بعد التعديل الذي قمت انت بعمله
عموما تفضل اخي الكريم صاحب السؤال التعديل المطلوب كما تريد
سوف نستخدم هذا الكود في النموذج بعد تحديث حقل B بهذه الطريقة
Private Sub b_AfterUpdate()c = Val(b) - Val(a)End Sub
بالتوفيق
تم تعديل هذه المشاركة بواسطة zahrah في 13 يونيو 2013 في 13:39
عذرا لم انظر للجدول فانا اتممت العمل علي النموذج فقط
شكرا لملاحظتك اختي زهرة
(اللَّهُمَّ أَنْتَ رَبِّي لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ أَبوءُ لَكَ بِنِعْمتِكَ علَيَ وأَبُوءُ بذَنْبي فَاغْفِرْ لي فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ)
اذا كانت المشاركة مفيدة لك فلا تبخل علينا بالتقييم
zahrah كتب:اخي الكريم
وعليكم السلام ورحمة الله وبركاته
تفضل الحل بارك الله بك
في النموذج سوف نستخدم هذه الطريقة بدالة VAL وتعني القيمه للحقل النصي
Private Sub a_AfterUpdate()c = Val(a) * Val(b)End SubPrivate Sub b_AfterUpdate()c = Val(a) * Val(b)End Sub
وسيكون الناتج في النموذج بهذه الطريقة
ملاحظة : العملية يجب ان تكون ضرب وليس جمع لأنه يوجد لديك عدد رزم ويوجد لديك كميات لكل رزمه
ايضا يمكنك استخدام دالة VAL لعملية جمع مربعي نص بنفس الطريقة السابقة ولكن ليس لهذا المثال الذي به عدد وكميه
بالتوفيق
mahmoud_20 كتب:عذرا لم انظر للجدول فانا اتممت العمل علي النموذج فقط
شكرا لملاحظتك اختي زهرة
من فضلكم اخوتي احتاج لمساعدة في هدا موضوع :(
هذا الموضوع مغلق.
