Campos llenos

Colaborador

Unido: 19/Octubre/2006
Localización: Castello España
Estado: Sin conexión
Puntos: 508

Enviado: 08/Junio/2024 a las 19:13

Asi es llamo ,mal llamados , campos a los cuadros de texto.

Gracias de todos modos por tu tiempo.

Un saludo.

Si alguien te regala su tiempo, agradecelo eternamente, ya que te está dando algo que nunca recuperará.

AnSanVal

Administrador

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5990

Enviado: 08/Junio/2024 a las 19:15

¡Perdona a.alf! , al leer TxtBox, yo interpreté un formulario VBA, olvidé que un formulario Access es algo diferente. Embarrassed

Para eso es mucho más fiable la ayuda del Sr. Miura (u otros del foro).

Saludos desde Tenerife.

pitxiku

Colaborador

Unido: 27/Septiembre/2017
Localización: En mi casa
Estado: Sin conexión
Puntos: 1536

Enviado: 08/Junio/2024 a las 23:53

En tus primeros códigos tienes una variable: tr. A esa variable le asignas un valor en cada iteración con los cuadros de texto. Pero como le vas cambiando el valor, tendrás el estado dependiente del último cuadro de texto, no de los que te interesan.

Tienes que: o asignarle el valor sólo en una parte del If, o restar (o sumar) como te decía Ansaval:

Private Sub Form_Current()
    Dim ctl As Control
    Dim b As Boolean
    
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Then
            If Nz(ctl, "") = "" Then
                b = True
                Exit For
            End If
        End If
    Next
    
    If Not b Then
        MsgBox "Todos los cuadros de texto están rellenados"
    End If
End Sub

En el código puedes poner lo del color de fondo, o puedes usar el formato condicional, con lo que se actualizará conforme escribas.

a.alf

Colaborador

Unido: 19/Octubre/2006
Localización: Castello España
Estado: Sin conexión
Puntos: 508

Enviado: 09/Junio/2024 a las 09:17

Buenos días pitxiku.

Gracias por interesarte por el tema.

He utilizado tu código y al cambiar de registro no saca nunca el mensaje, ni estando todos los texbox llenos o vacíos.

Si cambio la condición de comparación, lo muestra siempre.

Un saludo.

Si alguien te regala su tiempo, agradecelo eternamente, ya que te está dando algo que nunca recuperará.

pitxiku

Colaborador

Unido: 27/Septiembre/2017
Localización: En mi casa
Estado: Sin conexión
Puntos: 1536

Enviado: 09/Junio/2024 a las 12:04

Antes de subir el código, lo probé en un formulario con una docena de cuadros de texto y funcionó correctamente. Verifica que cuando tiene que aparecer el mensaje, todos los cuadros de texto están rellenos, incluso aquellos que puedan estar ocultos; si es necesario, discrimina por nombre o por otra propiedad (Tag suele ser útil para estos casos). Si aún así no se muestra el mensaje, tendrás que revisar los cuadros de texto en el código, tomar su valor y longitud de texto, cargarlo en una lista o tabla, para ver luego el por qué.

a.alf

Colaborador

Unido: 19/Octubre/2006
Localización: Castello España
Estado: Sin conexión
Puntos: 508

Enviado: 09/Junio/2024 a las 15:18

Tenias razón pitxiku.

Tengo un campo oculto y no me había dado cuenta.

Funciona correctamente.

Gracias a todos por ayudarme otra vez.

Podéis cerrar el hilo.

Un saludo.

Si alguien te regala su tiempo, agradecelo eternamente, ya que te está dando algo que nunca recuperará.

a.alf