Ayuda sobre Access 2000 (Módulos)
Hola Amigo soy nuevo en esta comunidad y necesito ayuda sobre Access 2000.
Desde adentro del mismo Access 2000 en la parte de MÓDULOS tengo la necesidad de escribir código para asignarle un numero de factura de venta (tabla ultimo numero de factura) a una serie de registros ordenados por clientes (tabla de registros a facturar).
La idea seria más o menos así:
Necesito abrir y leer el único registro que tengo en mi tabla de (ultimo numero de factura) incrementarle el valor en uno y grabarlo, luego procesar la otra tabla (registros a facturar) y asignarle (ese numero de factura obtenido) a un grupo de registros que tengo ordenados por cliente hasta que el cliente me cambie, grabando cada registro que le voy asignando el numero de factura.
Cuando el cliente me cambie volver a tomar el ultimo numero de factura, incrementarlo en 1 grabarlo y seguir tratando la otra tabla (registros a facturar) asignándole el nuevo numero de factura y así sucesivamente hasta que se me termine la tabla de (registros a facturar).
No se como abrir las tablas desde un modulo de access, no se como acceder a los campos de cada una de las tablas, no se como regrabar los registros ni como liberara o cerrar las tablas terminado el proceso.
La lógica con el Do o el Loop más o menos la se, pero de lo otro ni jota.
¿No tienes un ejemplo para pasarme? Después veré como me defiendo desde ya muchas gracias.
Desde adentro del mismo Access 2000 en la parte de MÓDULOS tengo la necesidad de escribir código para asignarle un numero de factura de venta (tabla ultimo numero de factura) a una serie de registros ordenados por clientes (tabla de registros a facturar).
La idea seria más o menos así:
Necesito abrir y leer el único registro que tengo en mi tabla de (ultimo numero de factura) incrementarle el valor en uno y grabarlo, luego procesar la otra tabla (registros a facturar) y asignarle (ese numero de factura obtenido) a un grupo de registros que tengo ordenados por cliente hasta que el cliente me cambie, grabando cada registro que le voy asignando el numero de factura.
Cuando el cliente me cambie volver a tomar el ultimo numero de factura, incrementarlo en 1 grabarlo y seguir tratando la otra tabla (registros a facturar) asignándole el nuevo numero de factura y así sucesivamente hasta que se me termine la tabla de (registros a facturar).
No se como abrir las tablas desde un modulo de access, no se como acceder a los campos de cada una de las tablas, no se como regrabar los registros ni como liberara o cerrar las tablas terminado el proceso.
La lógica con el Do o el Loop más o menos la se, pero de lo otro ni jota.
¿No tienes un ejemplo para pasarme? Después veré como me defiendo desde ya muchas gracias.
1 respuesta
Respuesta de juanito01
1
Te abro un pequeña puerta...
Dim mibd As DAO.Database
Dim miRs As DAO.Recordset
Set mibd = CurrentDb()
Set miRs = mibd.OpenRecordset("select max(cod_factura) from facturas")
MsgBox "Siguiente numero de factura: " & miRs.Fields(0)+1
Set miRs = Nothing
Set mibd = Nothing
Dim mibd As DAO.Database
Dim miRs As DAO.Recordset
Set mibd = CurrentDb()
Set miRs = mibd.OpenRecordset("select max(cod_factura) from facturas")
MsgBox "Siguiente numero de factura: " & miRs.Fields(0)+1
Set miRs = Nothing
Set mibd = Nothing
Bien bien bien... muchas gracias... la cosa comenzó a funcionar. Yo debería pedirte aclaración pero solo si tienes ganas y deseos de hacerlo. Supongamos que el archivo no tiene un solo registro cual es la sentencia para avanzar registro a registro dentro de la base porque esto es útil para cuando solo tienes un registro.
Igualmente muchas gracias.
Igualmente muchas gracias.
Bien bien bien... muchas gracias... la cosa comenzó a funcionar. Yo debería pedirte aclaración pero solo si tienes ganas y deseos de hacerlo. Supongamos que el archivo no tiene un solo registro cual es la sentencia para avanzar registro a registro dentro de la base porque esto es útil para cuando solo tienes un registro.
Igualmente muchas muchas gracias por tu tiempo.
Igualmente muchas muchas gracias por tu tiempo.
