[AC-2007] Erreur N°2465 dans une de mes fonctions

[solaar]

bonjour
J'ai une erreur qui me fatigue dans une de me fonction:

Code :

1
2
3
4
5
6
 
Function Fournisseur_actif()
Dim F As Form
Set F = Screen.ActiveForm
Fournisseur_actif = F![Code Fournisseur]
End Function

[Kloun]

Bonjour,

L'erreur est sur quelle ligne ?
Quel est le type de la donnée fournisseur (numérique, chaine ) ?

[solaar]

Bonjour.

l'erreur vient de la ligne 5.
le type de donnée de Code Fournisseur est : Texte

[Kloun]

A essayer :

Code :

1
2
3
Function Fournisseur_actif() as string
    Fournisseur_actif = Screen.ActiveForm.controls("[Code Fournisseur]").value
End Function

[solaar]

Toujours le même message!

[Dolphy35]

Bonjour,

Le but étant de retourner le formulaire actif ?

Envoyé par solaar

Toujours le même message!

Et toi tu essayé quoi ?

1-Tu charge dans une variable non définie.
2-Tu charge dans une variable non définie, donc de type Variante, un objet

La solution de Kloun fonctionne très bien pour récupérer la valeur de contrôle Nommé Code Fournisseur du formulaire actif

Si tu veux créer une fonction pour récupérer le nom du form actif avec le le nom du contrôle pour utiliser autre part essaye ceci :

Code :

1
2
3
4
5
Function Fournisseur_actif() As String
    Dim F As Form
    Set F = Screen.ActiveForm
    Fournisseur_actif = F.Name & "![Code Fournisseur]"
End Function

Ou donne nous plus d'infos

Dolphy