مربع النص على النموذج يظهر الأعداد الصحيحة و يقرب .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

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

تم تعديل سبتمبر 7, 2019 بواسطه عبد الفتاح كيرة

[ابو ياسين المشولي]

جرب هذا 

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

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

 

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

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

جرب هذا 

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

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

 

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

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

 

[kha9009lid]

جرب غير حجم الحقل في الجدول الى مزدوج

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

ليس هناك جدول

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

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

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

[رمهان]

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

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

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

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

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

بالتوفيق

[د.كاف يار]

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

كما في الصورة

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

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

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

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

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

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

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

بالتوفيق

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

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

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

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

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

كما في الصورة

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

[د.كاف يار]

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

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

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

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

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

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

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

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

kera11.rar

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

وشكرا

[kha9009lid]

جرب المرفق

kera11.accdb

Dim myc As Double

 

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

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

Dim myc As Double

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

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

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

بارك الله فيك

[kha9009lid]

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

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

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

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

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

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

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

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

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

إلى  Double

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