Danilo
07 de Agosto del 2003

Holas a todos.

Si me podrian ayudar con este problemita?
Gracias.

Estoy trantando de hacer un insert desde access a una tabla sql y los registros no se insertan
La tabla la tengo Enlazada por ODBC.

he aqui el codigo:

Function AgregaNuevosItems()
On Error Goto Display_Error
Dim db as DAO.Database
Set db = CurrentDB
db.Execute "INSERT INTO Articulos_BK " _
& " (Codigo, Descripcion, Tipo, Clase, Categoria," _
& " [Unidad Medida], [Peso Estandar], tramo)" _
& " SELECT Articulo, Tipo, Tipo, 'Item/Articulo'," _
& " Kt, 'DWT', [Peso Estandar], 'Prueba' " _
& " FROM qry_Nuevos_Items2 ", dbSeeChanges

db.Close
Set db = Nothing

Salir:
Exit Function

Display_Error:
MsgBox "Ha ocurrido el Error #: " & Err.Number & vbCr & "Descripcion: " & Err.Description, vbCritical, "Aviso"

End Function