المساعدة في تصفير حقول مبالغ عندما اضع علامة صح في خانة اختيار

[حربي العنزي]

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته 

طلبي مشروح داخل النموذج المرفق بالتفصيل الممل مع شكري وتقديري لكم جميعا

ProgSals.rar

[jjafferr]

وعليكم السلام 

 

وحيا الله من جانا 

 

انا ما عملت مثل ما تريد ، ولكن ، جرب ، انت مو خسران ، انا غيّرت لون الخط الى لون الخلفية ، فالبيانات ما تقدر تشوفها ، إلا اذا كنت في الحقل

.

.

خلي هذا الكود على حدث النقر على الحقل Ehdaa

Private Sub Ehdaa_Click()
On Error Resume Next

    Dim ctrl As Control
    
    If Me.Ehdaa = -1 Then
    
        Font_Color = RGB(255, 255, 153)
    Else
        Font_Color = RGB(0, 0, 0)
        
    End If
    
    
    For Each ctrl In Me.Controls
        
        If ctrl.BackColor = RGB(255, 255, 153) Then
            'MsgBox ctrl.Name & vbCrLf & ctrl.Value
            ctrl.ForeColor = Font_Color
        End If
    
    Next
    
    
End Sub

.

جعفر

712.ProgSals.mdb.zip

[AlwaZeeR]

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

كيف حالكم جميعاااا

عساكم بخير

استخدم دالة switch

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

هكذا:

=Switch(Nz([Ehdaa],0)=صواب,0,Nz([Ehdaa],0)=False,[upric])

تحياتي

::

 

[حربي العنزي]

استاذي الفاضل جعفر السلام عليكم ورحمة الله وبركاته 

نعم هذا هو المطلوب تماما 

لاسعني الا ان اسأل الله جل وعلا ان يمن عليك وعلى عائلتك الكريمة بالصحة والعافية والستر في الدنيا والاخرة يارب 

alwazeer استاذي الفاضل 

السلام عليكم ورحمة الله وبركاته شكرا جزيلا لمشاركتك سائلا الله جل وعلا ان يحفظك ويمن عليك بالصحة والعافية يارب 

[حربي العنزي]

استاذي الفاضل جعفر انا جربت الطريقة الطريقة ممتازة لكن تبقى المبالغ في الحقول بحيث عندما اسحب تقرير تظهر هذه المبالغ وهذا لا اريده اريد عندما انقر على خانة الاختيار يتم تصفير كل الحقول ذات المبالغ ما عدى حقل الكمية يبقى انا اعطيتها لون اصفر حتى لايتم التعديل على كل الحقول التعديل فقط على الحقول الملونة ذات المبالغ مع شكري وتقديري لك استاذي الفاضل 

[عبد الله قدور]

السلام عليكم

برايي لازم تنشئ متغيرات بعدد الحقول الموجودة ثم تضع قيمة الحقول في المتغيرات وتقوم بمسح هذه الحقول عند وضع اشارة الصح وعندما تزيلها تقوم بنقل القيم من المتغيرات الى مربعات النص

ولو شرحت لنا الهدف من هذا العمل فمن الممكن ان يكون هناك حل افضل مما طلبت لحل مشكلتك والوصول الى هدفك

[jjafferr]

وعليكم السلام

 

لازلت تستطيع استعمال الكود ، ولكن بطريقة مختلفة قليلا ، وهي ان تجعل لون خط الحقل في التقرير = لون خلفية الحقل = ابيض مثلا ، وعليه لن ترى البيانات الموجودة

 

وفكرة أخي عبدالله هي الاسهل والافضل لك

 

جعفر

[حربي العنزي]

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته 

شكرا جزيلا لردك السريع استاذ عبدالله

 الغرض هو : هذه قائمة مبيعات ندخل الكمية ويتم الاحتساب على ضوء الكمية المدخلة حسب المعادلات التي بالاستعلام 

 ولكن عندما نريد ان نحسب قائمة على سبيل الاهداء ندخل فقط  الكمية وبقية الحقول تكون صفرا بحيث عندما نسحب تقرير قائمة المبيعات تكون فيها فقط الكمية وبقية الحقول تكون صفر  

[jjafferr]

سيدي الفاضل

 

في التقرير ، في قسم التفصيل ، وعلى حدث التنسيق ، اكمل هذا الكود:

if forms!اسم النموذج!Ehdaa=-1 then
myFont_Color=rgb(255,255,255)
else
myFont_Color=rgb(0,0,0)
endif

الآن تكتب اسماء الحقول التي لا تريدها ان تُظهر بياناتها
me.field1.forecolor=myFont_Color
me.اسم الحقل الثاني الذي في التقرير.forecolor=myFont_Color
me.field3.forecolor=myFont_Color
me.field4.forecolor=myFont_Color
....

.

ولكن تأكذ انه في حدث النقر على الزر في النموذج لفتح التقرير ، تأكد من حفظ البيانات قبل سطر فتح التقرير ، وتستطيع ان تكتب:

refresh

او
docmd.runcommand.accmdsaverecord

وبعدها يأتي امر فتح التقرير
docmd.openreport ...

 

جعفر

[عبد الله قدور]

18 دقائق مضت, حربي العنزي said:

الغرض هو : هذه قائمة مبيعات ندخل الكمية ويتم الاحتساب على ضوء الكمية المدخلة حسب المعادلات التي بالاستعلام 

 ولكن عندما نريد ان نحسب قائمة على سبيل الاهداء ندخل فقط  الكمية وبقية الحقول تكون صفرا بحيث عندما نسحب تقرير قائمة المبيعات تكون فيها فقط الكمية وبقية الحقول تكون صفر  

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

1- يمكنك ترك الحقول مليئة ووضع علامة كبيرة على التقرير تقول انها هدية (قد تستفيد من هذه الطريقة بأنك تعلم الزبون بقيمة الهدية المقدمة له )

2- تحويل العمليات الحسابية للتقرير بدل الاستعلام بحيث تكون في حدث بعد التحديث لمربع نص الكمية بشرط مربع الاختيار بحيث اذا كان مفعلا يقوم بملء باقي مربعات النص والعكس بالعكس

3- يمكنك تحويل خاصية مربع النص الى غير مرئي في حال كان مربع الاختيار في القائمة مفعلا

 

[حربي العنزي]

اساتذتي الافاضل السلام عليكم ورحمة الله وبركاته 

استاذي الفاضل جعفر واستاذي الفاضل عبدالله نعم تمت العملية بنجاح الله لايحرمنا من شخصيكما اللهم ربي يحفظكما ويمن عليكما بالصحة والعافية يارب