uso no valido de null
Publicado por victor alfonso (21 intervenciones) el 21/02/2023 03:21:48
Muy buena tardes, cordial saludo.
Estoy intentando realizar una actualización de registros en una DB Access, en la cual utilizo la siguiente instrucción SQL. pero me da un error de uso no valido de NULL. cuando hago clic en el boton para guardarlos cambios.
Aclaro que este error sale únicamente cuando dejo campos vacíos, por que cuando los diligencio todos envia todo normal sin problemas.
CurrentDb.Execute "UPDATE tbSemestre1 SET materiaModulo1 = '" & Replace(Me.cmbmateriaModulo1, "'", "''") & "',materiaModulo2 = '" & Replace(Me.cmbmateriaModulo2, "'", "''") & "', " _
& "materiaModulo3 = '" & Replace(Me.cmbmateriaModulo3, "'", "''") & "',materiaModulo4 = '" & Replace(Me.cmbmateriaModulo4, "'", "''") & "', " _
& "materiaModulo5 = '" & Replace(Me.cmbmateriaModulo5, "'", "''") & "',materiaModulo6 = '" & Replace(Me.cmbmateriaModulo6, "'", "''") & "' " _
& "WHERE idEstudiante = " & Me.cmbidentificacionEstudiante & "", dbFailOnError
MsgBox "¡Atención!" & vbCrLf & "" & vbCrLf & _
"Los módulos de formación han sido matriculados satisfactoriamente al estudiante en su respectiva formación.", vbInformation, "Institución CENFORT"
acá el código completo.
Private Sub MatricularModulos1()
' On Error GoTo ManipulaError
If IsNull(Me.cmbidentificacionEstudiante) Then
MsgBox "¡Atención!" & vbCrLf & "" & vbCrLf & _
"Se debe definir la identificación del estudiante para realizar el proceso. Revise los campos e inténtelo nuevamente.", vbInformation, "Institución CENFORT": Exit Sub
Else
CurrentDb.Execute "UPDATE tbSemestre1 SET materiaModulo1 = '" & Replace(Me.cmbmateriaModulo1, "'", "''") & "',materiaModulo2 = '" & Replace(Me.cmbmateriaModulo2, "'", "''") & "', " _
& "materiaModulo3 = '" & Replace(Me.cmbmateriaModulo3, "'", "''") & "',materiaModulo4 = '" & Replace(Me.cmbmateriaModulo4, "'", "''") & "', " _
& "materiaModulo5 = '" & Replace(Me.cmbmateriaModulo5, "'", "''") & "',materiaModulo6 = '" & Replace(Me.cmbmateriaModulo6, "'", "''") & "' " _
& "WHERE idEstudiante = " & Me.cmbidentificacionEstudiante & "", dbFailOnError
MsgBox "¡Atención!" & vbCrLf & "" & vbCrLf & _
"Los módulos de formación han sido matriculados satisfactoriamente al estudiante en su respectiva formación.", vbInformation, "Institución CENFORT"
DoCmd.Close
End If
Exit Sub
'ManipulaError:
' MsgBox Err.Description, vbCritical, "Atencion"
End Sub
Agradezco su valiosa ayuda.
Estoy intentando realizar una actualización de registros en una DB Access, en la cual utilizo la siguiente instrucción SQL. pero me da un error de uso no valido de NULL. cuando hago clic en el boton para guardarlos cambios.
Aclaro que este error sale únicamente cuando dejo campos vacíos, por que cuando los diligencio todos envia todo normal sin problemas.
CurrentDb.Execute "UPDATE tbSemestre1 SET materiaModulo1 = '" & Replace(Me.cmbmateriaModulo1, "'", "''") & "',materiaModulo2 = '" & Replace(Me.cmbmateriaModulo2, "'", "''") & "', " _
& "materiaModulo3 = '" & Replace(Me.cmbmateriaModulo3, "'", "''") & "',materiaModulo4 = '" & Replace(Me.cmbmateriaModulo4, "'", "''") & "', " _
& "materiaModulo5 = '" & Replace(Me.cmbmateriaModulo5, "'", "''") & "',materiaModulo6 = '" & Replace(Me.cmbmateriaModulo6, "'", "''") & "' " _
& "WHERE idEstudiante = " & Me.cmbidentificacionEstudiante & "", dbFailOnError
MsgBox "¡Atención!" & vbCrLf & "" & vbCrLf & _
"Los módulos de formación han sido matriculados satisfactoriamente al estudiante en su respectiva formación.", vbInformation, "Institución CENFORT"
acá el código completo.
Private Sub MatricularModulos1()
' On Error GoTo ManipulaError
If IsNull(Me.cmbidentificacionEstudiante) Then
MsgBox "¡Atención!" & vbCrLf & "" & vbCrLf & _
"Se debe definir la identificación del estudiante para realizar el proceso. Revise los campos e inténtelo nuevamente.", vbInformation, "Institución CENFORT": Exit Sub
Else
CurrentDb.Execute "UPDATE tbSemestre1 SET materiaModulo1 = '" & Replace(Me.cmbmateriaModulo1, "'", "''") & "',materiaModulo2 = '" & Replace(Me.cmbmateriaModulo2, "'", "''") & "', " _
& "materiaModulo3 = '" & Replace(Me.cmbmateriaModulo3, "'", "''") & "',materiaModulo4 = '" & Replace(Me.cmbmateriaModulo4, "'", "''") & "', " _
& "materiaModulo5 = '" & Replace(Me.cmbmateriaModulo5, "'", "''") & "',materiaModulo6 = '" & Replace(Me.cmbmateriaModulo6, "'", "''") & "' " _
& "WHERE idEstudiante = " & Me.cmbidentificacionEstudiante & "", dbFailOnError
MsgBox "¡Atención!" & vbCrLf & "" & vbCrLf & _
"Los módulos de formación han sido matriculados satisfactoriamente al estudiante en su respectiva formación.", vbInformation, "Institución CENFORT"
DoCmd.Close
End If
Exit Sub
'ManipulaError:
' MsgBox Err.Description, vbCritical, "Atencion"
End Sub
Agradezco su valiosa ayuda.
Valora esta pregunta
0