اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مربع النص على النموذج يظهر الأعداد الصحيحة و يقرب .5 إلى صفر


الردود الموصى بها

السلام عليكم أتمنى أن تكونوا بخير

نموذج عليه مربعات نص غير منضمة

يتم تعبئتها بالكود

Set rs = db.OpenRecordset("select nz(sum(mycc),0) from kaderc3 where kader_n =" & i & " and empdepart =" & k)
مع حلقة تكرار

و هو يعمل بكفاءة

إلا أنه عندما يكون الناتج نصف .5 يغيره إلى صفر

كالمؤشر عليه بالصورة مفروض تكون نصف

فما الحل

بقية الكود


Set db = CurrentDb
f = 1
For k = 2 To 11
For i = 1 To 6
Set rs = db.OpenRecordset("select nz(sum(mycc),0) from kaderc3 where kader_n =" & i & " and empdepart =" & k)
myc = rs.Fields(0).Value
Me.Controls("a" & f) = myc
f = f + 1
Next i
Next k

Untitled.png.536f5d288f8cd7a14b9f4f380d14163c.png

جزيل الشكر لكم إخوتى مقدما

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

47 دقائق مضت, ابو ياسين المشولي said:

جرب هذا 

او ارفع مثال مصغر


db.OpenRecordset("select nz(sum(mycc),0) from kaderc3 where kader_n ='" & i & "'" and empdepart =" & k)

 

ليس بهذا السطر مشكلة يا أخى فهو يعمل 

لكن المشكلة أن مربع النص يلغى النصف ويظهر مكانه صفرا

 

رابط هذا التعليق
شارك

ليس هناك جدول

هذا الحقل هو حقل محسوب فى استعلام

ومربعات النص غير منضمة على النموذج

جربت تغيير تنسيق مربع النص إلى ثابت و لم يتغير شىء

رابط هذا التعليق
شارك

مرحبا اخ عبدالفتاح

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

1. يمكن ان ناتج الجمع في الكود قيمة خالية لاسباب عدة فتتحول القيمة الى صفر باستخدام nz  .. هنا تاكد بعمل مسج بكس لتحديد المشكلة

2. اذا اعلاه تم التاكد بان الرسالة تعطي نص فانظر الى تنسيق مربع النص من الخصائص

او هات مرفق خفيف به المشكلة 

بالتوفيق

  • Like 1
رابط هذا التعليق
شارك

8 ساعات مضت, رمهان said:

مرحبا اخ عبدالفتاح

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

1. يمكن ان ناتج الجمع في الكود قيمة خالية لاسباب عدة فتتحول القيمة الى صفر باستخدام nz  .. هنا تاكد بعمل مسج بكس لتحديد المشكلة

2. اذا اعلاه تم التاكد بان الرسالة تعطي نص فانظر الى تنسيق مربع النص من الخصائص

او هات مرفق خفيف به المشكلة 

بالتوفيق

ناتج الجمع صحيح فى القيم الكاملة مثلا 1  و 2 و 3 ...

وغيرت التنسيق إلى ثابت

سأرسل نموذجا للموضوع إن شاء الله 

منذ ساعه, د.كاف يار said:

اخي الكريم اجعل التنسيق ارقام ثابته

كما في الصورة

المنازل العشرية.jpg

قد فعلت و لا تغيير ...شكرا لك

رابط هذا التعليق
شارك

3 ساعات مضت, د.كاف يار said:

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

نقلت بيانات الاستعلام إلى جدول و منه إلى استعلام جديد

يعنى أن حقل  mycc  فى القاعدة الأصلية هو حقل محسوب 

أما فى هذا المثال فمأخوذ من جدول

يعنى لا يفيد تحويل نوع الحقل إلى مزدوج

kera11.rar

المربع بالخط الأحمر و الخلفية الصفراء يجب أن يكون نصف   .5

وشكرا

رابط هذا التعليق
شارك

39 دقائق مضت, kha9009lid said:

Dim myc As Double

تمام يا فندم هذا هو المطلوب

قلت أصلى العصر ثم أفتح مرفقك

وجاءنى الحل نفسه و أنا أصلى

بارك الله فيك

  • Like 1
رابط هذا التعليق
شارك

13 دقائق مضت, kha9009lid said:

@عبد الفتاح كيرة

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

ربنا يكرمك كلنا نتعلم من بعض

وللاستفادة لعامة الإخوة

غيرنا المتغير الذى نحفظ فيه قيمة ناتج الجمع من Integer

إلى  Double

حيث يمكن وجود علامة عشرية و أرقام بعدها

 

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information