Insert Into Valor Null o vacío
Publicado por Angel (1 intervención) el 11/02/2015 21:09:44
Hola a todos y gracias de antemano por el foro y la ayuda.
He implementado una sentencia SQL cogida de un ejemplo, en una base de datos que inserta desde un botón de comando situado en un form independiente unos datos en una tabla.
El caso es que la particularidad de insertar valores null o vacíos, aún con mi nivel no entiendo bien esto, pues no la contemplaba dicho ejemplo y quisiera me pongáis en el camino de poder añadir la mejora en el código que abajo os pongo resumido. El campo DiaJuicio es el que arroja error cuando está vacío o null ¿?.
strEmpleado = Me.txtNombre.Value
strNumplaca = Me.NumAg.Value
strConcepto = Me.txtConcepto.Value
strDiaJuicio = Me.DiaJuicio.Value
strRevisado = Me.Rev.Value
SentenciaSql = "INSERT INTO TContratos (NumAg, Nombre, Concepto, DiaJuicio, Revisado)"
SentenciaSql = SentenciaSql & " VALUES ('" & strNumplaca & "', "
SentenciaSql = SentenciaSql & " '" & strEmpleado & "', "
SentenciaSql = SentenciaSql & " '" & strConcepto & "', "
SentenciaSql = SentenciaSql & " '" & strDiaJuicio & "', "
SentenciaSql = SentenciaSql & " '" & strRevisado & "'); "
DoCmd.SetWarnings False
DoCmd.RunSQL SentenciaSql
DoCmd.SetWarnings True
Me.Lista14.Requery
Gracias.
He implementado una sentencia SQL cogida de un ejemplo, en una base de datos que inserta desde un botón de comando situado en un form independiente unos datos en una tabla.
El caso es que la particularidad de insertar valores null o vacíos, aún con mi nivel no entiendo bien esto, pues no la contemplaba dicho ejemplo y quisiera me pongáis en el camino de poder añadir la mejora en el código que abajo os pongo resumido. El campo DiaJuicio es el que arroja error cuando está vacío o null ¿?.
strEmpleado = Me.txtNombre.Value
strNumplaca = Me.NumAg.Value
strConcepto = Me.txtConcepto.Value
strDiaJuicio = Me.DiaJuicio.Value
strRevisado = Me.Rev.Value
SentenciaSql = "INSERT INTO TContratos (NumAg, Nombre, Concepto, DiaJuicio, Revisado)"
SentenciaSql = SentenciaSql & " VALUES ('" & strNumplaca & "', "
SentenciaSql = SentenciaSql & " '" & strEmpleado & "', "
SentenciaSql = SentenciaSql & " '" & strConcepto & "', "
SentenciaSql = SentenciaSql & " '" & strDiaJuicio & "', "
SentenciaSql = SentenciaSql & " '" & strRevisado & "'); "
DoCmd.SetWarnings False
DoCmd.RunSQL SentenciaSql
DoCmd.SetWarnings True
Me.Lista14.Requery
Gracias.
Valora esta pregunta


0