[Resolvido]Atualizar Status Com Critérios

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.

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

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.

Tem como vc disponibilizar, poi to precisando de um deste tipo pra fazenda

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.

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

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!

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

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:

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!

Olá mathusalmeida!

Muito obrigado pela atenção!

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

Abraço!

Pessoal,

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

Obrigado!

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!