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

استفسار عن كيفية التعامل مع الفنكشن مع الاسكيول

بدأه ahmedamer2005 في 21 نوفمبر 2008 · 2 رد · 514 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لقد تم عمل فنكشن من خلال الفيجوال لجعل حقل المبالغ الرقمى يتحول الى حقل مكون من 14 رقم مثلا من 100.25 الى 00000000010025 اريد التعامل مع هذه الفنكشن من خلال جمل الاسكول مثلا اسم الفنكشن ForamtAmount

rs.open " update sallary set amount = formatAmount(fff

#2

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

#3

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

أمامك عدة حلول

الأول إنك تقوم بنسخ الـ Function إلى Module داخل الـ Access وبالتالي يتم النداء عليه تلقائيا في جملة الـ Update

طبعا داخل قاعدة البيانات اللى هيتم عليها جملة الـ Update

والحل التاني انك تنفذ جملة الـ Update بالشكل ده

UPDATE Sallary SET Amount = String(14-Len(Replace(CStr(FFF),'.','')),'0') & Replace(CStr(FFF),'.','')

بإعتبار إن Sallary هو الجدول والحقل المطلوب التعديل منه هو Amount والحقل المطلوب التعديل فيه FFF

الحل الأول ممكن ينجح معاك إذا هتعمل Execute لجملة الـ Update من بره Access وممكن لا .. حسب الـ Function نفسها

والحل التاني مش هيتغشل معاك إلى اذا هتشغله من داخل الـ Access

فرضا اننا عاوزين نعمل الموضوع ده من داخل ال Visual Basic مثلا والطريقتين اللى فاتوا مش هيشتغلوا .. نعمل إيه ؟؟

هنلجأ إلى حل تالت وهنفذه على مجموعة خطوات .. مثلا :


UPDATE Sallary SET Sallary.FFF = Len(Sallary.Amount) - Val(Sallary.FFF) WHERE Val(Sallary.FFF) > 0
UPDATE Sallary SET Sallary.FFF = '1' & CStr(String(Val(Sallary.FFF), '0')) WHERE Val(Sallary.FFF) > 0
UPDATE Sallary SET Sallary.FFF = 1 WHERE Val(Sallary.FFF) <= 0
UPDATE Sallary SET Sallary.FFF = Sallary.Amount * Val(Sallary.FFF)
UPDATE Sallary SET Sallary.FFF = String(14 - Len(Sallary.FFF),'0') & Sallary.FFF WHERE Len(Sallary.FFF) < 14
UPDATE Sallary SET Sallary.FFF = InStr(1,Sallary.Amount,'.')

:resentful:

للأسف كنت ناسي أهمهم وأسهلهم وانا باكتب الحلول اللى فاتت دي

UPDATE Sallary SET Sallary.FFF = Format(Sallary.Amount,'00000000000000')

يلا .. ما علينا .. وعلى فكرة كلمة Sallary بالشكل ده غلط .. هي Salary

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

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

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

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

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

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

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