مشكلة في استعلام تحديث

[ahmedabuzena]

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

update invoices.rar

[Foksh]

قد يكون أحد الأسباب وجود قيم فارغة في الحقول الرقمية ، فالمفترض أن تكون القيمة للحقل الذي ليس له قيمة أن تكون = 0

جرب بداية هذه الفكرة بما أنك اعتمدت على استعلام معتمد على استعلام آخر

تم تعديل ديسمبر 17, 2023 بواسطه Foksh

[ahmedabuzena]

4 ساعات مضت, Foksh said:

قد يكون أحد الأسباب وجود قيم فارغة في الحقول الرقمية ، فالمفترض أن تكون القيمة للحقل الذي ليس له قيمة أن تكون = 0

جرب بداية هذه الفكرة بما أنك اعتمدت على استعلام معتمد على استعلام آخر

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

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

update invoices.rar

[Foksh]

اخي الكريم مجرد سؤال ، في حال تم الاستعلام فما هي النتيجة التي ستحدث في الجداول ؟

أعطني مثال لأتحقق ما إذا تم أم لا ,, فالبيانات في الجداول تبارك الله كثيرة ،

مع العلم أنه تم حل مشكلة القيم الفارغة بالجداول في السجلات التي من نوع البيانات Number بضغطة زر واحدة عن طريق هذا الكود ( كمعلومة )

 

    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim rs As DAO.Recordset

    Set db = CurrentDb

    For Each tdf In db.TableDefs
        If (tdf.Attributes And dbSystemObject) = 0 Then
            Set rs = db.OpenRecordset(tdf.Name)

            Do While Not rs.EOF
                For Each fld In rs.Fields
                    If fld.Type = dbLong Or fld.Type = dbSingle Or fld.Type = dbDouble Then
                        If IsNull(fld.Value) Then
                            rs.Edit
                            fld.Value = 0
                            rs.Update
                        End If
                    End If
                Next fld

                rs.MoveNext
            Loop

            rs.Close
            Set rs = Nothing
        End If
    Next tdf

    db.Close
    Set db = Nothing
    MsgBox "تم استبدال القيم الفارغة في جميع الحقول و في جميع الجداول.", vbInformation, "استبدال القيم"

 

[ahmedabuzena]

23 ساعات مضت, Foksh said:

اخي الكريم مجرد سؤال ، في حال تم الاستعلام فما هي النتيجة التي ستحدث في الجداول ؟

أعطني مثال لأتحقق ما إذا تم أم لا ,, فالبيانات في الجداول تبارك الله كثيرة ،

مع العلم أنه تم حل مشكلة القيم الفارغة بالجداول في السجلات التي من نوع البيانات Number بضغطة زر واحدة عن طريق هذا الكود ( كمعلومة )

 

    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim rs As DAO.Recordset

    Set db = CurrentDb

    For Each tdf In db.TableDefs
        If (tdf.Attributes And dbSystemObject) = 0 Then
            Set rs = db.OpenRecordset(tdf.Name)

            Do While Not rs.EOF
                For Each fld In rs.Fields
                    If fld.Type = dbLong Or fld.Type = dbSingle Or fld.Type = dbDouble Then
                        If IsNull(fld.Value) Then
                            rs.Edit
                            fld.Value = 0
                            rs.Update
                        End If
                    End If
                Next fld

                rs.MoveNext
            Loop

            rs.Close
            Set rs = Nothing
        End If
    Next tdf

    db.Close
    Set db = Nothing
    MsgBox "تم استبدال القيم الفارغة في جميع الحقول و في جميع الجداول.", vbInformation, "استبدال القيم"

 

اخي الكريم جزاكم الله خيرا على الاهتمام والرد 

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

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

انان قمت بإضافة حقل ترقيم تلقائي وقمت بنسخه في جدول الحسابات بس بردة نفس المشكلة

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

update invoices 2.rar

[ahmedabuzena]

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

[Foksh]

