Discussion :

[franckimmo]

Bonjour,
Je cherche la possibilité après avoir créé un champ nommé Numéro de lui donner sa source par VBA.
En faite je souhaite que ce champ prenne sa source dans la requête SQLFolio et le nom de champ source serait Folnuméro.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Commande1_Click()
Dim FrmFolio As Form
Dim strName As String
Dim ctl As Control
Dim Fi As Field
Dim SQLFolio As String
 
SQLFolio = "select* FROM TblFolio;"
 
Set FrmFolio = Application.CreateForm
With FrmFolio
.DefaultView = 2
.RecordSource = SQLFolio
.Caption = "visualisation folio"
.Width = 5000
.Section(acDetail).Height = 2000
.NavigationButtons = False
.RecordSelectors = True
.AutoCenter = True
strName = FrmFolio.Name
 
End With
 
Set ctl = Application.CreateControl(strName, acTextBox, , "", "", 2000, 500, 2500, 300)
 
With ctl
.Name = "Numéro"
.BackColor = vbWhite
.ForeColor = vbBlack
.FontBold = True

pour l'instant je ne sais pas comment faire.
Si quelqu'un a une idée ...
Merci d'avance
Franck

[Invité]

Bonsoir
Pour une zone de texte:

Code :

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

Me.NomDeTaZone.ControlSource = "NomDuChampRequête"

[franckimmo]

Bonsoir
Pour une zone de texte:

Code :

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

Me.NomDeTaZone.ControlSource = "NomDuChampRequête"

une erreur mindique Membre de méthode ou de données introuvable depuis que j'ai mis ce code:

Code :

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

Me.NuméroCopie.ControlSource = "SQLFolio"

je ne sais vraiment pas comment on procède pour indiquer à un champ de formulaire la source contyrol d'un champ.
Ci-dessous mon code complet permettant de créer un formulaire et un champ ainsi que certaines propriétés supplémentaire le tout en vba, la source du formulaire j'y arrive mais pas la source d'un champ....Quiz..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub Commande1_Click()
Dim FrmFolio As Form
Dim strName As String
Dim ctl As Control
Dim SQLFolio As String
 
 
 
SQLFolio = "select Numéro FROM TblFolio;"
 
Set FrmFolio = Application.CreateForm
With FrmFolio
.DefaultView = 2
.RecordSource = SQLFolio
.Caption = "visualisation folio"
.Width = 5000
.Section(acDetail).Height = 2000
.NavigationButtons = False
.RecordSelectors = True
.AutoCenter = True
strName = FrmFolio.Name
 
 
 
 
End With
 
Set ctl = Application.CreateControl(strName, acTextBox, , "", "", 2000, 500, 2500, 300)
 
With ctl
.Name = "NuméroCopie"
.BackColor = vbWhite
.ForeColor = vbBlack
.FontBold = True
Me.NuméroCopie.ControlSource = "SQLFolio"
 
End With
 
Set ctl = Application.CreateControl(strName, acLabel, , "", "", 500, 500, 1500, 300)
With ctl
.Name = "lblNuméro"
.Caption = "IdRèglement"
 
End With
 
'DoCmd.RunSQL SQLFolio
 
'.RecordSource = SQLFolio
 
 
 
End Sub

une bonne soirée

Franck

[Invité]

J'avais mis une formule un peu généraliste.
Le Me. ne correspond pas à ce que tu fais.

[franckimmo]

J'avais mis une formule un peu généraliste.
Le Me. ne correspond pas à ce que tu fais.

As tu une idée de la direction à prendre pour y réussir ?

[loufab]

Bonjour,

Tu mélange un peu tout.

2 controles peuvent contenir une source de données : la zone de liste et la zone de liste déroulante.

La zone de texte ne peut contenir qu'une valeur, le contenu d'un champ ou une expression qui retourne une valeur.

Soit tu donnes la source (ta chaine sql) à la source du formulaire.

Code :

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

Me.recordsource = sqlfolio

sans les double cote.
Et tu affecte le nom du champ à la source de ton controle texte

Code :

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

.controlsource = "Numero"

Soit tu affecte la valeur via une fonction comme dlookup()

voir le tuto pour cette dernière fonction.

Attention ! Les méthodes que tu mets en oeuvre sont incompatibles avec la compilation (fichier Accde/ mde)

[franckimmo]

Bien voilà maintenant çà marche, j'avais bien une erreur de syntaxe il fallait indiquer .controlsource ="Numéro", donc bien affecter le nom du champ à la source comme tu le stipules dans ta réponse. Merci bien et bonne journée
Franck