Discussion :

[Jean_Benoit]

Bonjour,

Je déclare sous "Général"/"Déclarations"

Code :

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

Public varOutput As Variant

puis je valorise varOutput par SQL:

Code :

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

1
2
3
4
5
6
7
 
Private Sub Form_Current()
.
.
varOutput = m_adoRst.GetString
.
.

Comment puis-je renseigner la propriété "Source" d'un champ texte dans un formulaire de test avec varOutput?

[LedZeppII]

Bonjour,

Cela se fait avec la propriété Value

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Current()
.
.
varOutput = m_adoRst.GetString
' Si le contrôle zone de texte est dans le formulaire auquel appartient
' cet événement
Me.MonControleChampTexte.Value = varOutput
' Si le contrôle est dans un autre formulaire (par ex Test)
Forms("Test").MonControleChampTexte.Value = varOutput
.
.

MonControleChampTexte est le nom du contrôle zone de texte.
Le nom est dans la propriété "Nom" de l'onglet "Autres" de la fenêtre propriétés du contrôle.

Remarque : la méthode GetString convertit les enregistrements d'un recordset en texte délimité.
Même si il n'y a qu'un enregistrement, et qu'une seule colonne, GetString ajoutera un délimiteur de ligne (CR), ce qui peut être gênant.

Selon ce que tu veux faire il est peut-être préférable d'écrire

Code :

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

varOutput = m_adoRst.Fields("NomColonne")

A+

[Jean_Benoit]

Excellent !! !!

1st: J'ai remplacé variant par String, en fait c'est juste le prochain n° en séquence...
2nd: J'ai créé une étiquette + champ texte dans le formulaire qui a le VB qui fait la requête SQL Oracle, là ça marche super, donc moi Happy!!
3d: Là je galère avec un autre formulaire qui voudrait faire référence à la varoutput qui récupère le Select...J'arrive pas à faire tourner ton exemple n° 2..

En fait je ne vois pas comment les petits bouts de VB communiquent entre eux, je cherche un peu partout, dans "Les Comptoirs et autres.." Il faudrait déclarer VarOutput en "Global"?? si ça existe dans VB??
Bon j'y retourne immédiatement
Merssi Bokoo

[LedZeppII]

Pour qu'une variable soit visible partout, elle doit être déclarée comme tu l'as fait,
mais dans un module de code et non dans le module de code d'un formulaire.

Mon deuxième exemple (Forms("Test").MonControleChampTexte.Value = varOutput) s'applique à un formulaire ouvert.
Le code peut être placé dans n'importe quel module.

A+