Ver originales (Francés)

Probar si un textbox está vacío en vba

Luis -  
 swissi -
Bonjour,

Estoy creando un formulario en Access.
Tengo dos campos independientes llamados: Usuario y Contraseña.
También tengo un botón OK.
Me gustaría que al hacer clic en el botón, se muestre una ventana si alguno de los dos cuadros de texto está vacío.

Aquí está el código que tengo:

Si Usuario = Null O Contraseña = Null Entonces
MsgBox "Por favor, introduzca un usuario y una contraseña"
Fin Si

Sin embargo, eso no funciona.

Me sería de gran ayuda una pequeña asistencia, por favor.

Gracias

Luis

8 respuestas

  1.
    blux Mensajes publicados 2051 Fecha de registro   Estado Moderador Última intervención   3 455
     
    ¡Qué bien!

    No olvides probar también el valor vacío, que no es "null" (si el usuario comienza a escribir y luego borra...)
    If IsNull(User.Value) or User.Value = "" Then...

    --
    ¡Hasta luego Blux! 
    "Los tontos se atreven a todo. Es incluso por eso que los reconocemos"
    10
  2. blux Mensajes publicados 2051 Fecha de registro   Estado Moderador Última intervención   3 455
     
    Hola,

    es normal, null no se prueba como un valor, sino con una función :
    If IsNull(User.value)...

    --
    A+ Blux 
     "Los tontos se atreven a todo. Es incluso por eso que los reconocemos"
    5
  6. Luis
     
    La traducción al español sería:

    ¿Sabe qué tipo de fuente debo usar para el cuadro de texto que contiene la contraseña?
    Para que se muestre solo como puntos negros...
    0
  7. blux Mensajes publicados 2051 Fecha de registro   Estado Moderador Última intervención   3 455
     
    No es una historia de policía, sino más bien una historia de formato, hay que elegir "password" o "mot de passe" y es él quien va a mostrar estrellas o "bolas negras"... (pestaña de datos del textbox, campo "máscara de entrada")...

    --
    A+ Blux 
     "Los tontos se atreven a todo. Es incluso por eso que se les reconoce"
    0
  8. Luis
     
    Está todo bien entonces

    Muchas gracias por su ayuda y que tenga un buen día

    Luis
    0
  9. swissi
     
    Bonjour
    Estoy desarrollando un formulario y quiero controlar el valor de un TextBox que debe ser un número entero no nulo

    ¿Qué debo hacer?
    Escribí esto, pero no funciona:

    Private Sub TextBoxl_Change()
    Dim KeyAscii As MSForms.ReturnInteger
    Select Case KeyAscii
    Case Is < 49, Is > 57
    MsgBox "Solo se permite un entero no nulo."
    KeyAscii = Asc(Chr(8))
    End Select

    End Sub
    0