Bouton formulaire
mya-cpt
Messages postés
3
Statut
Membre
-
mprog67 Messages postés 51 Statut Membre -
mprog67 Messages postés 51 Statut Membre -
Bonjour,
Voila j'ai créer un formulaire à partir d'une table qui contient NUMclient, NOmclient, adresse, et j'ai une autre table qui contient NUMclient et nombredechangementeffectué, je veux créer un bouton dans le formulaire tel que quand je clic dessus le champs nombredechangementeffectué d'un client dans la 2éme table s'incrémente.
en fait, j'ai crée un bouton à partir d'une requete mise à jour qui incrémente le champs nombredechangementeffectué, mais quand je rentre un autre client dans le formulaire, et le champs du 1er et du 2eme s'incrémente. il faut ajouter un critère mais je c pas lequel
Voila j'ai créer un formulaire à partir d'une table qui contient NUMclient, NOmclient, adresse, et j'ai une autre table qui contient NUMclient et nombredechangementeffectué, je veux créer un bouton dans le formulaire tel que quand je clic dessus le champs nombredechangementeffectué d'un client dans la 2éme table s'incrémente.
en fait, j'ai crée un bouton à partir d'une requete mise à jour qui incrémente le champs nombredechangementeffectué, mais quand je rentre un autre client dans le formulaire, et le champs du 1er et du 2eme s'incrémente. il faut ajouter un critère mais je c pas lequel
1 réponse
-
Bonsoir, voilà un exemple de code qui vous sera utile.
Private Sub (Ton boutton)_Click()
Dim Dbs As Database
Dim Rst As Recordset
Dim Trouve As Boolean
Set Dbs = CurrentDB()
Set Rst = Dbs.OpenRecordset("Ta deuxième table")
Trouve = False
For i = 0 To Rst.RecordCount - 1
If Rst.Fields(0) = Me!NUMclient Then
Rst.Fields(1) = Rst.Fields(1) + 1
Trouve = True
Exit for
End if
Next i
If Trouve = False Then
MsgBox "Ce numéro client n'existe pas.",VbInformation,"mprog67@yahoo.fr"
End if
End Sub
