ايقاف المعادلة فى حالة البحث بالمبلغ

**abouelhassan** · سبتمبر 25, 2021

السلام عليكم اخوانى الاساتذة الكرام عباقرة المنتدى

احتاج مساعدتكم لو تكرمتم

لدى فورم اسمه sersh

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

1.png.75ca7ac9cdb1517de7009cf8bd065a11.png

احتاج فى حالة البحث بالمبلغ ان لايظهرفى تكست الاجمالى بدون الحساب1 اى شئ تظل بيضاء

ولا تظهر نتائج الافى حالة البحث بالرقم فقط

شاكر فضلكم وداعى لكم من كل قلبى

احترامى

DATA1041-5.mdb

**محمد أبوعبدالله** · سبتمبر 26, 2021

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

تفضل اخي الكريم

تم الاستغناء عن كتابة الكود في مصدر تحكم Text20 وكتابته بعد البحث

Me.Text20 = DSum("iAmount", "tbl_Items", "iPage <=1 " & " And [iBill_Number] = '" & Me.txtsearch & "'")

DATA1041-5.rar

تحياتي

**abouelhassan** · سبتمبر 26, 2021

اسعد الله اوقاتك استاذى محمد أبوعبدالله

اشكرك اخى بعد تحويل المعادلة لكود اصبح التحديث بطئ

هل من حل استاذى لعودة المعادلة

ربنا يبارك لك اللهم امين

اخيك باحترام

**abouelhassan** · سبتمبر 28, 2021

للرفع رفع الله قدركم

**abouelhassan** · سبتمبر 28, 2021

استاذ محمد أبوعبدالله بارك الله فيك

مااقصده استاذى انظر هنا قمت بالبحث بالرقم100 فى السنة المالية2022

1.png.fda39f132ca8b202238cb96b65655635.png

الناتج فى اجمالى بدون حساب رقم1=200 مع ان المبالغ=100+15200=15300

وعند البحث بالمبلغ بالرغم من انى ضغطت فى تكست المبلغ كان تكست اجمالى بدون حساب رقم1 بيتفرغ اى بيكون فارغ فى حدث عند الضغط فى تكست ابحث بالمبلغ تتفرغ تكست اجمالى بدون حساب رقم 1اما الان لازال بالتكست رقم 200

2.png.4cf503c52bf7e3fd0fe9673a28cdb85a.png

احترام من القلب

تم تعديل سبتمبر 28, 2021 بواسطه abouelhassan

**محمد أبوعبدالله** · سبتمبر 29, 2021

هذه هي المعادلة الموجودة في الملف الاصلي

=Sum(IIf([iPage]=1 Or [iPage]=0 Or [iPage]=0 Or [iPage]=0;0;[iAmount]))

المعيار iPage = 0 او iPage =1

ولو لاحظت لا يحتوي هذا الا على هذا المبلغ = 200

DATA1041-5.rar

تحياتي

**abouelhassan** · سبتمبر 29, 2021

بارك الله فيك استاذى

انظر استاذى بالكود الناتج200

1.png.67ff2394b5ee232c86158ebc9405f664.png

بالمعادلة الناتج صحيح 15300

2.png.31a8dac62b02a1d50dbfe0011ec986cf.png

اعزك الله وزادك من فضله هناك خلل فى الكود

احترامى استاذى

**محمد أبوعبدالله** · سبتمبر 30, 2021

حسنأ اخي الكريم

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

    Dim myWhere As String
    
    myWhere = myWhere & "iPage>1"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)

DATA1041-5.rar

تحياتي

**abouelhassan** · سبتمبر 30, 2021

بارك الله فيك استاذى الحبيب

اعتذر اليك لا يوجد كود فقط المعادلة خاصتى

زادك الله من فضله وعلمه اللهم امين يارب

**محمد أبوعبدالله** · أكتوبر 1, 2021

تفضل اخي الكربم

00001.png.6a8285d22ed92315c4d7ac085d081af3.png

00003.png.b2776147c5e563637dd48f37f0b8ec4e.png

نحياتي

**abouelhassan** · أكتوبر 1, 2021

بارك الله فيك استاذى الكريم محمد أبوعبدالله اشكرك

استأذنك ممكن شرح الكود يعنى لو عايز اجمالى بدون حساب 1و2و3 اضيف المعيار ازى

لانى جربت اضافة الحساب2 و3 ولم يصح الكود

   myWhere = myWhere & "iPage>1"&"iPage>2"&"iPage>3"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)
or
   Dim myWhere As String
    myWhere = myWhere & "iPage>1"
    myWhere = myWhere & "iPage>2"
    myWhere = myWhere & "iPage>3"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)

شكر وتقدير واحترام من اخيك

**محمد أبوعبدالله** · أكتوبر 2, 2021

11 ساعات مضت, abouelhassan said:

لو عايز اجمالى بدون حساب 1و2و3 اضيف المعيار ازى

يكفي التعديل التالي

    Dim myWhere As String

    myWhere = myWhere & "iPage>3"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)

اما اذا اردت 3 فقط

    Dim myWhere As String

    myWhere = myWhere & "iPage=3"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)

تحياتي

**abouelhassan** · أكتوبر 2, 2021

اتقدم اليك بخالص الشكر استاذى محمد أبوعبدالله

