Discussion :

[Martintin]

Bonjour, alors voici mon compteur que j'ai fais pour compter le nombre d'enregistrement dans la table fonctionne sauf quand j'ajoute un nouvelle enregistrement le compteur ne change pas quand je click sur le bouton ajout.

je cherche mais je ne trouve pas la solution, pouvez-vous m'aidez s.v.p

Merci d'avance

Voici le code pour le compteur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_Load()
    
    txtAgagne = DCount("*", "Client Requête")    
    DoCmd.ShowToolbar "Ribbon", acToolbarYes
    
    DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
End Sub

Et voici le bouton pour ajouter un enregistrement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CmdAjout_Click()
On Error GoTo Err_cmdajout_click
 
 DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
 Prénom.SetFocus
 
Exit_cmdajout_click:
    Exit Sub
 
Err_cmdajout_click:
    MsgBox "Tous les champs qui sont accompagné d'un astérix * sont obligatoire "
    MsgBox "Si vous avez déja participé au tirage vous ne pouvez pas être inscris une autre fois, Bonne chance"
    Resume Exit_cmdajout_click
 
    End Sub

[Martintin]

J'ai trouvé. il fallait insérer le code dcount dans l'Évènement click du bouton.