Procédure sub ou function non définie : problème de paramètre je pense

Version imprimable

Bonjour tout le monde,

à partir du form load, j'appelle une procédure appelée AfficherEnregistrements :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
    Dim NomFichier As String
    'si le dernier caractère de App.Path = "\" alors NomFichier = A
    NomFichier = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "Contenu.mdb"
    If Not BDConnecter(NomFichier) Then
        MsgBox "Echec de connexion à la base de données" & vbCrLf & _
            NomFichier, vbCritical, Me.Caption
        Unload Me
        Exit Sub
    End If
    RemplirChoix
    AfficherEnregistrements
End Sub

J'ai à chaque fois ce message d'erreur :

Citation:

Procédure ou function non définie

Voici ma procédure :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub AfficherEnregistrements(Optional ByVal IndiceMiseAJour As Integer = -1)
'If rsTable.BOF Or rsTable.EOF Then au cas où on ajoute un enregistrement avant le tout premier ou après le tout dernier enregistrement
'ça sert surtout à ajouter un enregistrement, l'ajout se fait après le dernier, on est alors en EOF
'On met les champs à rien pour pouvoir y indiquer une nouvelle entrée
    If rsTable.BOF Or rsTable.EOF Then
        If (IndiceMiseAJour = -1) Or (IndiceMiseAJour = ChampRecette) Then textChamp(ChampRecette).Text = ""
        'If (IndiceMiseAJour = -1) Or (IndiceMiseAJour = ChampPrenom) Then textChamp(ChampPrenom).Text = ""
        'If (IndiceMiseAJour = -1) Or (IndiceMiseAJour = ChampAdresse) Then textChamp(ChampAdresse).Text = ""
        'If (IndiceMiseAJour = -1) Or (IndiceMiseAJour = ChampLocalite) Then comboChamp(ChampLocalite).ListIndex = -1
    Else
        If (IndiceMiseAJour = -1) Or (IndiceMiseAJour = ChampRecette) Then textChamp(ChampRecette).Text = rsTable("nom") & " " & rsTable("prix")
        'If (IndiceMiseAJour = -1) Or (IndiceMiseAJour = ChampPrenom) Then textChamp(ChampPrenom).Text = "" & rsTable("prenom")
        'If (IndiceMiseAJour = -1) Or (IndiceMiseAJour = ChampAdresse) Then textChamp(ChampAdresse).Text = "" & rsTable("adresse")
        'If (IndiceMiseAJour = -1) Or (IndiceMiseAJour = ChampLocalite) Then BDSelectionnerParId rsTable("ref_localite"), comboChamp(ChampLocalite)
    End If
    AfficherNavigation False
End Sub

Je pense que c'est à cause du paramètre que je ne passe pas mais mon Prof a exactement le même code et chez lui ça fonctionne.

Sauriez-vous me dire ce qu'il se passe ?

Je ne comprends pas non plus pourquoi on ne met pas de END IF à la fin de cette ligne de code :

Code:

If (IndiceMiseAJour = -1) Or (IndiceMiseAJour = ChampRecette) Then textChamp(ChampRecette).Text = ""

Un tout grand merci d'avance.

beegees

21/12/2008, 20h28
SfJ5Rpw8

Salut,

un paramètre Optionnel (Optional) est comme son nom l'indique Optionnel , et donc pas obligatoire.

Ta procédure elle est ou, dans le code de la form ?

Pour le If , pas de end if si tout se passe sur une seule ligne ;
22/12/2008, 09h32
beegees

Citation:

Envoyé par bbil

Salut,

un paramètre Optionnel (Optional) est comme son nom l'indique Optionnel , et donc pas obligatoire.

Ta procédure elle est ou, dans le code de la form ?

Pour le If , pas de end if si tout se passe sur une seule ligne ;

Salut,

Merci pour ta réponse et pour l'info sur le if.

Citation:

Ta procédure elle est ou, dans le code de la form ?

Je te laisse l'entierté du code afin que tu puisses voir par toi même, comme je l'ai dis, le prof a fait la même chose et ça fonctionne (je laisse son code aussi).

Machine à café c'est le programme qui pose problème, carnet d'adresse c'est le programme terminé qui fonctionne et qui reprend le code optional comme dans machine à café.

Merci d'avance pour ta réponse.

beegees
22/12/2008, 09h45
SfJ5Rpw8

Salut,

regarde où est ton curseur au moment du message d'erreur ..;)
22/12/2008, 09h58
beegees

Citation:

Envoyé par bbil

Salut,

regarde où est ton curseur au moment du message d'erreur ..;)

Salut,

Merci pour ta réponse qui m'a aidé à résoudre mon problème et qui va surtout m'aider à résoudre les problèmes dans le future.

Je ne savais pas que la sélection bleue était en fait la source du problème.

Encore un grand merci à toi et bon début de semaine et bonnes fêtes.

beegees
22/12/2008, 10h20
SfJ5Rpw8

Citation:

Envoyé par beegees

....
Je ne savais pas que la sélection bleue était en fait la source du problème....

oui, et pour ceux qui liront ce message, c'est la fonction sur-lignée :

Code:

textChamp(

qui était en cause et pas AfficherEnregistrements ;)