Ver Mensaje Individual
  #1 (permalink)  
Antiguo 06/01/2012, 12:53
naixes
 
Fecha de Ingreso: enero-2012
Mensajes: 2
Antigüedad: 12 años, 4 meses
Puntos: 0
Busqueda Valores de consulta no coinciden

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