[RESOLVIDO]Como gerar um número sequencial automático, mas respectivo, para catálogos diferentes.

Olá amigos!

Como sou “verdinho” no Access, ou seja, ainda preciso amadurecer rs, peço ajuda aos amigos.

Criei um banco chamado Biblioteca Pessoal. Nele há uma tabela que tem o campo Catalogação, que guarda as classificações dos livros em uma lista (HTR = História, DCL = Dicionário de Latim, e assim por diante, pois tenho vários livros de história, dicionários e etc. Criei um formulário para entrar com esses dados. O fato é que a classificação eu escolho em uma lista de catalogação que criei, mas a sequência estou digitando manualmente. Mas, certamente, colocar o um número que seria sequencial para cada classificação de forma manual é uma solução muito amadora. Vai chegar um momento que não vou lembrar qual é a sequência de um livro X, classificado como DCL, para usar o número seguinte em um novo cadastro Y de mesma classificação (DCL).  Gostaria de saber como faço para que quando eu selecionar a catalogação/classificação na lista, o Access verifique quantos há com aquela classificação e já apresente no campo n_item o número seguinte.

Ex. Suponhamos que haja 1 livro de história e eu vou cadastrar o segundo. Então quando eu selecionasse HTR o campo da sequência já apareceria o número 2.

Obs.: o campo “n_item”(sequência) estão como texto na tabela.
Segue uma imagem do formulário de entrada.

Gratos!

Bom dia
Teste
Apos atualizar o campo cataloção o que tem os dados (HTR = História, DCL = Dicionário de Latim)
Me.n_item = DLast("N_item", "nomedatabela", "catalogação ='" & Me.catalogação & "'") + 1

Aguardo

Avelino

Peço desculpa, estava digitando e não reparei ....

Caros amigos!



Tentei as duas indicações:
Usei-as assim:
me!n_Item = nz(dmax("n_item","livros","catalogacao = '" & me!catalogação & "'")) + 1
me.n_item = DLast("n_item", "livros", "catalogacao ='" & me.catalogacao & "'") + 1

Mas, apareceram os seguintes erros:

Na dica do Assis:


Na dica do Avelino




Anexei o banco com os 13 registros que já fiz para facilitar a análise de vocês.

Mais uma vez gratos!

No evento Após atualizar do campo catalogacao, digite assim:

Dim numeroserial As String

numeroserial = Nz(DMax("n_item", "livros", "catalogacao = " & Me!catalogacao & "")) + 1

If Len(numeroserial) = 1 Then
numeroserial = "00" & numeroserial
ElseIf Len(numeroserial) = 2 Then
numeroserial = "0" & numeroserial
End If

Me.n_item = numeroserial

Coloquei essa adaptação porque notei que vc cataloga assim: 001, 002, 003 e assim por diante.

Olá HiperJohn,

O erro que apareceu foi:


Sobre a catalogação ser 001, 002, pode ser 1, 2, sem problemas.

Mas, continuamos na busca da solução!

Boa tarde,

Eu experimentei e funciona na perfeição,
Reparei que tinha introduzido no inicio o codigo nas propriedades do seu campo.
O codigo tem que ser colocado no VBA.

Abraço.

Valdomiro, veja o passo a passo:

No campo catalogacao, dê um clique direito do mouse e escolha Propriedades.

Vá na aba Evento.

Lá no Após atualizar, escolha no dropdown [Procedimento do evento].

Clique no botão com 3 pontinhos.

Vai abrir a janel do VBA e ali você cola o código que eu passei.

Aqui está funcionando perfeitamente.

Segue uma imagem para te auxiliar.

Mestres,

Muitíssimo obrigado!

Questão resolvida.

O problema era entre a máquina e a cadeira.

Estava colando, literalmente, no espaço em branco que segue o "Após Atualizar". Coloquei na VBA e deu tudo certo!

Desculpem-me o excesso de trabalho desnecessário.

Grande abraço!
Valdomiro.

Meste tendo sido solucionado fui tentar uma outra forma de criar uma numeração automática como forma de treinar e aprender um pouco.
Pensei em utilizar a função while e Dlookup. A ideia seria procurar na tabela o valor da numeração e, enquanto o valor for encontrado, incrementar uma variável. Quando finalmente o valor for nulo, incrementar a variável mais uma vez (para gerar o próximo item da numeração) e atribuir o valor dessa variável ao campo numeração.

Como não sou experiente em VBA tenho certeza q escreve o código com muitos erros (peço desculpas por isso).
Alguém do fórum poderia dizer se esta lógica funciona e como escrever o código corretamente?
Pensei em algo mais ou menos assim:

Dim cod As Integer

cod = 0

Do While DLookup
If IsNoNull(Me![numeração]) then
cod = cod + 1
Loop

End while

[numeração].Value = cod