[Resolvido]Atualizar Status Com Critérios
lupe em 27/2/2014, 15:14
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.
Re: [Resolvido]Atualizar Status Com Critérios
Alexandre Neves em 27/2/2014, 16:38
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
lupe em 27/2/2014, 17:13
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.
NADIRONUNES em 27/2/2014, 17:18
Tem como vc disponibilizar, poi to precisando de um deste tipo pra fazenda
lupe em 27/2/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.
Alexandre Neves em 27/2/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
lupe em 27/2/2014, 19:00
Desculpa, mas acho que não entendi o que quis dizer sobre os tipos de dados. Vou exemplificar:
Safra = 13/14
Origem = 1
Talhão = 1
Status = "COLHENDO" ou "CONCLUÍDO"
Alexandre Neves em 27/2/2014, 19:10
O tipo de dados pode ser número, texto, data, etc.
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
lupe em 27/2/2014, 22:18
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:
mathusalmeida em 28/2/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.
lupe em 28/2/2014, 10:14
Olá mathusalmeida!
Fiz conforme sugeriu, porém, não obtive sucesso.
lupe em 28/2/2014, 20:02
Me desculpe a insistência, mas alguém mais tem alguma sugestão para a solução do problema?
lupe em 28/2/2014, 21:38
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: