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

Pregunta
-
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...
Respuestas
-
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ú- Editado Pedro Ávila jueves, 21 de marzo de 2013 12:25
- Propuesto como respuesta Pedro Ávila jueves, 21 de marzo de 2013 18:50
- Marcado como respuesta Omar OrtizModerator jueves, 4 de abril de 2013 20:36
Todas las respuestas
-
-
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
- Editado santival miércoles, 27 de febrero de 2013 22:45
-
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ú- Editado Pedro Ávila jueves, 21 de marzo de 2013 12:25
- Propuesto como respuesta Pedro Ávila jueves, 21 de marzo de 2013 18:50
- Marcado como respuesta Omar OrtizModerator jueves, 4 de abril de 2013 20:36