Visual Basic para Aplicaciones - ayuda el un insert con tablas relacionadas

bueno tengo un insert into que inserta registros a una tabla caja_chica la, cual tengo una relacion con gastos en donde me origina un problema porque me aparece un mensaje:

"no se puede agregar o cambiar registros porque se necesita un registro relacionado en la tabla gastos"

pero si saco la relacion con gastos me inserta bien lo que pasa esque no puedo sacar la relacion porque tengo datos necesarios en gastos,alguien me pude ayudar tambien voy a enviar en codigo del grabar

private sub cmd_grabar clicK()

On Error GoTo E
Dim X As Integer, cant As Long, cos As Integer, I As Integer
Dim sql1 As String

If Text1.Text = "" Or Combo8.Text = "" Or Combo7.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or _
Combo1.Text = "" Or Combo2.Text = "" Or Combo3.Text = "" Or Combo6.Text = "" Or Combo5.Text = "" Or Combo4.Text = "" Then
MsgBox "DEBE INGRESAR DATOS", vbInformation
Text1.SetFocus
Exit Sub
End If

On Error GoTo H

cnn.ActiveConnection = Conex
cnn.CommandText = "INSERT INTO caja_chica VALUES('" & Trim(txt_num.Text) & "','" & UCase(Text5.Text) & "',# " & CDate(Txt_fecha.Text) & "#,'" & UCase(Text4.Text) & "','" & UCase(Text6.Text) & "','" & UCase(Text1.Text) & "','" & UCase(Combo2.Text) & "','" & UCase(Trim(Combo3.Text)) & "','" & UCase(Combo1.Text) & "','" & UCase(Trim(Combo6.Text)) & "','" & UCase(Trim(Combo7.Text)) & "','" & UCase(Combo8.Text) & "','" & UCase(Trim(Combo4.Text)) & "','" & UCase(Trim(Combo5.Text)) & "')"
cnn.Execute

/ el error lo tengo en el insert into no puedo grabar con relacion

grd1.AddItem Trim(Text1.Text) & Chr(9) & UCase(Combo1.Text) & Chr(9) & UCase(Combo2.Text) _
& Chr(9) & UCase(Trim(Text6.Text)) & Chr(9) & UCase(Trim(Text4.Text)) & Chr(9) & _
Txt_fecha.Text & Chr(9) & Trim(Text5.Text) & Chr(9) & UCase(Trim(Combo8.Text)) & Chr(9) & UCase(Trim(Combo3.Text)) _
& Chr(9) & UCase(Trim(Combo7.Text)) & Chr(9) & UCase(Trim(Combo5.Text)) & Chr(9) & _
UCase(Trim(Combo4.Text)) & Chr(9) & UCase(Trim(Combo6.Text)) _
& Chr(9) & Trim(txt_num.Text)
grd1.Refresh

cant = txt_total
cant = cant + Text5 'calculo de total de dinero ingresado en caja chica
txt_total = cant
H:
If Err.Number <> 0 Then
MsgBox Err.Description, vbInformation
Limpiar
Exit Sub
Else
Set cnn = Nothing
txt_num = txt_num + 1
deshabilitar False
Command4.Enabled = True
Command3.Enabled = True
Limpiar
Exit Sub
End If
E:
MsgBox Err.Description
end sub





--------------------------------------------------------------------------------


RESPONDER NOTA

Si entre las tablas existe una relación, esto quiere decir que una tabla complementa a la otra para obtener la información completa. Por lo que si vos querés ingresar una "caja:chica" y no aparece el dato que lo relacione con la de gastos esto le genera un error de incosistencia de información por que no tiene datos con que completar la info.

Para esto tenés dos soluciones.

1º Plantear si la relación es necesaria es decir si una completa la info de la otra
2º en caso de no se necesaria eliminarla, pero en el caso de que sea necesaria tendrías que primero grabar el gasto y luego la caja_chica, ya que por lo que veo la "caja: chica" depende del "gasto" . Es decir que la relación que vos estás planteando es por cada registro en "gasto", corresponde 1o varios registros en (caja chica)

Espero te sirva mi ayuda

Salu2

Feche