[Resolvido] Reclassificar registros após digitar o número de ordem em VBA

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.

Cleyton

Ainda precisamos de mais detalhes para ajudar
Temos que entender a dinâmica da coisa.
Entendi que numa tabela existem militares com sua classificação

1- João
2- Mario
3- Fernando
4- Joaquim
5- Ademir

Se adicionamos o Ricardo com classificação 3 teremos que fazer o seguinte:

O incrementar todos seria isso?

1- João
2- Mario
3- Ricardo
4- Fernando
5- Joaquim
6- Ademir


Abraços

Noob

Exatamente isso!!!

E caso coloque um militar na classifissão superior a última fica assim mesmo, pois teremos outros miltares para serem incluídos nas classificações vaga:

1- João
2- Mario
3- Ricardo
4- Fernando
5- Joaquim
6- Ademir

Inclui Antonio na classificação 9

1- João
2- Mario
3- Ricardo
4- Fernando
5- Joaquim
6- Ademir
7-
8-
9- Antonio

Pelo que pesquisei neste fórum o código deverá ficar no item "Antes de Atualizar" para poder fazer todas as alterações em função da nova classificação e depois incluira nova.

Kleyton


Veja se é isso que pretende.

Noob

Perfeito Noob!  Só um detalhe eu posso precisar alterar a classificação de alguém já existente, como posso fazer isso?

O código que você fez é para uma tabela com apenas 3 campos, no meu caso o BD tem 8 TABELAS com relacionamento entre si.
A tabela que eu vou usar o código é a [CARREIRA] e ela tem 14 campos.
O campo que vou usar a classificação chama-se [Antiguidade] e você poderia implementar o código para a tabela, digo, FORMULÁRIO  que envio anexo, é a mesma tabela que usarei no meu BD.
Os registros são para teste.

Desculpe abusar da sua boa vontade é que sou um pouco, melhor muito leigo e para evitar que eu fique buscando erros.
Vou tentar adaptar ele para a minha a minha tabela mas eu serei grato se você pudesse fazer isso para mim, na documentação (comentário) do código sem dúvida os créditos serão seus aqui no Brasil. rsrsrs

Kleyton

Não tem mistério, esse é apenas um exemplo e como tal, não iria encher a tabela de campos
Mas não importa quantos campos tenha na tabela, estou só mostrando os campos que irá trabalhar, ou seja somente dois campos.
Os demais campos não se alteram, daqueles que já exitem, claro
É só você substituir o nome da tabela e os nomes dos campos em questão, no código VBA.
Crie um botão para fazer a classificação e coloque o código.
Não tem erro.

Vou deixar você seguir pelas próprias pernas, se realmente tentar
e não conseguir, dai será outro caso.   

Abraços


Noob

Graças a você quase alcancei meu objetivo.
Eis o que falta e gostaria da sua ajuda:
A função Do While é chave de tudo, mas mudei muita coisa tendo em vista que eu precisava alterar apenas as antiguidades (Classificações) dos miltares.
A nossa realidade é alguém de menor classificação subir na fila, descer a fila não é a nossa realidade.
Anexo o que eu consegui fazer até agora.

O problema, em exemplo:

1- Kleyton
2- Romario
3- Jeferson
4- Leandro
5- Rogério
6- Moreira

Reclassificar o 5- Rogério em 3, ocorre isso:

1- Kleyton
2- Romario
3- Rogério
4- Jeferson
5- Leandro

7- Moreira

Deveria aconter isso:

1- Kleyton
2- Romario
3- Rogério
4- Jeferson
5- Leandro

6- Moreira

Tentei fazer o código, mas não deu certo, ou seja, preciso que a classificação dos militares abaixo do que esta sendo reclassificado não se altere.

Tentei fazer que no monento em que verifica que o campo Não é Null (para ignorar casa não tenha classificação)
Pegar a Matrícula do proximo (MoveNext) para quando o While chegar naquela posição parar de incrementar, mas não deu certo não conheço bem as funções

Amigo

Você modificou totalmente o código do exemplo que eu disponibilizei e quer que funcione?

Simplesmente copie o código do meu exemplo para o teu aplicativo e somente mude os nomes
dos controles.

Porque no exemplo passado, faz exatamente o que deseja, ou seja, coloca o novo nome
no lugar de quem tem a mesma classificação e incrementa que estava nessa classificação e os demais acima da dessa classificação,
até o final dos registros, é só conferir.

Noob, minha salvação

O seu exemplo, que eu agradeço, não teria conseguido chegar até aqui sem ele é apenas para inclusão, não consigo alterar a classificação de alguém que já exista e é isso que eu mais vou fazer

Eis o problema, eu não posso mudar nenhuma informação, como o nome do registro, são muitas informações ligada a uma única pessoa, apenas a classificação importa.
já que na consulta que eu faço com todas as tabelas eu vou classifcar pelo campo antiguidade.
Na prática sempe que eu inserir um militar NOVO ele vai para o fim da fila, é "recruta", rsrs. a reclassificação será para as pessoas que já existem

