Buenas a todos,
Estoy liado con una aplicacion en visual basic.net con la cual tengo que hacer una consulta SQL en un recordset para que me inserte en un formulario los resultados.
La consulta es la siguiente:
Código:
StrSQL = "SELECT * FROM dbo_albaranes_lineas "
StrSQL = StrSQL & "WHERE num_albaran = " & Str(Forms("Albaranes - Añadir").Controls("Taula_Numero").Value)
Set bd = CurrentDb
Set rs = bd.OpenRecordset(StrSQL)
While Not rs.EOF
StrSQL = "INSERT INTO dbo_albaranes_lineas "
StrSQL = StrSQL & "VALUES ('" & rs.Fields("tipo_albaran").Value & "'," & Str(Forms("Albaranes").Controls("C_Num_Albaran").Value) & "," & rs.Fields("n_linea") & "," & rs.Fields("cantidad").Value & ",'" & rs.Fields("referencia").Value & "'," & rs.Fields("sn").Value & "," & rs.Fields("almacen").Value & ",'" & rs.Fields("descripcion").Value & "'," & rs.Fields("precio").Value & ",'" & rs.Fields("id_moneda").Value & "', " & rs.Fields("empresa_asignado").Value & "," & rs.Fields("cantidad_asignado").Value & "," & rs.Fields("saldado").Value & "," & rs.Fields("precio_medio_calculado").Value & ","
StrSQL = StrSQL & "'" & Str(Me.num_albaran.Value) & "', 'ALBARAN','PTA')"
bd.Execute StrSQL
Num_Linia = Num_Linia + 1
rs.MoveNext
Wend
Cuando estoy debugando el código, me da el siguiente error: "Se ha producido el error '3134' en tiempo de ejecución. Error de sintaxis en la instrucción INSERT INTO.
¿Alguna idea de cuál es el problema del INSERT INTO?
Gracias por la ayuda!