1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Private Sub Total()
If IsNull(Me.codeProduits) Then
Me.Stock = ""
Exit Sub
End If
Dim db As DAO.Database: Set db = CurrentDb
Dim rst As DAO.Recordset
Dim strSQL As String
strSQL = "SELECT Nz([stock],0)+ Nz((DSum('[Entree]','[ProduitStock]','[codeProduits]=' & [Id_produits])),0)-Nz((DSum('[Sortie]','[ProduitStock]','[codeProduits]=' & [Id_produits]))) AS Total " _
& "FROM Produits WHERE (((Produits.Id_produits)=" & Me.codeProduits & "));"
Set rst = db.OpenRecordset(strSQL)
Me.Stock = rst("Total")
rst.Close
Set rst = Nothing
Set db = Nothing
End Sub
Private Sub Quantité_Entree_AfterUpdate()
Me.Dirty = False
Call Total
End Sub |
Partager