Visual Basic - Ayuda Consecutivo Automatico para Programa de Facturacion

Buen día,

Estoy realizando un programa que realice comprobantes de egresos, recibos de caja, facturación entre otros.

Tengo una BD en Aceess, y lo que pretendo es que el campo No de recibo, factura ect. actualice automáticamente.

Tengo entendido que con la función Dmax se puede validar el campo para que tome el valor mas alto y posteriormente ir sumando de a 1 para que se genere el consecutivo de manera ordenada.

No llevo mucho tiempo programando con Visual , y agradeceria mucho si me pudieran ayudar .

Mil gracias


Adjunto el codigo que esoy usando porque se que estoy mal en sintaxis:

Dim x As CurrencyManager
x = Dmax("[No de recibo]", "ingresos", "[No de recibo]='UK'")
Dmax = TextBox1

En Visual Basic 6.0 no existe la funcion Dmax, por lo que estas en el foro equivocado, no obstante en Acces puedes definir ese campo como autonumerico.

Pedro gracias por tu respuesta.

Si efectivamente en Visual Basic no existe la funcion Dmax, necesito saber como valido contra mi base de datos el ultimo consecutivo generado y a este sumarle .

Si bien la funcion Dmax es de Access, lo que me sugirieron alguna vez es que podria hacer esta validacion dentro del visual mediante codigo, pero no se exactamente como hacerlo.

Te agradeceria grandemente si me pudieras dar alguna otra opción

Mil gracias.

Entiendo que te convendría generar una tabla con en la que tengas los nombres de las tablas ej, factura y el ultimo nro generado de esta forma podras sumar 1 al ultimo nro asignado, obvio dentro de una transacción para asegurarte que si se genere correctamente, con el autonumerico, en cuanto toca la base se incrementa en 1 haya tenido exito o no en la actualización.
Saludos.

1. Crea un formulario donde el campo de los números de las facturas lo llamaremos nroFactura; y la conexión ado a la base de datos la llamaremos, adoFactura

En el formulario donde digitarás los datos de la factura escribe en él

Private Sub Form_Load()
adoFactura.Recordset.Sort = "nroFactura"
adoFactura.Recordset.MoveLast

End sub

Esto permitirá que no se desordenen los números y el último número de factura esté ahí, de último.

Ahora, en el comando donde crearás un nuevo registro para la factura escribe:

Private Sub btnNuevaFactura_Click()
If adoFactura.Recordset.EOF = False Or adoFactura.Recordset.BOF = False Then

codfac = adoFactura.Recordset!nroFactura
adoFactura.Recordset.MoveLast
Else
codfac = 0
End If
adoFactura.Recordset.AddNew
adoFactura.Recordset!nroFactura = codfac + 1

End Sub

Cada vez que crees una, ella la irá sumando. ...