ارجو المساعدة في ايجاد النسبة من الوحدة الاساسية
ستجدون المثال المرفق مثال امل التوجه الى الاستعلام وفتحه وادخال الكمية مثلاً : 50
المفروض يظهر عدد الحبة : 2
والكرتون : 4 طبعا الكرتون يظهر العدد المطلوب ولكن المشكلة انه يوجد في الدالة خطا امل التعديل
على فكرة اريد ان يبقى المثال زي ما هو لاني اريد عمل المثال دينمك ولا اريد اي قيود في ادخال الوحدات ونسبها
وتقبلوا خالص تحياتي
هل هناك صعوبة في الموضوع
اولا : اشكرك على الرد
ثانيا ً : هناك مشكلة وهي عندما ادخل نسبة الكرتون 24 وادخل الكمية مثلاً 50 يكون عدد الكراتين 4 وعدد الحبات 2 وهذا خطا
ملاحظة : النسبة من الوحدة الاساسية متغيرة
حقيقة انا تعبة من المحاولات ارجو المساعدة
والله يعطيكم العافية ويجزاك على كل حرف تكتبونه
لنفرض اننا اخذا اعلى قيمة واقل قيمة والباقي يتوزع على ما تبقى من وحدات
ولكن لا اعرف كيف عمل ذلك المشكلة ان العميل مصر على ذلك وبرنامجي متوقف بسبها ارجو الافادة
اعتقد أخى انه من الصعب تحقيق ذلك مباشرة فى الاستعلام
و لكن نحتاج دالة لتحقيق ذلك
عذرا لم استطع تحميل المرفق
عموما هذه هى الدالة ضعها فى وحده نمطية
Public Function GetUnits(X As Long, N As Long) As Long
Dim R, i As Integer
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT unit_gird.* FROM unit_gird WHERE (((unit_gird.qyt) >= " & N & ")) ORDER BY unit_gird.qyt DESC;")
rs.MoveLast
rs.MoveFirst
R = rs.RecordCount
For i = 1 To R
GetUnits = X \ rs![qyt]
X = X Mod rs![qyt]
rs.MoveNext
Next
rs.Close
Set rs = Nothing
End Functionو فى الاستعلام ضع هذا الكود للعمود
exp: GetUnits([ادخل كمية الصنف];[qyt])
الف شكر
الله يعطيكم العافية يا عباقرة البرمجة
جزاكم الله الف خير وكثر الله من امثالكم
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
