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]Atualizar Status Com Critérios

    Compartilhe
    avatar
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    [Resolvido]Atualizar Status Com Critérios

    Mensagem  lupe em Qui 27 Fev 2014, 15:14

    Olá pessoal!

    Preciso da ajuda de vocês para resolver a seguinte questão:

    Tenho a tabela "tblRomaneio" que alimento através do formulário "frmRomaneio". Neste, eu informo a Safra, Origem, Produto, Talhão e outros dados. Também tenho o campo "Status" que é preenchido com valor padrão "COLHENDO", porém, quando terminar-se a colheita de um determinado talhão eu preciso que ao mudar o status para "CONCLUÍDO" (assim mesmo, em maiúsculo), todos os demais registros referentes a mesma Safra, Origem, Produto e Talhão tenham o campo Status atualizados como "CONCLUÍDO". Ou seja, no ultimo lançamento para um determinado talhão eu mudaria o status para "CONCLUÍDO" e automaticamente os registros anteriores correspondentes ao mesmo talhão, safra, origem e produto também ficassem com o campo "Status" preenchido com "CONCLUÍDO".

    Espero que eu tenha conseguido explicar bem a minha necessidade.

    Certo da atenção do fórum, desde já agradeço.


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6260
    Registrado : 05/11/2009

    Re: [Resolvido]Atualizar Status Com Critérios

    Mensagem  Alexandre Neves em Qui 27 Fev 2014, 16:38

    Boa tarde,
    Ao sair do controlo Status, coloque
    if TxtStatus="Concluído" Then Currentdb.execute "UPDATE tblRomaneio SET Status='Concluído' WHERE Safra=" & TxtSafra & " and Origem='" & TxtOrigem & "' and Produto=" & TxtProduto &" and Talhão=" & TxtTalhao


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Re: [Resolvido]Atualizar Status Com Critérios

    Mensagem  lupe em Qui 27 Fev 2014, 17:13

    Boa tarde!

    Alexandre, obrigado pela atenção!

    Apresentou o seguinte erro: Erro em tempo de execução '3464'. Tipo de dados incompatível na expressão de critério.


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 414
    Registrado : 30/08/2010

    Re: [Resolvido]Atualizar Status Com Critérios

    Mensagem  NADIRONUNES em Qui 27 Fev 2014, 17:18

    Tem como vc disponibilizar, poi to precisando de um deste tipo pra fazenda
    avatar
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Re: [Resolvido]Atualizar Status Com Critérios

    Mensagem  lupe em Qui 27 Fev 2014, 17:25

    Olá NADIRONUNES!

    De fato tenho a intenção de disponibilizar no repositório de exemplos este projeto, porém, somente quando estiver finalizado, pois esta em fase inicial.

    Logo que eu concluir o projeto vou anexa-lo com código fonte aberto.


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6260
    Registrado : 05/11/2009

    Re: [Resolvido]Atualizar Status Com Critérios

    Mensagem  Alexandre Neves em Qui 27 Fev 2014, 18:33

    Não informou o tipo de dados, por isso, apresentei como julguei.
    Veja o tipo de dados e adeqúe: os dados tipo texto são envolvidos em pelicas, os de tipo numérico não


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Re: [Resolvido]Atualizar Status Com Critérios

    Mensagem  lupe em Qui 27 Fev 2014, 19:00

    Alexandre,

    Desculpa, mas acho que não entendi o que quis dizer sobre os tipos de dados. Vou exemplificar:

    Safra = 13/14
    Origem = 1
    Produto = 4
    Talhão = 1
    Status = "COLHENDO" ou "CONCLUÍDO"

    Obrigado!


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6260
    Registrado : 05/11/2009

    Re: [Resolvido]Atualizar Status Com Critérios

    Mensagem  Alexandre Neves em Qui 27 Fev 2014, 19:10

    O tipo de dados pode ser número, texto, data, etc.
    Será?
    if TxtStatus="Concluído" Then Currentdb.execute "UPDATE tblRomaneio SET Status='Concluído' WHERE Safra='" & TxtSafra & "' and Origem=" & TxtOrigem & " and Produto=" & TxtProduto &" and Talhão=" & TxtTalhao


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Re: [Resolvido]Atualizar Status Com Critérios

    Mensagem  lupe em Qui 27 Fev 2014, 22:18

    Alexandre,

    Funcionou em parte. O código esta efetuando a atualização necessária, porém, ao fechar o formulário esta aparecendo a mensagem em anexo:
    Anexos
    erro-conflito.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 12 vez(es)


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    avatar
    mathusalmeida
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 30/08/2011

    Re: [Resolvido]Atualizar Status Com Critérios

    Mensagem  mathusalmeida em Sex 28 Fev 2014, 09:18

    Olá lupe
    Com a permissão do mestre Alexandre, experimente na folha de propriedades dos formulários, na guia Dados, na linha Proteções do registro marque a opçãoSem proteção. Veja se resolve.

    Sucesso!
    avatar
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Re: [Resolvido]Atualizar Status Com Critérios

    Mensagem  lupe em Sex 28 Fev 2014, 10:14

    Olá mathusalmeida!

    Muito obrigado pela atenção!

    Fiz conforme sugeriu, porém, não obtive sucesso.

    Abraço!


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    avatar
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Re: [Resolvido]Atualizar Status Com Critérios

    Mensagem  lupe em Sex 28 Fev 2014, 20:02

    Pessoal,

    Me desculpe a insistência, mas alguém mais tem alguma sugestão para a solução do problema?

    Obrigado!


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    avatar
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Re: [Resolvido]Atualizar Status Com Critérios

    Mensagem  lupe em Sex 28 Fev 2014, 21:38

    Olá pessoal!

    Queimei os 3 últimos neurônios que eu tinha mas consegui achar uma solução para o problema. O que fiz foi muito simples, porém, resolveu.

    Simplesmente inseri a rotina no clicar do botão Salvar do formulário, que já tinha a seguinte linha:

    DoCmd.RunCommand acCmdSaveRecord

    Agradeço ao grande Alexandre Neves e também ao mathusalmeida pela atenção e grande ajuda.

    Obrigado!


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.

      Data/hora atual: Qui 27 Jul 2017, 09:34