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