Bouton formulaire Fermé

Question

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

Configuration: Windows 7 / Firefox 3.5.19

mprog67 · Answer

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

Bouton formulaire

1 réponse

Discussions similaires