Access - INCREIBLE NO LO PUEDO CREER!!!

ALGUIEN QUE ME DIGA QUE ESTOY HACIENDO MAL AQUI.

Private Sub CmdGuardar_Click()
On Error Resume Next
Dim borratbl2 As String
Dim fecha1 As Date
Dim fecha2 As Date
Dim RegistroNuevo As Variant
fecha1 = FechaI
fecha2 = FechaF
If OFecha.Value = True Then
If fecha2 <= fecha1 Then
MsgBox "La fecha final no puede ser igual o anterior a la fecha inicial", vbOKOnly, "Verifica las fechas"
Else
Set rst = New ADODB.Recordset
rst.Open "SELECT * From TablePrincipal Where Numero='" & NumeroReporte & "'", cnn, adOpenDynamic, adLockOptimistic
If rst.EOF Then rst.AddNew: RegistroNuevo = "Si"
rst!Numero = NumeroReporte
rst!Empresa = Empresa
rst!Organizacion = Organizacion
rst!Embarcacion = Embarcacion
rst!Descripcion = Descripcion
rst!FechaI = FechaI
rst!HoraI = HoraI
rst!FechaF = FechaF
rst!HoraF = HoraF
rst!NoFactura = NoFactura
rst!Anticipo = Anticipo
rst!Pagado = Pagado
rst!Notas = Notas
rst!Año = OAño
rst!Fecha = OFecha
rst.Update
rst.Close: Set rst = Nothing
Set rst1 = New ADODB.Recordset
rst1.Open "SELECT * From TablePrincipalBackUp Where Numero='" & NumeroReporte & "'", cnn, adOpenDynamic, adLockOptimistic
If rst1.EOF Then rst1.AddNew: RegistroNuevo = "Si"
rst1!Numero = NumeroReporte
rst1!Empresa = Empresa
rst1!Organizacion = Organizacion
rst1!Embarcacion = Embarcacion
rst1!Descripcion = Descripcion
rst1!FechaI = FechaI
rst1!HoraI = HoraI
rst1!FechaF = FechaF
rst1!HoraF = HoraF
rst1!NoFactura = NoFactura
rst1!Anticipo = Anticipo
rst1!Pagado = Pagado
rst1!Notas = Notas
rst1!Año = OAño
rst1!Fecha = OFecha
rst1.Update
rst1.Close: Set rst1 = Nothing
If RegistroNuevo = "Si" Then
MsgBox "El nuevo registro ha sido agregado", vbInformation, "Nuevo Registro"
LimpiaCampos
ElseIf lblstatus.Caption = "CONSULTA O MODIFICACION" Then
MsgBox "Se han grabado los cambios efectuados", vbInformation, "Grabar Cambios"
LimpiaCampos
End If
End If
End If
If OAño.Value = True Then
Set rst = New ADODB.Recordset
rst.Open "SELECT * From TablePrincipal Where Numero='" & NumeroReporte & "'", cnn, adOpenDynamic, adLockOptimistic
If rst.EOF Then rst.AddNew: RegistroNuevo = "Si"
rst!Numero = NumeroReporte
rst!Empresa = Empresa
rst!Organizacion = Organizacion
rst!Embarcacion = Embarcacion
rst!Descripcion = Descripcion
rst!FechaI = FechaI
rst!HoraI = HoraI
rst!FechaF = FechaF
rst!HoraF = HoraF
rst!NoFactura = NoFactura
rst!Anticipo = Anticipo
rst!Pagado = Pagado
rst!Notas = Notas
rst!Año = OAño
rst!Fecha = OFecha
rst.Update
rst.Close: Set rst = Nothing
'BORRA REGISTRO DE LA SEGUNDA TABLA
borratbl2 = "Delete * From TablePrincipalBackup Where Numero='" & NumeroReporte & "'"
CurrentDb.Execute borratbl2
If RegistroNuevo = "Si" Then
MsgBox "El nuevo registro ha sido agregado", vbInformation, "Nuevo Registro"
LimpiaCampos
ElseIf lblstatus.Caption = "CONSULTA O MODIFICACION" Then
MsgBox "Se han grabado los cambios efectuados", vbInformation, "Grabar Cambios"
LimpiaCampos
End If
End If
End Sub

pOR AS QUE LE MODIFICO LAS CONDICIONES NO ME GUARDA EL REGISTRO, LA VERDAD YA NO SE QUE HACER, QUE ES LO QUE ESTOY HACIENDO MAL O SI ME FALTA ALGO, QUE COMPARO CON OTRAS BASES DE DATOS Y TENGO EL MISMO PROCEDIMIENTO Y SI ME LO GUARDA, NETA YA ME ARTE.

SALUDOS

VICTOR.

Bueno no me guardaba or alguna razon me puse a pon quita en el form y descubri que si activaba el checkbox si me guardaba el registro, y si no lo tocaba no me lo guardaba.

De alguna manera el checkbox parecia de color gris como si estuviera seleccionado pero no arrojaba un valor No o Si, vaya no aparecia en blanco o con la palomilla, lo unico que hice es que al cargar el form le puse que fuera false al chechbox y problema resuelto me daba un check box en blanco y no en gris.

Saludos.

Victor.

Los check box cuando están en gris son nulos, cuando están en blanco toman un valor 0 y cuando están check valen -1. Hay conflicto cuando tratas de cargar valores Nulos. Para evitar esto debes colocar como valor predeterminado 0 o -1 a estos controles para inicializar el escenario en el Form