Error con código If
Publicado por José Maria (139 intervenciones) el 19/09/2015 11:29:27
Buenas estoy intentando guardar un formulario y que antes de guardarlo me mire si se han rellenado todos los datos.
El problema es que si lo hago con un solo campo si me lo hace bien, pero si pongo para que comprueba 2 campos me sale el error 13 .
Os pongo el código a ver si alguien me puede decir que es lo que me falte.
If Nz(cboCompania, "") And Nz(cboAsegurado, "") = "" Then
MsgBox "Comprueba que has introducido todos los datos"
'Nz(cboCompania, "") And Nz(txtExpediente, "") And Nz(txtFecha, "") And
'Me.txtIdExpediente.SetFocus
Exit Sub
Else
MsgBox "Guardado con Exito"
DoCmd.RunCommand acCmdSaveRecord
End If
He probado con And y con Or pero me sale el error.
El problema es que si lo hago con un solo campo si me lo hace bien, pero si pongo para que comprueba 2 campos me sale el error 13 .
Os pongo el código a ver si alguien me puede decir que es lo que me falte.
If Nz(cboCompania, "") And Nz(cboAsegurado, "") = "" Then
MsgBox "Comprueba que has introducido todos los datos"
'Nz(cboCompania, "") And Nz(txtExpediente, "") And Nz(txtFecha, "") And
'Me.txtIdExpediente.SetFocus
Exit Sub
Else
MsgBox "Guardado con Exito"
DoCmd.RunCommand acCmdSaveRecord
End If
He probado con And y con Or pero me sale el error.
Valora esta pregunta


0