Access - ERROR 13 ACCESS 2007

   
Vista:

ERROR 13 ACCESS 2007

Publicado por ROBERTO (145 intervenciones) el 31/08/2009 10:17:43
Hola a todos. Tengo un problema al ejecutar un código que tenia en mi base de datos de Access 2000 y que ahora al convertirla a Access 2007 me dá el siguiente error: Error 13 No coinciden los tipos. Igual al convertirla hay que cambiar algo del código pq no funciona bien con el 2007. El código es muy simple solo crea un nuevo registro en una tabla nada mas.
El código es el siguiente:

Dim FECHANOVEDAD As Date
FECHANOVEDAD = Date
Dim Rst As Recordset
Dim db As Database

On Error GoTo AVISO
Set db = CurrentDb ' (El error aparece justo despues de esta línea)
Set Rst = db.OpenRecordset("NOVEDADES MARKETING-TECNICO")

With Rst
.AddNew
!IDERELMARK = ID
!ARTICULO = ARTIC
!DIE_PRODUCTO = "Pedir"
!SILK = "Hacer"
!DIE = "Pedir"
!GIFT = "Hacer"
!FOTOS = "Pedir"
!MANUTOÑO = "Hacer"
!HOJA_NOVEDADES = "Hacer"
!ESPECIFI = "Pedir"
!PART_LIST = "Pedir"
!CE = "Pedir"
!CI = "Hacer"
!ROHS = "Pedir"
!CARACT_CAJA_BLISTER = "1º"
!MANUAL_ESPAPOR = "Hacer"
' !NOVEFECHALIMI = [FECHA]
!HOJNOVTECNICO = "3º"
!PUESTOENMERCADO = "No hacer"
!FECHA = [FECHANOVEDAD]
.Update
MsgBox "Registro Novedad Guardado", vbCritical, "Registro Grabado"

End With
Rst.Close

AVISO:
If Err.Number = 3022 Then
MsgBox ("ERROR"), vbAbortRetryIgnore

Rst.Close
End If

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ERROR 13 ACCESS 2007

Publicado por Chea (1015 intervenciones) el 31/08/2009 16:07:27
Prueba a dimesionar el Recordset así:

Dim Rst As DAO.Recordset

Si te funciona, el problema no es de Access 2007, sino que, por algún motivo, tienes declarada una referencia a ADO por encima de la referencia a DAO o a ACEDAO

Saludos
José Bengoechea Ibaceta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar