Bases de Datos > MS Access

 Ayuda Con Codigo

(1/1)

Isaacgm78:
Hola comunidad como estamos????
bueno primeramente es mi primera ves por estos rumbos y os saludo a todos por dicha comunidad a la ves ando buscando ayuda para cierto codigo que me funciona perfectamente en MSAccess 97 and MSaccess XP, pero el problema es que cuando vengo a usar la misma DataBase en MSAccess 2003 no me funciona  :(  ,  el codigo es el siquiente la cual estoy usando un MODULE para ello :




--- Código: Text ---'------------------------------------------------------------------------' FUNCTION: GetOrderNumber'' PURPOSE: Retrieves the next Order Number from the Settings table'------------------------------------------------------------------------Function GetOrderNumber() As Long    Dim db As Database    Dim t As Table    Dim num As Long        Set db = OpenDatabase("\\Malaka\Service\SK_Table.mdb")    Set t = db.OpenTable("Settings")     t.MoveFirst    num = t.OrderNumber    t.Edit    t.OrderNumber = t.OrderNumber + 1    t.Update     t.close    GetOrderNumber = numEnd Function 

NOTA : este codigo fue elaborado por un amigo mio hace tiempo atras todas las referencias estan colocadas tando como en 97, XP y 2003..
Pero no funciona correctamente en 2003 en esta area :

    Set db = OpenDatabase("\\Malaka\Service\SK_Table.mdb")

la verdad apreciaria cualquier ayuda en este caso y si hay alguna mejor manera de hacerlo seria mucho mejor..


Gracias de ante mano :kicking:

Isaac

RadicalEd:

--- Cita de: "Isaacgm78" --- Pero no funciona correctamente en 2003 en esta area :

    Set db = OpenDatabase("\\Malaka\Service\SK_Table.mdb")

 
--- Fin de la cita ---
Esta es la ruta no?, mira a ver si existen esos directorios y esta la DB en ese lugar, y que ese sea el nombre de la DB, sino es asi, 'tonces busca el archivo y copia el directorio donde se encuentra.

Ojala te sirva.
Chao

Navegación

[0] Índice de Mensajes