Pessoal estou fazendo um form, onde sempre q eu clico em Encerrar, tem q gerar um número sequencial (autonumeração) no textbox = txtNumPed, como faço para isso acontecer, estava colocando incremento, mas o problema é q na hora de abrir o form aí terei q digitar o novo número.

Queria uma maneira mais dinâmica, como posso fazer isso?

 

obrigado

grave uma tabela com o último número do pedido, sempre que abrir o formulário leia a tabela que vc terá como calcular o proximo número

Tenho uma Função que faz isso:

Private Function ProximoNumero() As Long
    Dim result As Long
    sqlpedido = "Select Max(numped) + 1 As proximo From Pedidos"
    Set rspedido = db.OpenRecordset(sqlpedido)
    If IsNull(rspedido("proximo")) Then
        result = 1
    Else
        result = rspedido("proximo")
    End If
    ProximoNumero = result
End Function

 

Ao abrir o Form coloque esta linha:

TxtNumPed.Text = ProximoNumero

 

espero ter ajudado.