تحديث الحقول كلها دفعة واحدة

[safari]

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

 

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

عايز استعلام التحديث يحدث كل حقول الجدول دفعة واحدة

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

اسم الاستعلام 

updateStoretransaction

 

شكرا جزيلا

test.rar

[jjafferr]

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

 

استعلامك صحيح ، وعندك حاليا شرط رقم الفاتورة ، واذا اردت ان تضيف الشروط / المعايير ، فتقدر تحت كل حقل ان تكتبه 🙂

 

اما اذا اردت تشغيل الاستعلام من النموذج ، فضع الكود التالي على اي حدث يناسبك:

if me.dirty then me.dirty = false

docmd.setwarnings false
  docmd.openquery "updateStoretransaction"
docmd.setwarnings true

 

 

ملاحظة: من الخطورة ان تضع On error Resume Next في كل حدث في الكود ، فاذا حدث خطأ معين ، فلن تعرف اين الخطأ وما هو الخطأ ، لذا يجب عليك اصطياد الخطأ ، ثم عمل كود لمراعاة هذا الخطأ فقط !!

 

جعفر

[safari]

السلام عليكم

 

يرجى العلم انه لا يتم تحديث كل الحقول و انما حقل واحد فقط 

و انا اريد تحديث كل الحقول بناء على تحديث الحقول فى الفاتورة 

[jjafferr]

تفضل 🙂

 

اضف المعيار الجديد الى استعلامك :

.

اعمل زر تحديث على النموذج الرئيسي ، وضع هذا الكود فيه:

    Dim rst As DAO.Recordset
    
    DoCmd.Hourglass True
    
        Set rst = Me.invdetails_Subform.Form.Recordset
        rst.MoveFirst
    
        Do Until rst.EOF
        
            DoCmd.SetWarnings False
                DoCmd.OpenQuery "updateStoretransaction"
            DoCmd.SetWarnings True
            
            rst.MoveNext
        Loop
    
    DoCmd.Hourglass False
    
    rst.MoveFirst
    

.

جعفر

1393.Update_From_SubForm.accdb.zip