folio consecutivo

vegamx
24 de Julio del 2004
hola que tal a todos gracias por su atencion miren lo que pasa es de que estoy haciendo un programa en donde tengo una BD la cual tiene un campo llamado Folio el cual debe generarse automaticamente y progresivamente cuando se da de alta un nuevo articulo el que me pueda ayudar se lo agradecere muchisimo

tecniCam
24 de Julio del 2004
Supongo que será algo así lo que necesitas, de lo contrario explícate mejor:

'Uso de AddNew y Update para añadir registros en una Recordset
'*********************************************************
'Uso de AddNew para añadir un nuevo registro
'*********************************
NewDyn.AddNew
'*******************************************************
'Coloca la información necesaria en los campos del Recordset
'*******************************************************
NewDyn("Apellidos") = "Velázquez Aragón"
NewDyn("Nombre") = "Manuel"
NewDyn("Direccion") = "Via Ancha, 74"
NewDyn("Ciudad") = "Bormujos"
NewDyn("Provincia") = "SE"
NewDyn("CP") = "41725"
'************************************************************
'Uso del método update (actualizar) para añadir el nuevo registro en el Recodrset
'************************************************************
NewDyn.Update

'Uso de Edit y Update para cambiar los datos en el registro
'*********************************************************
'Uso del método Find para localizar el registro que se va a cambiar
'*******************************************************
NewDyn.FindFirst "Apellidos = 'Pérez López'"
'********************************************
'Comprobar la propiedad NoMatch para evitar un error
'********************************************
If NewDyn.NoMatch Then
MsgBox "No se encuentra"
Else
'****************************************************
'Uso del método Edit para establecer los cambios del registro
'****************************************************
NewDyn.Edit
'***************************************************
'Colocar la información necesaria en el buffer de copia
'***************************************************
NewDyn("Direccion") = "Apartado de Correos 3.872"
NewDyn("Ciudad") = "Badalona"
NewDyn("Provincia") = "Barcelona"
NewDyn("CP") = "08250"
'***********************************************************
'Uso del método Update para guardar los cambios en el Recordset
'***********************************************************
NewDyn.Update
End If

'Uso de Delete para borrar un registro en el Recordset
'*********************************************************
'Uso del método Find para localizar el registro que se va a cambiar
'******************************************************
NewDyn.FindFirst "Apellidos = 'Roseta Menéndez'"
'********************************************
'Comprobar la propiedad NoMatch para evitar un error
'********************************************
If NewDyn.NoMatch Then
MsgBox "No se encuentra"
Else
'******************************************
'Uso del método Delete para borrar el registro
'******************************************
NewDyn.Delete
End If

'Uso del Proceso de Transacciones para tratar múltiples cambios en la BD en forma agrupada
'*********************************************************
BeginTrans
'**********************************************
'Realiza un bucle hasta que el usuario finaliza la transacción de Ventas
'**********************************************
Do While Ventas
'**********************************************
'Obtiene el número de artículo y cantidad de venta del Formulario
'Inserta el código del artículo y la cantidad de venta
'Halla el Código en el Inventario
'**********************************************
Inv.FindFirst "Num = " & Codigo
'*************************
'Actualiza la cantidad en Inventario
'*************************
Inv.Edit
Inv("Cantidad") = Inv("Cantidad") - Venta
Inv.Update
Loop
'*****************************************
'El usuario termina o cancela la venta
'*****************************************
If Venta Then
CommitTrans
Else
Rollback
End If

vegamx
24 de Julio del 2004
no talvez no me explique bien lo que quiero es que al ingresar un articulo, dato, etc.. me genere un folio automaticamente osea
Folio Nombre
PCA-001 Marcos
PCA-002 Julia
.. y asi sucesivamente, a la hora que capture un nuevo dato el usuario solo va a escribir el nombre y no el folio este se va a generar automaticamente.
gracias por tu atencion