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 :
'------------------------------------------------------------------------
' 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 = num
End Function
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
Isaac
Mostrar Mensajes
