Discussion :

[soundary123]

Bonjour,

J'utilise la version Access 2007 et j'ai créé une base pour une auto-école.
J'ai donc créé un formulaire "Liste des élèves" ainsi qu'un autre "Fiche elève".
Dans le formulaire "Liste des élèves" j'ai ajouté un bouton pour atteindre un formulaire "Fiche eleves" vierge.

J'ai donc créé le bouton grâce à l'assistant et ensuite je suis allée dans visual basic , où j'ai inséré ce code :

Private Sub BT_Nouveau_Click()
DoCmd.OpenForm stDocName, , , StLinkCriteria, acFormAdd

End Sub

mais il ne fonctionne pas, quelqu'un pourrait-il m'aider svp ? Le code est-il mauvais?

je vous remercie

[chernirachid]

Bonjour, ça semble qu'il manque quelque chose

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
16
Private Sub BT_Nouveau_Click()
On Error GoTo Err_BT_Nouveau_Click
 
Dim stDocName As String
   'Dim stLinkCriteria As String
  stDocName = "ton formulaire"
DoCmd.OpenForm stDocName, , , , acFormAdd
'ou    DoCmd.OpenForm ("ton formulaire"), , , , acFormAdd
Exit_BT_Nouveau_Click:
    Exit Sub
 
Err_BT_Nouveau_Click:
    MsgBox Err.Description
    Resume Exit_BT_Nouveau_Click
 
End Sub

[soundary123]

Je te remercie mais en fait j'ai fait avec les macro et ça fonctionne.