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 -
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:
He intentado agregar las siguientes líneas:
Pero nada ha funcionado (quizás no las he ingresado en el lugar correcto, o qué sé yo).
¿Podrías ayudarme?
Gracias de antemano.
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.