Valores de consulta no coinciden

[naixes]

Buenas a todos, feliz navidad y año nuevo a todos.
Me explico con el problema que tengo.
Tengo dos formularios, principal y sub, de pedidos. frm1pedidos (principal) y frm2pedidos (sub). Ambos están vinculados con el campo número, de tipo numerico entero largo.
En un botón de comando situado en el frm1pedidos pretendo que pase los datos a otras tablas, frm1albaran (principal) y frm2albaran(sub). Hasta aquí todo bien, pero cuando pase los datos de frm1pedidos a frm2albaran tiene que coger el valor máximo de 'número' de frm1albaran y sumarle 1. Esto también lo hace perfecto, el tema lo tengo en el pase de los datos de frm2pedidos a frm2albaran, pues me indica el siguiente error: el numero de valores de consulta y el numero de campos de destino son diferentes.
Tanto frm2pedidos como frm2albaran tienen los mismo datos y las mismas estructuras. Lo que he desarrollado en el botón de comando es lo siguiente:
Dim valor As Integer
Dim bd As Database
Dim sql As String
Dim sql1 As String

valor = Nz(DMax("numero", "frm1albaran"), 0) + 1

Set bd = CurrentDb
sql = "INSERT INTO frm1albaran ( numero, alias, nom_clie, dir_clie, pos_clie, pob_clie, nif_clie, tlfno_clie, pago, iva, dto, dia, serie, periodo ) values ('" & valor & "','" & Cuadro29 & "','" & Texto31 & "','" & Texto33 & "','" & Texto35 & "','" & Texto37 & "','" & Texto39 & "','" & Texto41 & "','" & Cuadro43 & "','" & txtiva & "','" & txtdto & "','" & Texto64 & "','" & Texto66 & "','" & Cuadro70 & "');"
bd.Execute (sql)
sql1 = "INSERT INTO frm2albaran ( numero, articulo, descri, cantidad, precio, linea ) select frm2pedidos (" & valor & ",'" & Cuadro14 & "','" & Txtdescri & "','" & uni & "',,'" & Texto21 & "','" & Texto22 & "') from frm2pedidos "
bd.Execute (sql1)
El problema, como he dicho viene dado en el sql1.
Por favor, necesito vuestra ayuda.
Muchas gracias

[Uran]

Hola naixes,


no soy ningún experto, pero creo que el problema que tienes es por lo siguiente:

Si revisamos tu código detenidamente:

Código:

" & uni & "',,'" & Texto21 & "',

Hay una parte que no encaja: tienes puestas 6 columnas para insertar y 7 valores por culpa del ,, y de ahí que te diga que hay valores de más

[naixes]

Gracias Uran,
Al final lo he solucionado. Efectivamente sobrava una como ,, pero tampoco era el problema al final.
La solución ha sido:

sql1= "INSERT INTO frm2albaran (numero, .....) SELECT "valor" AS numero, ... from frm2pedidos.

Saludos y gracias de nuevo.
Dad por cerrado este tema