Recorrer cuadros de textos independientes en formulario

Necesito recorrer una serie de cuadros de textos independientes, en un formulario independiente para enl caso de que estén vacíos INHABILITARLOS en escritura, como podría hacerlo.

1 Respuesta

Respuesta
1

Con la información que das solo puedo indicarte un código que lo que hace es recorrer los controles del formulario y, si encuentra un textbox y está vacío, lo inhabilita.

Private Sub...
    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            If IsNull(ctl.Value) Then
                ctl.Enabled = False
            Else
                ctl.Enabled = True
            End If
        End If
    Next ctl
End Sub

Saludos,

Neckkito ( http://bit.ly/NckAccess / http://bit.ly/ForoNkSv)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas