COMO CREAR QUE EL INDICE CODIGO SE GENERE AUTOMATICAMENTE EN VISUAL BASIC 6

Question

Hola a todos soy nuevo por aquí y estoy aprendiendo visual basic 6, ahora mi pregunta era la siguiente.. 

yo estoy haciendo un sistema de ventas y quiero que cada producto que agregue automáticamente se genere un código. 

ejemplo: 

Equipo:  Galaxy S3     /*agrego el modelo de celular

Modelo:  i9300           /*agrego el modelo

Precio de Venta :  100.00 USD    /*agrego el precio

lo guardo y tiene que generarme un código 0000000001 , y luego guardo otro y tiene que generarme 0000000002 y así consecutivamente  000000016.... 

tengo mi BD unida en un modulo llamándola:

Call EnlazeBase1

me conecto a la DB en Access y bueno lo demás me gustaría que me ayuden en ese código

porfavor agradeceré cualquier aporte gracias...

Answer 1

Al, definir la tabla en Access tienes que poner el campo código como autonumérico para que vaya tomando valores consecutivos de forma automática.

---

Saludos, Javier J

Answer 2

hola moises

En que acces trabajas? si trabajas en 2010 puedes crear una macro o un stored procedure

para crear una macro abres la pestaña de Tabla y despues de actualizar incrementar el campo codigo, tengo una porcion de codigo que incrementa una variable Consecutivo y hace lo que necesitas

para ver donde se abren los macros revisa este link acces

http://stackoverflow.com/questions/3287545/how-do-i-make-a-stored-procedure-in-ms-access

suertes

Answer 3

Hola Moises

'*********************************************************************************
'*                              Genera Id                                        *
'*********************************************************************************
Public Function GetNextId(cliCodigo As String) As String
  Dim Num As String
  Call Conectar
  strSQL = "SELECT MAX(cli_codigo) FROM Clientes"
  rs.Open strSQL, cnMDB, adOpenStatic, adLockOptimistic
  Num = Val(rs(0) & "") + 1
  GetNextId = Cero(MaxCodigo5 - Len(CStr(Num))) + CStr(Num)
  GetNextId = Num
'  rs.Close
'  Set rs = Nothing
  Call Desconectar
End Function

Y luego

Public Const MaxCodigo5 = 5 ' tamaño del campo de tablas

Espero te sirva.

---

Pedro Ávila
"El hombre sabio querrá estar siempre con quien sea mejor que él."
Lima - Perú