Ver Mensaje Individual
  #8 (permalink)  
Antiguo 23/08/2011, 09:32
Avatar de lokoman
lokoman
 
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")