Re,
J'ai voulu sans trop m'y connaitre créé un répertoire téléphonique avec Access.
Au plus je le Pofine au plus il y a des erreurs dont celle ci :
Via un Bouton inséré dans le formulaire je lance (En principe) cette macro. Hélas j'ai l'erreur "Incompatibilité de Type"
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
17
18
19
20
21
22
23
24
25
26 Sub NouvelEnreg() On Error GoTo Err_NouvelEnreg ' Déclaration des variables Dim vRepNew As String vRepNew = MsgBox("Désirez vous : " & vbCr & vbCr _ & "- Enregistrer une nouvelle Fiche ?............[Oui] " _ & vbCr & "- Quitter Définitivement ?....................[Non] " _ & vbCr & vbQuestion + vbYesNo, "Confirmer Enregistrement.") If vRepNew = vbYes Then BtnBascEnreg_Click DoCmd.GoToRecord , , acNewRec ' Se positionner sur un Nouveel Enregistrement Else BtnAnnulEnreg_Click End If Exit_NouvelEnreg: Exit Sub Err_NouvelEnreg: MsgBox Err.Description Resume Exit_NouvelEnreg End Sub
Quelqu'un pourrait il m'aider.
D'avance Merci
Partager