Access - uso no valido de null

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.

Si el fallo esta en que falten datos de alguno de los módulos (su valor sera Null), se tendrá que validar cada uno de ellos antes de procesarlos (uno a uno).

Se puede hacer así:

Muy buenos días, estoy muy agradecido por su valioso aporte aporte, me ha sido de gran utilidad, funciona muy bien en la ejecución del código. nuevamente mil gracias.