Access - Jefferson no funciona

JEFFERSON ME BAJE EL EJEMPLO DE GUARDAR DATOS EN OTRA TABLA PERO ME DA UN MENSAJE DE ERROR MUY RARO, EL CODIGO ES EL SIGUIENTE:

Dim STRSQL As String, LNGSIGUIENTE As Long
LNGSIGUIENTE = Nz(DMax("ID_FACTURA", "TB_FACTURAS")) + 1

STRSQL = "INSERT INTO [TB_FACTURAS] ( FECHA_ALBARAN,NUM_ALBARAN, COD_CLIENTE, IMPORTE )"
STRSQL = STRSQL & " SELECT " & LNGSIGUIENTE & " , ALBARAN_NUM, CODIGOCLIENTE, BASE_IVA"
STRSQL = STRSQL & " FROM [TB_ALBARANES]"
STRSQL = STRSQL & " WHERE NUM_ALBARAN = " & Me.NUM_ALBARAN

CurrentDb.Execute STRSQL, dbFailOnError

Me.Requery
DoCmd.GoToRecord , , acLast

DEBIERA FUNCIONAR PERO ME DA EL MENSAJE DE ERROR SIGUIENTE:
Pocos parametros, se esperaba 3

Hola rambling

Por casualidad Num_ALBARAN no es tipo texto...???

Prueba cambiando esta linea

STRSQL = STRSQL & " WHERE NUM_ALBARAN = '" & Me.NUM_ALBARAN & "'"

Ya Comentaras

Desde Venezuela
Jefferson

sigue saliendome el mismo mensaje.
el campo num_albaran es autonumerico

Hola rambling

Debes tener cuidado con los formatos de campo, pues para VBA esto es importante.

Suponiendo que FECHA_ALBARAN es tipo Fecha
NUM_ALBARAN es Numerico
COD_CLIENTE es Texto

Dim sql As String
Dim NumFactura As Long

NumFactura = Nz(DMax("ID_FACTURA", "TB_FACTURAS"), 0) + 1

sql = "INSERT INTO TB_FACTURAS(ID_FACTURA, FECHA_ALBARAN, NUM_ALBARAN, COD_CLIENTE, IMPORTE )"
sql = sql & " SELECT " & NumFactura & " , #" & Me.FECHA_ALBARAN & "# , " & Me.NUM_ALBARAN & ", '" & Me.COD_CLIENTE & "' , " & Me.IMPORTE & ""
sql = sql & " FROM TB_ALBARANES "
sql = sql & " WHERE NUM_ALBARAN = " & Me.NUM_ALBARAN

CurrentDb.Execute sql, dbFailOnError

Un Saludo y espero sigas aprendiendo.
Desde Venezuela
Jefferson