Mensaje de error si el campo está vacío access

Resuelto
Loic_7447 Mensajes publicados 32 Fecha de registro   Estado Miembro Última intervención   -  
f894009 Mensajes publicados 17417 Fecha de registro   Estado Miembro Última intervención   -
Bonjour,

Tengo un formulario que se utiliza para agregar datos en una tabla, utilizando 4 cajas de texto y un botón de finalización.
El formulario funciona muy bien, pero me gustaría que si un campo está vacío al validar la adición, no se realice el registro y se muestre un mensaje de error.

Aquí está mi código:

Private Sub btn_ajouter_Click()

Set db = CurrentDb
Set rs = db.OpenRecordset("Stock_atelier")

rs.AddNew

rs!Référence = Me.txt_reference
rs!Fournisseur = Me.txt_fournisseur
rs!Quantité = Me.txt_quantité
rs!Type = Me.txt_outil

rs.Update

rs.Close
db.Close

MsgBox "Référence ajoutée avec succès "
txt_reference = ""
txt_fournisseur = ""
txt_quantité = ""
txt_outil = ""

Set rs = Nothing
Set db = Nothing

End Sub


He intentado agregar las siguientes líneas:

If IsNull(Me.txt_reference) Then
MsgBox ("Veuillez renseigner toutes les cases")
ElseIf IsNull(Me.txt_fournisseur) Then
MsgBox ("Veuillez renseigner toutes les cases")
ElseIf IsNull(Me.txt_quantité) Then
MsgBox ("Veuillez renseigner toutes les cases")
ElseIf IsNull(Me.txt_outil) Then
MsgBox ("Veuillez renseigner toutes les cases")
End If


Pero nada ha funcionado (quizás no las he ingresado en el lugar correcto, o qué sé yo).

¿Podrías ayudarme?
Gracias de antemano.

1 respuesta

  1. f894009 Mensajes publicados 17417 Fecha de registro   Estado Miembro Última intervención   1 717
     
    Hola,

    Un campo del formulario no es nulo, sino vacío porque es de tipo texto:
    If Me.txt_reference="" Then...........
    1
    1. Loic_7447 Mensajes publicados 32 Fecha de registro   Estado Miembro Última intervención  
       
      ¡Así que solo era eso, gracias!
      0
    2. f894009 Mensajes publicados 17417 Fecha de registro   Estado Miembro Última intervención   1 717
       
      Re,

      Marque su solicitud en Access como terminada.
      0