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.
pour l'instant je ne sais pas comment faire.
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
Si quelqu'un a une idée ...
Merci d'avance
Franck![]()
Partager