Error 3146
Publicado por Gina (30 intervenciones) el 28/07/2010 17:51:47
Buenos días.
Tengo un código que pasa datos con addnew / Update con tablas viculadas a una BD SQL, pero a la hora de hacer Update me manda el mensaje:
Error 3146 en proc. cmdImportar_Click de Documento VBA Form_frmImportar (ODBC: falló la llamada)
El código es :
' abro el recordset
strSQL = "SELECT * FROM CORRIDAD;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)
rst.AddNew
' troceo la cadena
Matriz() = Split(strLinea, strDelimitador)
' llevo los distintos "trozos" a sus respectivos campos
For i = 1 To 17
If Matriz(i - 1) = " " Or Trim(Matriz(i - 1)) = "Nulo" Then
DATO = 0
Else
DATO = Trim(Matriz(i - 1))
End If
Select Case i
Case 1 'ESTE ES EL INFORME
rst!Informe = DLookup("Informe", "Informe", "InfOrig= '" & DATO & "'")
Case 2
rst!Patrón = DATO
Case 3
rst!Serie = DATO
Case 4
rst!Producto = DATO
Case 5
rst!Densidad = DATO
Case 6
rst!consec = DATO
Case 7
rst!Tipo_Flujo = DATO
Case 8
rst!Presion = DATO
Case 9
rst!Flujo = DATO
Case 10
rst!Temperatura = DATO
Case 11
rst!Lec_ini = DATO
Case 12
rst!Lec_fin = DATO
Case 13
rst!Fmmat = DATO
Case 14
rst!Vol_corr = DATO
Case 15
rst!Vol_mc = DATO
Case 16
rst![F_ UCL] = DATO
Case 17
rst![F_ CAL] = DATO
End Select
Next i
' guardo el registro
rst.Update <<=== AQUI ES DÓNDE ME MANDA ERROR
rst.Close
Locurioso es que tengo este mísmo código usando otras tablas y otros datos y alli no me truena.
Cúalquier ayuda es bienvenida.
Saludos
Gina
Tengo un código que pasa datos con addnew / Update con tablas viculadas a una BD SQL, pero a la hora de hacer Update me manda el mensaje:
Error 3146 en proc. cmdImportar_Click de Documento VBA Form_frmImportar (ODBC: falló la llamada)
El código es :
' abro el recordset
strSQL = "SELECT * FROM CORRIDAD;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)
rst.AddNew
' troceo la cadena
Matriz() = Split(strLinea, strDelimitador)
' llevo los distintos "trozos" a sus respectivos campos
For i = 1 To 17
If Matriz(i - 1) = " " Or Trim(Matriz(i - 1)) = "Nulo" Then
DATO = 0
Else
DATO = Trim(Matriz(i - 1))
End If
Select Case i
Case 1 'ESTE ES EL INFORME
rst!Informe = DLookup("Informe", "Informe", "InfOrig= '" & DATO & "'")
Case 2
rst!Patrón = DATO
Case 3
rst!Serie = DATO
Case 4
rst!Producto = DATO
Case 5
rst!Densidad = DATO
Case 6
rst!consec = DATO
Case 7
rst!Tipo_Flujo = DATO
Case 8
rst!Presion = DATO
Case 9
rst!Flujo = DATO
Case 10
rst!Temperatura = DATO
Case 11
rst!Lec_ini = DATO
Case 12
rst!Lec_fin = DATO
Case 13
rst!Fmmat = DATO
Case 14
rst!Vol_corr = DATO
Case 15
rst!Vol_mc = DATO
Case 16
rst![F_ UCL] = DATO
Case 17
rst![F_ CAL] = DATO
End Select
Next i
' guardo el registro
rst.Update <<=== AQUI ES DÓNDE ME MANDA ERROR
rst.Close
Locurioso es que tengo este mísmo código usando otras tablas y otros datos y alli no me truena.
Cúalquier ayuda es bienvenida.
Saludos
Gina
Valora esta pregunta
0