[Resolvido]Ativar ao atualizar data

Olá pessoal!
Meu sistema operacional é o 7 (Seven) e o Office 2010.

Em um formulário há uma guia, nela há um botão tipo Sim/Não e um campo tipo data.
Gostaria de: Ao inserir a data no campo, denominado "cad_EmbarqueData", ativasse o botão "cad_EmbarquePrevisao".
Tentei adaptar alguns exemplos retirados do fórum, todavia não obtive sucesso.

[]s a todos.

Olá Avelino!

A sua orientação foi precisa, mas o efeito desejado não.
Para ajudar o seu entendimento adicionarei mais informações.

Na minha tabela tblCadastro possue o campo cad_EmbarqueData Tipo de dados: Data e o campo cad_EmbarquePrevisao Tipo de dados: Sim/Não.
Na guia Geral dessa tabela o Formato é: ;"Previsto para embarque";"Embarcou". O valor padrão é: -1. Na guia Pesquisa, Exibir controle: Caixa de texto.

No formulário, denominado frmPrevisaoEmbarque, há uma guia, guia1, nela há os campos:
cad_EmbarqueData
cad_EmbarquePrevisao

O efeito desejado é o seguinte:
Abrir o formulário e inserir os dados da pessoa que irá embarcar.
Nesse momento o campo cad_EmbarquePrevisao apresentará o texto Previsto para embarque. fecho o formulário.
No momento que essa pessoa embarcar, abrirei o formulário e ao inserir a data no campo cad_EmbarqueData gostaria que o texto de cad_EmbarquePrevisao alternasse para Embarcou.

Manualmente consegui executar, mas condicionando ao inserir a data não.

[]s.

Olá André,

Caso o Avelino não voltar para responder posta o seu bd para verificar as mudanças necessárias em seu código. Me parece um caso simples de if ... then... else...end if, colocado desta maneira IIF(condição,"A Embarcar","Embarcou").

Olá "good guy".

BD exemplo anexado.

Olá!

Não precisa utilizar do botão.   Basta utilizar o evento "após atualizar" do campo data

Private Sub cad_EmbarqueDataSdp_AfterUpdate()
   Me!cad_EmbarquePrevisao = IsNull(Me!cad_EmbarqueDataSdp)
End Sub

Sucesso!

Olá Avelino.
Era isso mesmo que precisava.
Fico deveras agradecido por sua ajuda, bem como a pré disposição do "good guy".
São pessoas como vcs que tornam este fórum o "Máximo".

[]s