[AC-2003] Erreur Incompatibilité Type [Résolu]

[Zeltron24]

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 :

Code :

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

Via un Bouton inséré dans le formulaire je lance (En principe) cette macro. Hélas j'ai l'erreur "Incompatibilité de Type"
Quelqu'un pourrait il m'aider.
D'avance Merci

[Philippe JOCHMANS]

Bonjour

Ce serait bien de dire sur quelle ligne est cette erreur.

En attendant remplaces cela

Code :

 Dim vRepNew As String

Par

Code :

 Dim vRepNew As Integer

La réponse de la MsgBox est une constante qui (bien que littérale) a une valeur chiffrée.



Philippe

[Zeltron24]

Bonjour le Forum,

Le problème c'est que je n'ai aucune indication car la fenetre du message d'erreur s'ouvre au dessus de mon formulaire sans entrer dans VBA.
Le Hic c'est que j'ai une autre macro du même genre et celle là fonctionne correctement........
Le fait de changer la Dim As Integer n'a aucune incidence
Cordialement

[f-leb]

bonjour,

une histoire de virgule ?

Code :

1
2
3
4
5
6
7
8
9
10
11
' Déclaration des variables
    Dim vRepNew As integer

        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
  ...

[Zeltron24]

A une virgule près j'étais millionnaire. Comme quoi la réussite dépends d'un rien.
Merci à toi F-Leb
J'utilise soit vbCr ou Chr(13) et cela m'a induikt en erreur.
Bonne fin d'Après Midi.
Cordialement