Insertar campo calculado vba access a tabla

Verifica que en el la tabla el campo lo has definido (el tipo de dato, no su formato) como doble, decimal, moneda o cualquier otro que admita decimales.

Si lo anterior ya lo tienes, yo probaría a usar la función CCur() para pasar el valor, por ejemplo:

CurrentDb.Execute "INSERT INTO Tabla(Campo) VALUES (" & CCur(Me.CampoIndep) & ")"

Por si el problema está (que no creo) en el separador decimal.

¡Gracias! . He probado pero sigue igual. Hace la inserción pero si tengo un valor de 23,40€ me inserta en la tabla de destino 23,00€. Es como si redondease la cantidad. La variable que tengo definida antes de ejecutar la sql es de tipo long. A ver si te da más pistas. Un saludo y gracias por contestar.

Long es un  tipo de dato numérico que no admite decimales, usa Double, Currency o Decimal, cono te indicaba para el campo de la tabla.

Si la variable VResultado es de tipo Double,Currency me da error. Si que veo que carga bien el importe como se aprecia en la imagen.

En cambio:

 Con la variable Long si carga pero redondea los decimales

Private Sub Comando1429_Click()
Dim liquidacionSQL As String
Dim vResultado As Long
vResultado = Nz(Me.txtLiquidacion.Value, 0)
Me.txtnumero.Value = vResultado
mensaje = (MsgBox("?Quiere guardar liquidaci?n?", vbQuestion + vbYesNo, "Aviso"))
Me.Form.Requery
    If mensaje = vbYes Then
    CurrentDb.Execute "INSERT INTO tb_liquidacion(n?delegacionL,empleadoL,a?oL,fechaActualL,tipoIngresoL,importeLiquidacionL)" _
    & "VALUES (" & Me.cboDelegacion & ",'" & Me.cboEmpleado & "'," & Me.txtA?o & ",'" & Me.txtFecha & "','" & Me.tipoIngresoIN & "'," & vResultado & " )", dbFailOnError
MsgBox "Se ha cargado datos correctamente", vbInformation, "Aviso"
Me.Form.Requery
Else
MsgBox ("Importaci?n cancelada"), vbExclamation, "Importaci?n cancelada"
End If
End Sub

¿Y qué error te da?

A vResultado la deberías declarar igual que el campo de la tabla al que lo quieres insertar (importeLiquidacion), es decir, si en la tabla lo tienes como Moneda, declárala como Currency, si lo tienes como Doble, declárala como Double y así...

¡Gracias! El error es:

Se ha producido el error '3346' en tiempo de ejecución:

El número de valores de consulta y el numero de campos de destino son diferentes.

Abajo pongo  donde salta el error:

    CurrentDb.Execute "INSERT INTO tb_liquidacion(n?delegacionL,empleadoL,a?oL,fechaActualL,tipoIngresoL,importeLiquidacionL)" _
    & "VALUES (" & Me.cboDelegacion & ",'" & Me.cboEmpleado & "'," & Me.txtA?o & ",'" & Me.txtFecha & "','" & Me.tipoIngresoIN & "'," & vResultado & " )", dbFailOnError

Saludos y gracias por su atención.