bego
11 de Junio del 2004

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.

CyberMensaka
11 de Junio del 2004

Tú problema podría ser que Me. hace referencia al formulario desde el que ejecutas el código y un módulo, que es donde creas él procedimiento, no es un formulario. Tendrias que pasar el .me por parámetros al procedimiento.

Public Sub Guardar(objeto as variant)
.....
.....
end sub

Después en el onload del formulario llamas a guardar

call guardar(me)