Estou desenvolvendo BD e 80% do VBA foi usado deste fórum, mas este item eu não consegui, preciso do Código VBA para a seguinte dúvida:
> Um tabela com várias informações da carreira do militar, uma coluna CLASSIFICAÇÃO recebe o número de sua ordem, todavia eu preciso que toda vez que eu inserir um novo militar e seu número de ordem o VBA verifique na coluna se existe o mesmo número, caso exista incrementar o existente e todos os demais.
> Ou seja, eu coloco alguém na fila e renumera todos os outros. não basta achar um número vago na fila preciso alterar todos os registro, caso exista um igual.
> Eu consegui desenvolver a lógica em linguagem de alto nível, se alguém puder transcrever até melhora-la em VBA:
NovaClassif (Variável) = Me.Classif (CaixaTexto)
- - - - - - Busca na Coluna [Classificação] da Tabela [Militar] SE existe algum registro [Classifação] =(IGUAL)= [NovaClassif]
- - - - - - - - - Se verdadeiro:
- - - - - - - - - - - - Classificação = Classificação + 1 (Incrementa o existente)
- - - - - - - - - - - - NovaClassif = Classificação (Que já foi incrementado)
- - - - - - E volta (loop, possivelmente um WHILE) a busca pelo resto da coluna
- - - - - - - - - Se falso:
- - - - - - - - - - - - Encerra o VBA. (Ou o novo número inserido era um vago OU era o último da fila)
Lembrando que o código deve verificar todos os registros da coluna mas NÃO pode ALTERAR o número que acabei de inserir.
Quem puder me ajudar serei muito grato.
> Um tabela com várias informações da carreira do militar, uma coluna CLASSIFICAÇÃO recebe o número de sua ordem, todavia eu preciso que toda vez que eu inserir um novo militar e seu número de ordem o VBA verifique na coluna se existe o mesmo número, caso exista incrementar o existente e todos os demais.
> Ou seja, eu coloco alguém na fila e renumera todos os outros. não basta achar um número vago na fila preciso alterar todos os registro, caso exista um igual.
> Eu consegui desenvolver a lógica em linguagem de alto nível, se alguém puder transcrever até melhora-la em VBA:
NovaClassif (Variável) = Me.Classif (CaixaTexto)
- - - - - - Busca na Coluna [Classificação] da Tabela [Militar] SE existe algum registro [Classifação] =(IGUAL)= [NovaClassif]
- - - - - - - - - Se verdadeiro:
- - - - - - - - - - - - Classificação = Classificação + 1 (Incrementa o existente)
- - - - - - - - - - - - NovaClassif = Classificação (Que já foi incrementado)
- - - - - - E volta (loop, possivelmente um WHILE) a busca pelo resto da coluna
- - - - - - - - - Se falso:
- - - - - - - - - - - - Encerra o VBA. (Ou o novo número inserido era um vago OU era o último da fila)
Lembrando que o código deve verificar todos os registros da coluna mas NÃO pode ALTERAR o número que acabei de inserir.
Quem puder me ajudar serei muito grato.