service invoice metin kutusuna veri yazdığında aynı plaka ve aynı tarihlilere service invoicedeki veriyi eklemesi için, service invoice metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle

Private Sub Service_Invoice_AfterUpdate()

If MsgBox("diğer plakalara güncelleme yapılsın mı?", vbYesNo) = vbYes Then



DoCmd.SetWarnings False

DoCmd.RunSQL "UPDATE SYS_INBOUND SET SYS_INBOUND.[Service Invoice] = '" & [Service Invoice] & "' WHERE (((SYS_INBOUND.[delivery date])=#" & Format([delivery date], "mm-dd-yyyy") & "#) AND ((SYS_INBOUND.[delivery truck no])='" & [delivery truck no] & "') AND ((SYS_INBOUND.[_ID])<>" & [_ID] & "));"

DoCmd.SetWarnings True

End If



DoCmd.RunCommand acCmdSaveRecord



Me.List1.Requery

End Sub

Eğer önceki mesajımda belirttiğim gibi, ölümcül hataları düzeltmezsen ileride büyük problemlere yol açacak, sonradan uyarmadı demeyin.