Postada em 15/11/2011 11:15 hs
No Excel tenho um form. Nesse form, tenho vários controles. Entre eles, alguns textbox. Tenho uma planilha que busco os dados através de um recordset, via ADO. Quero preencher com os dados(campos, colunas) de uma linha da planilha todas as caixas de texto...
Eu tento fazer assim, mas algo está errado, ou tudo errado.
Dim ctl as control
For Each ctl In Me.Controls
If TypeOf ctl Is msforms.TextBox Then
For y = 1 To 4
For i = 1 To .Fields.Count - 1
ctl(y).Text = rs2.Fields(i).Value
Next
Next
End If
Next
|
