Discussion :

[HABILER]

Bonjour la Communauté


Je voudrais utiliser la valeur de Numchaine dans LeMAtricule mais j'ai un message d'erreur "Argument non facultatif".

Quelqu'un aurait une idee d'ou provient l'erreur.

Merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
....
 
LeMatricule = Left(rst!NomNameMatrK,1, NumChaine)
 
............
 
Public Function NumChaine(chaine) As String
Dim A As String
 A = InStrRev(chaine, "-") - 2
NumChaine = A
 
End Function

[PipoWIL]

Bonjour,
2 commentaires :
1.
la fonction Left() te retourne les x premiers caractères d'une chaine. Tu dois donc lui dire "Donne-moi les X premières lettres de blahblah". Donc, tu lui donne la chaine blahblah et le nombre de caractères, soit deux choses.
Dans

Code :

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

Left(rst!NomNameMatrK,1, NumChaine)

tu lui donnes 3 choses.
Si tu fais

Code :

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

LeMatricule = Left(rst!NomNameMatrK,1)

alors LeMatricule contiendra le premier caractère de la chaine rst!NomNameMatrK
Si tu fais

Code :

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

LeMatricule = Left(rst!NomNameMatrK,2)

alors LeMatricule contiendra les deux premiers caractères de la chaine rst!NomNameMatrK ....



2.
à propos de

Code :

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

1
2
Dim A As String
 A = InStrRev(chaine, "-") - 2

la fonction InStrRev te retourne la position d'une chaine parmi une autre. La position, c'est un numéro. Donc tu dois définir ta valeur A comme un nombre.
Ce serait bien d'écrire

Code :

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

1
2
Dim A As Long
 A = InStrRev(chaine, "-") - 2

Définir précisement les variables dès le début te permettra d'éviter des erreurs plus tard dans le code.

[HABILER]

Merci de ta réaction.

Mais lorsque j'ecris

Code :

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

LeMatricule = Left(rst!NomNameMatrK, NumChaine)

Il me met le même message d'erreur "Argument non facultatif".

[tee_grandbois]

bonsoir,

Il me met le même message d'erreur "Argument non facultatif".

Code :

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

LeMatricule = Left(rst!NomNameMatrK, NumChaine)

il attend l'argument chaine de NumChaine:

Code :

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

Public Function NumChaine(chaine) As String

et en passant, n'oublie pas de déclarer NumChaine en numérique, pas en texte