
23/08/2011, 09:32
|
 | | | Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 6 meses Puntos: 47 | |
Respuesta: Campo Automatico Tipo 001 en un Text Tomando del codigo de Insomnia:
'BUSCAR EL CODIGO MAXIMO
REG.Open "Select Max(Cod) as NUM_MAXIMO from TABLA", CONEXION, adOpenStatic, adLockOptimistic
Despues, simplemente:
txtNUMERO.TEXT= FORMAT ( REG!NUM_MAXIMO + 1, "000") |