Access - Controlar Error

Esta es una parte de una funcion

With tabla
Do While Not .EOF
Texto = "PARAMETERS FINICIAL DateTime, FFINAL DateTime; " & _
"INSERT INTO NOVEDADES (IDNovedad,IDTipoDoc,NumDocumento,IDTipoPersona,DANE,Institucion,IDTipoNovedad,FechaInicio,FechaFin,IDArea,IDNivel,IDJornada,Sede,Observaciones,Usuario) " & _
"VALUES (" & ConsecutivoNovedad() & "," & .Fields("TipoDoc") & "," & .Fields("Documento") & "," & .Fields("TipoPer") & ",'" & .Fields("CodDANE") & "','" & .Fields("Colegio") & "','" & .Fields("Novedad") & "',[FINICIAL],[FFINAL],'" & .Fields("IDArea") & "'," & .Fields("IDNivel") & "," & .Fields("IDJornada") & ",'" & .Fields("Sede") & "','" & .Fields("Obs") & "','" & .Fields("Usu") & "')"
Set Agregar = DB.CreateQueryDef("", Texto)
Agregar.Parameters![FINICIAL] = .Fields("Inicio")
Agregar.Parameters![FFINAL] = .Fields("Fin")
Agregar.Execute
Resultado = Resultado + 1
.MoveNext
Loop
End With

Mientras todos los campos que voy a insertar en la tabla lleven valor no hay problema pero si hay algun campo vacio me genera un error como hago para que el si encuentra un error
salte el set Agregar y continue con el siguiente registro

Hola Yanira,

En lugar de ponerle :
.Fields("IDArea")

cuando haces referencia al campo, prueba a hacer esto

""& .Fields("IDArea")

De esta manera si el campo es nulo, automaticamente deja una cadena vacia.

Ya diras que tal te ha ido.
Saludos

Sigue apareciendo el error
estoy tratando de hacerlo comparando el documento del usuario con una consulta pero ..

Do Until Tbl1.EOF
Texto2 = "Select NumDocumento from Docentes SED"
Compara = Texto2 = " & Tbl1![DOCUMENTO DE IDENTIDAD DEL PACIENTE]"
tabla2.FindFirst Compara
If Not tabla2.NoMatch Then

me genera error porque dice FALSO no es un nombre de campo y se queda en esta instruccion

tabla2.FindFirst Compara

Hola Yanira,

Yo aki lo ke veo es lo siguiente, en la instruccion
Compara = Texto2 = " & Tbl1![DOCUMENTO DE IDENTIDAD DEL PACIENTE]"

Compara resuelve Texto2 = " & Tbl1![DOCUMENTO DE IDENTIDAD DEL PACIENTE]" y da FALSO

Prueba a quitarle el igual

Saludos

Muchas gracias moises por tu colaboracion y si tienes razon era por una comparacion pero no ese sino en el campo que llamaba