Je vous sollicite à nouveau.... Merci d'avance....
J'ai un soucis, je possède un formulaire qui renvoit les formulaires d'un champs du style là :
Num Nom Stock Différence
2 Chaussures 80 3
4 Bottes 54 6
56 Tee-shirts 90
54 Blouson 23 -13
64 etc.... 92 72
Ce que j'aimerai c'est que quand la différence est positive cela ajoute autant de vêtements (Par exemple : pour les chaussures, en ajouter 3 etc...), que quand la différence est négative, cela supprime autant de message et que quand la différence est vide (Nothing) rien ne se passe... De plus, quand je clique sur mon bouton valider je voudrais que cela parcoure toutes les lignes et que tout fonctionne... Voila mon code mais cela ne marche pour l'enregistrement où la souris pointe mais pas pour tous :
Merci d'avance : Jespere avoir été assez clair : N'hésitez pas pour les questions je ss connecté toute la journée :
Dim SQL As String
Dim Cpt As Integer
Cpt = 0
SQL = "INSERT INTO VETEMENT(Num_Typ, Num_Pers, Num_Etat, Date_Pris, Date_Rendu) " _
& "VALUES (" & Form_Difference.ID_Vetement.Value & ", NULL, 5, NULL, NULL)"
Dim MSG As String
If IsNull(Form_Difference!Difference) Then
MSG = MsgBox("null")
Else
MSG = MsgBox("not null")
End If
If IsNull(Form_Difference!Difference) Then
Else
If CInt(Form_Difference.Difference.Value) > -1 Then
For Cpt = 1 To CInt(Form_Difference.Difference.Value)
DoCmd.RunSQL SQL
Next
MsgBox ("Mise à jour effectuée")
Me.Refresh
Else
If CInt(Form_Difference.Difference.Value) < 0 Then
SQL = "SELECT Num_Vet FROM VETEMENT " _
& "WHERE Num_Pers Is Null AND Num_Etat=5 AND Num_Typ= " & Form_Difference.ID_Vetement.Value & ";"
Set bds = CurrentDb
Set rst = bds.OpenRecordset(SQL)
If Not rst.EOF() Then
rst.MoveFirst
For Cpt = 1 To -CInt(Form_Difference.Difference.Value)
If Not rst.EOF() Then
SQL = "DELETE FROM VETEMENT " _
& "WHERE Num_Vet=" & rst(0) & ";"
DoCmd.RunSQL SQL
rst.MoveNext
Else
MsgBox ("Il n'y a plus de vêtements de ce type.")
End If
Next
MsgBox ("Mise à jour effectuée")
Me.Refresh
Else
MsgBox ("Il n'y a plus de vêtements à supprimer.")
End If
Me.Refresh
Else
MsgBox ("Mise à jour impossible.")
Me.Refresh
End If
End If
Me.Refresh
End If
Configuration: Windows XP
Internet Explorer 6.0