Private Sub Btn_supprimer_Click()
Dim idArticle As Long
idArticle = DLookup("id", "Stock", "article='" & Me.article & "'")
Dim str As String, rs As Recordset
If IsNull(Me.ID) Then Exit Sub
str = "Delete from Sorties where id=" & Me.ID
DoCmd.SetWarnings False
DoCmd.RunSQL str
Set rs = CurrentDb.OpenRecordset("Select * From Stock Where id=" & Me.article)
rs.Edit
rs("Sortie") = rs("Sortie") - Me.Quantite
rs.Update
rs.Close
DoCmd.SetWarnings True
DoCmd.Requery
MsgBox "Enregistrement Supprimé !", vbInformation, ""
Form_Sorties.Requery
Me.article = Null
Me.Quantite = Null
Me.Daate = Null
Set rs = Nothing
End Sub
مشكل بهدا الجزء " Set rs = CurrentDb.OpenRecordset("Select * From Stock Where id=" & Me.article) "