Deshabilitar todos los textbox del formulario

[caritaje]

Hola a todos!!

quisiera comentarles acerca de una nueva duda que tengo al estar haciendo una pequeña aplicacion, tengo un formulario con varias cajas de texto y al cargar el fomulario no quiero que esten habilitadas esa es la idea y poner un boton que se llame modificar para que habilite las cajas (esto es en access 2007 y su editor de visual),en el evento LOAD del formulario he puesto este código que aun no me funciona

Dim ctrl As Control

For Each ctrl In Controls
If TypeOf ctrl Is TextBox Then
Enabled = false 'Creo que el error es aqui
End If
Next

les comento un amigo sugirio que convirtiera ctrl a textbox con Ctype pero creo que aun en el editor de visual de access 2007 no trae esta funcion porque me manda error..

Espero me puedan ayudar, porque no creo que sea adecuado deshabilitar caja por caja..

[Rubeo]

Mira pues cuando yo quiero que un textbox o cualquier otro boton este desacactivado uso Enabled.
en el formulario selecciona el textbox y en las propiedades del textbox busca la opcion enabled y cambiala a true que por defecto esta en false
y si no quieres usar las propiedades tambien puedes desactivar el textbox en el codigo de fuente:
en form load pon lo siguiente:
text1.enabled = false
y en el boton modificar es decir el que activa el textbox tendrias que poner lo siguiente:
tex1.enabled = true
(text1 es el nombre que le asigno a la caja de texto:)
aver si funciona y respondes aqui mismo que lo voy estar leyendo

[caritaje]

Antes que nada Gracias Rubeo por reponder, tienes mucha razon sobre lo que dices pero supongamos que tengo 20 TEXTBOX, serian 20 text por deshabilitar entonces lo que quiero es con este ciclo buscar todos los textbox en el formulario para asi no ponerlo 20 veces.. Ahorita estoy buscando la forma de convertir el objeto control a textbox y asi me aparezca la propiedad Enabled..

nos estamos leyendo.. Si encuentro la respuesta antes que me den una, la compartire..

[abrahamvj]

ctrl.enabled =False

Abraham

[caritaje]

que tal abrahamvj..

el hecho es que al capturar ( ctrl. ) no me da esta propiedad de enabled, y es por eso que yo creo que hay que convertir el objeto..

vamos gente alguien por ahi que sepa como hacerlo, comparta, que ya me quedan pocos cabellos por arrancar de mi cabeza..

[pkj]

Así es como funciona:

Código :

Dim F As Integer
For F = 0 To Me.Controls.Count - 1
  If TypeOf Me.Controls(F) Is TextBox Then
    Me.Controls(F).Enabled = False
  End If
Next F
 

Ibas bien encaminado.

Saludos

[caritaje]

Muchas gracias pkj

se te agradece el apoyo, estamos en contacto...

[Salvadri]

Lo que tienes que hacer es crear una matriz del control TextBox, en este caso mi matriz se llama TxtDatos, despues haces la siguiente rutina para deshabilitar todos los textos de la matriz.

Dim i As Integer
For i = 1 To TxtDatos.Count - 1
TxtDatos(i).Enabled = False
Next

Espero te ayude