MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Código em Consulta

    Compartilhe

    Bessa_SP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    Registrado : 07/11/2013

    [Resolvido]Código em Consulta

    Mensagem  Bessa_SP em 9/3/2018, 01:27

    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...
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 795
    Registrado : 01/03/2014

    Re: [Resolvido]Código em Consulta

    Mensagem  Celso Roberto em 9/3/2018, 20:10

    Olá....

    Anexe seu banco para analisar e tentar te ajudar

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    Bessa_SP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    Registrado : 07/11/2013

    Código em Consulta

    Mensagem  Bessa_SP em 10/3/2018, 01:20

    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...
    Anexos
    Sys_novo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (174 Kb) Baixado 9 vez(es)
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 795
    Registrado : 01/03/2014

    Re: [Resolvido]Código em Consulta

    Mensagem  Celso Roberto em 10/3/2018, 17:07

    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 795
    Registrado : 01/03/2014

    Re: [Resolvido]Código em Consulta

    Mensagem  Celso Roberto em 10/3/2018, 18:13

    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    Bessa_SP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    Registrado : 07/11/2013

    Código em Consulta

    Mensagem  Bessa_SP em 11/3/2018, 16:31

    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....
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 795
    Registrado : 01/03/2014

    Re: [Resolvido]Código em Consulta

    Mensagem  Celso Roberto em 12/3/2018, 15:55

    olá..

    Fico feliz por ter ajudado.

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

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 19/11/2018, 05:44