Respuesta a: ERROR 94, USO NO VALIDO DE NULL. – CODIGO

#11837

Armando Rodriguez
Participante

Private Sub btn_enviar_Click()
DoCmd.SetWarnings False

Dim instruccion As String
instruccion = «INSERT INTO usuarios (nif,nombre,apellido,usuario,contrasena) VALUES (c_nif.value,c_nombre.value,c_apellido.value,c_usuario.value,c_contrasena.value)»

If Not IsNull(c_nif) And Not IsNull)(c_usuario) And Not IsNull(c_contrasena) Then
DoCmd.RunSQL instruccion

MsgBox «Los Registros han sido Guardados… Gracias¡»

c_nif.Value = Null
c_nombre.Value = Null
c_apellido.Value = Null
c_usuario.Value = Null
c_contrasena.Value = Null

c_nif.SetFocus

Else
If IsNull(c_nif) Then
c_nif.BackColr = vbRed
c_nif.SetFocus

ElseIf IsNull(c_usuariuoI Then
c_usuaro.BackColor = vbRed
c_usuario.SetFocus

ElseIf IsNull(c_contrasena) Then
c_contrasena.BackColor = vbRed
c_contrasena.SetFocus
End if

End If

End Sub