Com o seu exemplo consegui implementar isso, pessoas de baixo sobem a fila, o 5º vai para o 2º (Exemplo), todavia do 6º em diante não pode mudar, essa é unica coisa que falta corrigir!!!

Não me tenha por ingrato. Ou seja não preciso mexer com os registros apenas com a ordem, você consegue me entender Noob?

Veja:

O problema, em exemplo:

1- Kleyton
2- Romario
3- Jeferson
4- Leandro
5- Rogério
6- Moreira

Reclassificar o 5- Rogério em 3, ocorre isso:

1- Kleyton
2- Romario
3- Rogério
4- Jeferson
5- Leandro

7- Moreira

Deveria aconter isso:

1- Kleyton
2- Romario
3- Rogério
4- Jeferson
5- Leandro

6- Moreira

Entendi Kleyton

Vou analisar a coisa e então retorno.
Confirme para mim, cada militar tem sua matricula, certo?
Acho que vou  usar ela.
O novo militar que não está na classificação(ainda to chamando assim), tem sua matricula, certo?


Noob

Correto! Cada militar tem sua Matrícula, eu uso ela como chave primária composta com o ID.
Quanto ao novo militar, sim também. Nomes e matrícula são campos obrigatório, nos exemplos você vai perceber isso
A Classificação(antiguidade) pode ficar em branco para ser inserida depois.
Só pra observar o campo Matrícula é String porque em outris formulários/relatórios eu uso uma mascara nela do tipo 000\.000\-00
E a Classificação tem quer ser pelo menos Inteiro porque vai ter mais de 1000 miltares listados.

Sou MUITO grato pela sua ajuda,
Estou a aguardar!

Kleyton

Veja se é isso.

Graças a sua ajuda e seus código resolvi o problema de Classificação/Ordenação, todavia está danto "Conflito de Gravação" como na imagem anexa.
já usei "DoCmd.RunCommand acCmdSaveRecord"
Pesquisei no fórum e tentei todas as formas e o máximo que consegui foi que avisasse do conflito assim que atualiza o campo ao invés de avisar só quando salva o registro
eu acredito que colocar um comando para SEMPRE confirmar o botão salvar registro da MsgBox de Conflito resolve, só não sei qual comando coloco pra confirmar esse "DoCmd.RunCommand acCmdSaveRecord"
Na guia proteção do registro já mudei não da certo, não atualiza.

Kleyton

Experimente fazer isso bem no inicio do código.

Dim rs As Recordset, newClass As Byte, xMat As String
DoCmd.RunCommand acCmdSaveRecord
'verifica a existencia do registro na tabela, se não houver, avisa e sai.
If DCount("*", "CARREIRA", "[Matricula]= '" & Me.Matricula & "' or [Antiguidade]=" & Me.Antiguidade) = 0 Then
  MsgBox "Essa matrícula ainda não foi salva." + vbCrLf + "Salve e tente novamente.", vbInformation, "Sem registro"
  Exit Sub
End If

Veja que agora o código só aceitar mexer nas antiguidades, se o registro estiver salvo.
Por isso coloquei o comando para antes de verificar se existe registro na tabela.

Experimente e retorne


Noob

Quem sabe, resolve sem dor de cabeça!

Resolveu, mas para fins de facilitação e evitar sustos para o operador leigo tem como o MsgBox que pede confirmação para atualizar ser sempre sim sem precisar o usuário clicar,
ou seja, o próprio código fazer isso?

Antes da consulta coloque:

Docmd.SetWarings false ' desabilita as mensagens do Access.

Depois da consulta, na linha de baixo:

Docmd.SetWarings true 'reabilita.


Noob

Esse também resolvido, mas não tinha observado que quando eu coloquei

Dim rs As Recordset, newClass As Byte, xMat As String
DoCmd.RunCommand acCmdSaveRecord

Quando eu classifico a pessoa em número vago ele está incrementando todos abaixo dele pois não precisava porque é vago, tipo:

1- Joao
2- Antonio
3-
4- Mario
5- Carlos
6- Rafael
7- Jose

Faz isso:

1- Joao
2- Antonio
3- Carlos
4-
5- Mario
6-
7- Rafael
8- Jose

Tem solução pra isso?

Taí Kleyton

Espero que funfe legal agora

Noob

Grande Noob, problema resolvido!!

Vou dar prosseguimento com o meu projeto, se em 48h eu não houver mais nenhuma dúvida foi encerrar o tópico, pode ser?

Noob,

Obrigado pela ajuda neste item, vou abrir outro tópico porque agora se trata de um detalhe no relatório.

Obrigado.

Uffa!!  

Ainda bem que deu certo!!

Valeu pelo retorno


Boa sorte


Noob