في 19‏/12‏/2023 at 13:15, ahmedabuzena said:

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

 

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

عند التعديل على فاتورة استعمل استعلام تحديث يشمل هذا التغيير في الجدول المطلوب تحديثه .

[ahmedabuzena]

21 ساعات مضت, Foksh said:

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

عند التعديل على فاتورة استعمل استعلام تحديث يشمل هذا التغيير في الجدول المطلوب تحديثه .

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

[kkhalifa1960]

أستاذ @ahmedabuzena في خطأ بإستعلام التحديث  ([استعلام باجمالى فواتير الجملة بالدولار]![SumOftotal_retail_sell]) هذا الحقل غير موجود بالاستعلام .

الموجود ( total_retail_sell )

فأصبح قيمة التحديث ([استعلام باجمالى فواتير الجملة بالدولار]![total_retail_sell])) بدل  وجرب بيعمل معك استعلام التحديث بدون رسالة الخطأ .

تم تعديل ديسمبر 24, 2023 بواسطه kkhalifa1960

[ahmedabuzena]

10 ساعات مضت, kkhalifa1960 said:

أستاذ @ahmedabuzena في خطأ بإستعلام التحديث  ([استعلام باجمالى فواتير الجملة بالدولار]![SumOftotal_retail_sell]) هذا الحقل غير موجود بالاستعلام .

الموجود ( total_retail_sell )

فأصبح قيمة التحديث ([استعلام باجمالى فواتير الجملة بالدولار]![total_retail_sell])) بدل  وجرب بيعمل معك استعلام التحديث بدون رسالة الخطأ .

اخي الكريم لم يعمل وهو بيقوم بفتح قائمة الحقول تلقائي

[kkhalifa1960]

تفضل أستاذ @ahmedabuzena بعد الدراسة والتحليل اليك الشرح والحل ووافني بالرد . واذا كان هذا طلبك لا تنسى الضغط على أفضل اجابة .

https://www.mediafire.com/file/csbiu4vmgnz4bfv/update+invoices+2+(1).rar/file

تم تعديل ديسمبر 26, 2023 بواسطه kkhalifa1960

[ahmedabuzena]

15 ساعات مضت, kkhalifa1960 said:

تفضل أستاذ @ahmedabuzena بعد الدراسة والتحليل اليك الشرح والحل ووافني بالرد . واذا كان هذا طلبك لا تنسى الضغط على أفضل اجابة .

https://www.mediafire.com/file/csbiu4vmgnz4bfv/update+invoices+2+(1).rar/file

 

15 ساعات مضت, kkhalifa1960 said:

تفضل أستاذ @ahmedabuzena بعد الدراسة والتحليل اليك الشرح والحل ووافني بالرد . واذا كان هذا طلبك لا تنسى الضغط على أفضل اجابة .

https://www.mediafire.com/file/csbiu4vmgnz4bfv/update+invoices+2+(1).rar/file

الف الف شكر على مجهودك ووقتك

[ahmedabuzena]

في 26‏/12‏/2023 at 06:42, kkhalifa1960 said:

تفضل أستاذ @ahmedabuzena بعد الدراسة والتحليل اليك الشرح والحل ووافني بالرد . واذا كان هذا طلبك لا تنسى الضغط على أفضل اجابة .

https://www.mediafire.com/file/csbiu4vmgnz4bfv/update+invoices+2+(1).rar/file

السلام عليكم اخى الكريم انا حاولت اطبق المثال على البرنامج لكن يعطيني انه لا يوجد بيانات للتحديث رغم ان المثال يعمل بدون مشاكل

UPDATE3.rar

[kkhalifa1960]

أخي مثالك يعمل عندي بشكل طبيعي . طالع الفيديو .

[ahmedabuzena]

7 ساعات مضت, kkhalifa1960 said:

أخي مثالك يعمل عندي بشكل طبيعي . طالع الفيديو .

اكتشفت المشكلة واشتغل الحمد لله جزاكم الله خيرا