Bouton formulaire
mya-cpt
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
mprog67 Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
mprog67 Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Bouton formulaire
- Whatsapp formulaire opposition - Guide
- Formulaire de réclamation facebook - Guide
- Formulaire de reclamation instagram - Guide
- Diagnostic bouton photo - Accueil - Outils
- Bouton reinitialisation pc - Guide
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
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