Private Sub Komut30_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE alislar SET Satildi = 0 WHERE (((alisid)=[Formlar]![satisarama]![alisid]));"
DoCmd.RunSQL "DELETE alisid FROM satislar WHERE (((alisid)=[Formlar]![satisarama]![alisid]));"
DoCmd.SetWarnings True
MsgBox "Satış İptal Edildi...", vbInformation, "Satış İptali"
Me.Liste333.Requery
End Sub
#2
