[Resolvido]Código em Consulta

Boa noite Srs.

Tenho um formulário e tenho um campo chamado baixar, que é uma caixa de Combinação com o nome txt_baixar.
E tenho outro campo chamado N_Consolidacao.
Preciso o seguinte que quando clicar em baixar após alterar e colocar "SIM", o campo N_consolidacao, seja alterado com uma ordem de valores, tentei assim:

if txt_baixar = Sim then
me.txt_N_consolidacao = Nz(DMáx("tbl_parcelas","n_consolidcao"),999)+1

E está dando errado, veja eu coloquei o mesmo código que é colocado na folha de propriedades do campo N_Consolidacao, na aba dados e o campo valor padrão.

Trata-se de um sub-Formulário, e preciso desse código, pois irei selecionar várias despesas de um fornecedor, e essas despesas irá gerar um código de consolidação.

Obrigado...

Olá....

Anexe seu banco para analisar e tentar te ajudar

Abraços

Boa noite Celso Roberto

Primeiramente muito obrigado em me ajudar...
Estou mandando o projeto pronto precisando somente do código que mencionei abaixo.
Veja quando abrir vai abrir um formulário de filtro, digite as datas 01/02/2018 a 28/02/2018 clique no botão abrir.
Vai abrir um formulário de pesquisa, clique em alterar e digite o nome Antonio Roberto Bastista...
Veja que abrirá algumas despesas, fiz alguns testes para ver se estava tudo funcionando e deu certo, porém o que necessito.
É o seguinte ao clicar no baixar sim no sub-formulário no campo txt_consolidacao fique com numero sequenciais como lhe disse tentei alguns códigos, dentre eles o seguinte:
If txt_baixar = 1 then
me.txt_N_consolidacao = Nz(DMáx("tbl_parcelas","n_consolidcao"),999)+1
E não deu certo...

Obrigado...

Olá...

Altere para:  Me.Txt_Consolidacao = Nz(DMax("N_Consolidacao", "tbl_parcelas"), 999) + 1


Com isto a cada vez que clicar em baixar vai gerar um sequencial a partir do 999

Aguardo

Abraços

Olá de novo..

Verificando em sua tabela verifiquei que voce fez alguns testes de baixa repetindo o numero de consolidação.

Se é isto que pretende, terá que fazer outras alterações.

Não vou postar exemplo pronto até mesmo para que faça na unha para aprender, então faça o seguinte:

1º - Crie um campo Não Acoplado no form principal   Forms_Baixar_Fornecedor e renomeie para   txtNConsolidacao
Depois de executar testes e se for o que pretende, altere para o nome que quiser e deixe invisível também se quiser.

2º - No evento após atualizar da ComboBox   txt_pesquisa cole esta linha de código  
Me.txtNConsolidacao = Nz(DMax("N_Consolidacao", "tbl_parcelas"), 999) + 1  

3º - No Evento após atualizar da Combo   Txt_status, Acrescente esta linha de código dentro do If  
Me.Txt_Consolidacao = Forms!Forms_Baixar_Fornecedor!txtNConsolidacao

E pronto

Faça testes e retorne

Aguardamos

Amigo Celso Roberto...

Que Deus lhe abençoe muiiiiiitttooo, eu estava sem norte para conseguir terminar esse sistema tenho outras dúvidas que vou postando para consegui finalizar, mas esse tópico ficou excelente...
Obrigado pela dica, pois vai ser muito útil em outros formulários que estou com dúvida...

Valeu mesmo....

olá..

Fico feliz por ter ajudado.

O Fórum agradece seu retorno e até a próxima

Abraços