ما هو المشكلة في هذا الكود التحديث

[cudi]

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

 

 

وهذا هو المرفق

 

INSERT&UPDATE.rar

تم تعديل نوفمبر 14, 2018 بواسطه cudi

[jjafferr]

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

 

الظاهر انك نسخت كود SQL الاستعلام ، ونسيت بقايا من استعلام آخر

 

جرب هذا الكود:

Private Sub CmdUpdate_Click()
    
    Dim mySQL As String
    
    DoCmd.SetWarnings False
    
        mySQL = "UPDATE Details " & _
        " SET ID =" & Me.SaleID & _
        ", sDate = #" & Me.SaleDate & "#" & _
        ", CustomerName ='" & Me.CustName & "'" & _
        ", ItemsName ='" & Me.Sub!Items & "'" & _
        ", Qy = " & Me.Sub!Qy & _
        ", Price =" & Me.Sub!Price & _
        ", Total =" & Me.Sub!Total '& _
        " FROM Sale INNER JOIN Sub ON Sale.SaleID = Sub.SubID"
        Debug.Print mySQL
        
        CurrentDb.Execute mySQL

    DoCmd.SetWarnings True

End Sub

 

جعفر

[cudi]

لكن اذا الغي السطر الاخير في الكود ، النتجة يظهر هكذا

ما قبل العملية :

 

وهذا الصورة في النتجة 

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

 

تم تعديل نوفمبر 14, 2018 بواسطه cudi

[jjafferr]

طيب ، اعمل استعلام ، وخلينا نشوفه 

[cudi]

ايضا لا يعطيني النتجة

 

INSERT&UPDATE1.rar

[jjafferr]

الكود اللي كنت انت عامله هو هذا (لمرفقك الجديد):

.

وهذا للمرفق الاصل:

.

وهذا هو كود SQL الاستعلام اعلاه (وهو نفسه الذي انت كتبته في الـ VBA) :

UPDATE Details, 
Sale INNER JOIN Sub ON Sale.SaleID = Sub.SubID 
SET ID = 1, 
sDate = #5/1/2018#, 
CustomerName = 'cudi', 
ItemsName = '1', 
Qy = 3, 
Price = 22, 
Total = 66;

.

فهناك خطأ من اصل الموضوع ، ويجب ان تعيد عمل المطلوب من اول وجديد

 

معناه ، انك يجب ان تغير سؤال الموضوع ايضا

 

جعفر

[cudi]

طيب استاذي العزيز

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

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

 

 

[jjafferr]

الحل انك تخبرنا شو اللي تريد عمله ، واعطنا مثال واضح من قلعدة بياناتك ، وان شاء الله نحاول مساعدتك 🙂

 

جعفر

[cudi]

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

سانتظر مساعدتك