Bonjour,
Je travail actuellement sur un code et celui-ci ne m'affiche pas d'erreur mais ne fonctionne pas.
J'avoue que j'ai essayé plein de chose qui ne fonctionne pas.
Voici mon code dans la page ou je le créer :
Public Function CFinitial(VarNomAuteur As String,VarKeyNom As string) As Boolean
Dim Retour As Boolean
If (VarKeyNom = "Nom" AND
me.TailleAuteur.CodifSignature = "T_6") Then
Retour = False
ElseIf (VarKeyNom = "Nom1") Then
Retour = False
ElseIf (VarKeyNom = "Nom2" AND
me.TailleAuteur.CodifSignature = "T_20") Then
Retour = False
ElseIf (VarNomAuteur = "Auteur1" Or VarNomAuteur = "Auteur2" Or VarNomAuteur = "Auteur3") Then
Retour = True
End If
Retour = False
Return Retour
End Function
Voici mon code qui permet de l'appeler dans une autre page :
CFinitial(VarNomAuteur , VarKeyNom )
Ma formule veut dire : Si Nom et T_6 n'est pas choisie alors on passe au nom1 et si nom1 n'est pas choisie alors on regarde si c'est auteur 1 ou 2 ou 3 est vrai ou faux si vrai ca doit me retourner un code et si faut alors il me retourne rien.
Pour le dire d'une autre façon histoire que tout le monde Su auteur 1 est choisi et n'est pas avec nom et T_6 alors me retourné un code.
Je ne sais pas si je m'exprime correctement mais en gros quoi qu'il arrive mon code ne s'affiche pas…
Quelqu'un serait me dire ce qui cloche ?