Campo Automatico Tipo 001 en un Text

[lokoman]

Puedes postear tu codigo del enlace o que controles usas para darte sugerencias?

PD: Usas un control "Data"? Intenta esto:

Código vb:

Sub cmdBoton_Click()
    Data.Recordset.MoveLast
    txtNumero.Text = Format(Data.Recordset.Fields(0) + 1, "000")
End Sub
 

En el cero del "Data.Recordset.Fields(0)" quiere decir que es el primer campo, para que funcione bien, los datos del campo que trae el control "Data" deben estar ordenados en ascendente.

O tambien:

Código vb:

'BUSCAR EL CODIGO MAXIMO
    Data.RecordSource="Select Max(Cod) as NUM_MAXIMO from TABLA"
        
    txtNUMERO.Text = Format(Data.Recordset.Fields(0) + 1, "000")