Ola pessoal!
Sou iniciante em vba e estou mesmo a precisar da ajuda de vocês para resolver a seguinte questão:
O meu vba cria um novo formulário e adiciona nele algumas textboxes; então, quero atribuir valores a estes campos, mas por terem sido criadas automaticamente, são nomeadas de forma automatica e por isso não consigo fazer referência e atribuir dados a elas.
Alguém pode ajudar!
Eis o meu vba:
Sou iniciante em vba e estou mesmo a precisar da ajuda de vocês para resolver a seguinte questão:
O meu vba cria um novo formulário e adiciona nele algumas textboxes; então, quero atribuir valores a estes campos, mas por terem sido criadas automaticamente, são nomeadas de forma automatica e por isso não consigo fazer referência e atribuir dados a elas.
Alguém pode ajudar!
Eis o meu vba:
- Código:
' Create new form with Orders table as its record source.
Set frm = CreateForm
frm.RecordSource = "US_Status"
' Set positioning values for new controls.
intLabelX = 2800
intLabelY = 3000
intDataX = 2300
intDataY = 3300
For x = 1 To 14
Select Case x
Case 1
Mes = "JANEIRO"
' Create unbound default-size text box in detail section.
Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", _
intDataX, intDataY)
' Create child label control for text box.
Set ctlLabel = CreateControl(frm.Name, acLabel, , _
ctlText.Name, "" & Mes & "", intLabelX, intLabelY)
'Aqui gostaria de atribuir valor ao campo criado
'Exemplo
'[Textbox1]="String"
Case 2
Mes = "FEVEREIRO"
' Create unbound default-size text box in detail section.
Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", _
intDataX, intDataY)
' Create child label control for text box.
Set ctlLabel = CreateControl(frm.Name, acLabel, , _
ctlText.Name, "" & Mes & "", intLabelX, intLabelY)
'Aqui gostaria de atribuir valor ao campo criado
'Exemplo
'[Textbox2]="String"
'...
'Save the form, close, rename, and reopen it
DoCmd.Close ObjectType:=acForm, ObjectName:="Formulário1", Save:=acSaveYes
DoCmd.Rename "Output", acForm, "Formulário1"
DoCmd.OpenForm FormName:="Output", View:=acNormal
rst.MoveNext
' Restore form.
DoCmd.Restore