[Resolvido]numeração automática via VB

Boa tarde amigos desse forum,

Tenho que montar uma sequência de dados dentro de um formulário, mas não tem subformulário.

Preciso de um campos que enumere os lançamentos individuais para para chave, tipo a numeração automática do access, mas tudo isso via código VB.

Não consegui porque tem que ser uma sequência para cada chave primária, algo que repita a chave primária e numere automático os lançamentos.

Mas como a chave primária não aceita repetição fiquei a ver navios, uma vez que não vou trabalhar com subformulários.

Alguém pode me ajudar por favor?


Grato,


Campos.

Se foi o que entendi deve funcionar teste ai:

crie um campo na tabela e de o nome de: "n_te!

No teu campo "n_te" defina como Número na tua tabela. No formulário em modo desing, seleciona seu campo "n_te",

abre as propriedades dele e na linha valor padrão tu coloca:


=SeImed(DContar("[n_te]";"tab_TE")=0;1;DMáx("[n_te]";"tab_TE")+1)


Quer dizer, toda vez q tu abrir o form, vai estar como valor padrão o último código cadastrado

(que não vai ser autonumeração e sim número) + 1.

Bom dia Lupércio,

Amigão desde já quero agradecer por sua disponibilidade,

Olha gostei muito da forma em que você criou.

Se possível, teria como me passar por código VB, pois preciso muito que as informações fiquem reservadas, pois não é só eu que utilizo esse aplicativo e preciso preservar as informações e códigos elaborados.

um forte abraço,

Campos.

Amigo tente esse código: Lembrando que esse código se não me fala a memória é do JPaulo.

Private Sub Campo1_AfterUpdate()
Dim numeroencontrado As String, proximoNumero As Integer
'encontrar o ultimo numero na tabela
numeroencontrado = Nz(DMax("codigoTabela", "Tabela", "[campo1] = " & Me.campo1.Value), 0)
   If IsNull(CampoNumero) Or CampoNumero = "" Or CampoNumero = "0" Then
   'se não existir numeração, insere o numero + 001 para iniciar
       CampoNumero = Me.campo1.Value & "-" & "001"
   'devolve ao campo a nova numeração
       Me.codigoTabela.Value = CampoNumero
   Else
   'se já existir numeração na tabela, acrescenta +1
       proximoNumero = Right(DMax("codigoTabela", "Tabela", "[Campo1] = " & Me.Campo1.Value), 3) + 1
   'devolve ao campo a nova numeração
       Me.codigoTabela.Value = Me.Campo1.Value & "-" & Format(proximoNumero, "000")
   End If

End Sub

Como vai Lupércio, desde já agradeço.

Vou adaptá-lo e logo te dou uma resposta, ok

Um abraço,


Campos.

Bom dia Lupércio,

Deu certo, ficou muito muito bom,

Obrigado por sua disponibilidade,

um abraço,

Campos.