Problemas de expresión en botón de comando
Necesito codificar un botón para guardar registros y que me pregunte si quiero pasarlo al libro, en caso afirmativo ejecute una instrucción inset Into, lo he intentando pero me da error, y nno se donde me he equivocado.
Lo que he puesto es esto:
Private Sub Comando18_Click()
Dim pregunta As String
Dim Instruccion As String
DoCmd.Save acForm, Me.Name
MsgBox ("El regstro se ha Guardado Correctamente")
pregunta = MsgBox("Desea anotar el apunte en el Libro de Contabilidad", vbYesNo + vbQuestion)
If pregunta = vbNo Then
MsgBox ("Operación Cancelada")
End If
Exit Sub
DoCmd.SetWarnings False
If DocmDCount("*", "T_LibroContabilidad", "Expediente like '" & Me.Expediente & "'") > 0 Then
mimsg ("Este Registro ya ha sido Grabado En el Libro de Contabilidad")
End If
Exit Sub
Instruccion = "INSERT INTO T_LibroContabilidad(Expediente,Fecha_Anotacion,Importe,Tipo,Descripción,Debe,Haber,SaldoAño,Acumulado)VALUES(Expediente,Fecha_Anotacion,Importe,Tipo,Descripción,Debe,Haber,SaldoAño,Acumulado)"
DoCmd.RunSQL Instruccion
MsgBox "El registro se ha grabado correctamente, GRACIAS"
End If
End Sub
¿Alguien puede decirme donde está el error?