identificar controles en formulario
Publicado por bego (5 intervenciones) el 26/05/2004 11:34:15
Hola. Necesito hacer un modulo para que me identifique los controles de cada formulario y grabe en un .txt. Lo que se me ocurre es:
Public Sub Guardar()
Dim Objeto As Object
Dim variable
Open "C:\Probando.txt" For Output As 1 'separar formularios
Print #1, "********************"
Close 1
For Each Objeto In Me.Controls
If TypeOf Objeto Is TextBox Or ComboBox Then
variable = Objeto.Text
Open "C:\Probando.txt" For Output As 1
Print #1, variable
Close 1
End If
Next Objeto
End Sub
Me sale un error, como que no puedo usar Me.Controls. No se como ponerlo. Si me pudierais ayudar os lo agradeceria mucho.
Public Sub Guardar()
Dim Objeto As Object
Dim variable
Open "C:\Probando.txt" For Output As 1 'separar formularios
Print #1, "********************"
Close 1
For Each Objeto In Me.Controls
If TypeOf Objeto Is TextBox Or ComboBox Then
variable = Objeto.Text
Open "C:\Probando.txt" For Output As 1
Print #1, variable
Close 1
End If
Next Objeto
End Sub
Me sale un error, como que no puedo usar Me.Controls. No se como ponerlo. Si me pudierais ayudar os lo agradeceria mucho.
Valora esta pregunta


0