زادك الله من فضله وبارك لك اللهم امين

**abouelhassan** · أكتوبر 3, 2021

استاذى العزيز استاذى محمد أبوعبدالله

قمت بعمل تكست اخرى مجاورة اسمهاtext21

ووضعت كود التالى بس لم ينجح للتطبيق على الاثنين تكست

الاولى الاجمالى بدون الحساب1

الثانية بدون الحساب1&2&3

     Dim myWhere As String
    myWhere = myWhere & "iPage=1"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)
    myWhere = myWhere & "iPage>3"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    Me.Text21 = DSum("iAmount", "tbl_Items", myWhere)

بس لم ينجح استاذى مش عارف اعالج الخطأ

بارك الله فيك اخى الكريم استاذى العزيز

احترامى

تم تعديل أكتوبر 3, 2021 بواسطه abouelhassan

**محمد أبوعبدالله** · أكتوبر 3, 2021

الخطأ انك وضعت myWhere نفسها فاما ان نحتار اسم جديد

    Dim myWhere As String
    myWhere = myWhere & "iPage=1"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)
    myWhere = myWhere & "iPage>3"
	
	Dim myWhere1 As String
    myWhere1 = myWhere1 & " and YEAR = " & Me.Combo97
    myWhere 1= myWhere1 & "and iBill_Number = '" & Me.txtsearch & "'"
    Me.Text21 = DSum("iAmount", "tbl_Items", myWhere1)

او تقم بوضع السطر التالي

    Dim myWhere As String
    myWhere = myWhere & "iPage=1"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)
    
	myWhere = ""
	myWhere = myWhere & "iPage>3"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    Me.Text21 = DSum("iAmount", "tbl_Items", myWhere)

تحياتي

تم تعديل أكتوبر 3, 2021 بواسطه محمد أبوعبدالله

**abouelhassan** · أكتوبر 4, 2021

في ٢‏/١٠‏/٢٠٢١ at 03:42, محمد أبوعبدالله said:
في ١‏/١٠‏/٢٠٢١ at 16:27, abouelhassan said:

لو عايز اجمالى بدون حساب 1و2و3 اضيف المعيار ازى

يكفي التعديل التالي
    Dim myWhere As String

    myWhere = myWhere & "iPage>3"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)

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

انا عايز الاجمالى بدون الحساب1+2+3 وعندما طبقت التعديل بالاعلى

    Dim myWhere As String

    myWhere = myWhere & "iPage>3"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)

اعطانى الاجمالى بدون الحساب3 فقط

ربنا يرضى عنك استاذى

احترامى اخيك

تم تعديل أكتوبر 4, 2021 بواسطه abouelhassan

**محمد أبوعبدالله** · أكتوبر 4, 2021

مرحبا اخي الكريم

عند البحث برقم 100 يعطي نتيجة صحيحة = 15200

وعند البحث برقم 120 يعطي نتيجة صحيحة = 2700

بمقارنة هذه النتائج مع بيانات جدول tbl_Items كانت النتائج مضبوطة

تأكد جيدا من وجود السطر التالي بالكود

myWhere = ""

الكود كامل

    Dim myWhere As String
    myWhere = ""
    myWhere = myWhere & "iPage>3"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)

تحياتي

**abouelhassan** · أكتوبر 5, 2021

شرح الله صدرك اخى استاذى الحبيب محمد أبوعبدالله

فعلا كنت انسى السطر بس بردو رجعنا لنقطة الصفر لان التكست المراد ان تفرغ فى حالة البحث بالمبلغ لا تفرغ اخى

في ٢٦‏/٩‏/٢٠٢١ at 01:01, abouelhassan said:

لدى فورم اسمه sersh

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

احتاج فى حالة البحث بالمبلغ ان لايظهرفى تكست الاجمالى بدون الحساب1 اى شئ تظل بيضاء

ولا تظهر نتائج الافى حالة البحث بالرقم فقط

اشكرك استاذى الحبيب

33 دقائق مضت, محمد أبوعبدالله said:
myWhere = ""

شرح الله صدرك استاذى الحبيب

بارك الله فيك اشكرك من كل قلبى اخى فى الله

**abouelhassan** · أكتوبر 5, 2021

تم حل المشكلة استاذى بفضل الله وفضلك اشكرك من قلبى

احترامى لك اخى العزيز

**محمد أبوعبدالله** · أكتوبر 5, 2021

اتفقنا قبل ذلك على وضع السطر التالي

Me.Text20 = Null

في الكود الخاص Text22_Click

تحياتي

الان, abouelhassan said:

تم حل المشكلة استاذى بفضل الله وفضلك اشكرك من قلبى

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

دمت بكل خير

تحياتي

تسجيل الدخول

ايقاف المعادلة فى حالة البحث بالمبلغ

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

abouelhassan

محمد أبوعبدالله

abouelhassan

abouelhassan

abouelhassan

محمد أبوعبدالله

abouelhassan

محمد أبوعبدالله

abouelhassan

محمد أبوعبدالله

abouelhassan

محمد أبوعبدالله

abouelhassan

abouelhassan

محمد أبوعبدالله

abouelhassan

محمد أبوعبدالله

abouelhassan

abouelhassan

محمد أبوعبدالله

Join the conversation

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

تصفح الموقع

تصفح جديد الموقع

Support

Important Information