[Resolvido]Formulário com a Função "Se não estiver na lista"

Bom dia Amigos

Tenho um formulário (NovaConsulta), com um campo (TxtNome), com a função (Se não estiver na lista)


Quando acontece abre outro formulário (PacientesInserir) para digitar o novo paciente.

Neste formulário (PacientesInserir) se não confirmar a gravação, este fecha, não grava nada e volta ao formulário (NovaConsulta), com o campo (TxtNome) ainda preenchido.


Como voltar ao formulário (NovaConsulta) com um campo (TxtNome) em branco.

Já tentei ao fechar o formulário (PacientesInserir) :

Forms.NovaConsulta.txtNome = ""  ----> mas não resulta.

Alguma ideia, Obrigados

Olá Assis.

Procurei algo aqui já tentou algo assim: Textbox.value = null

Sucesso.

Bom día Assis!

No form NovaConsulta

Código:

Function LimpaNome()

    Me.TxtNome = "" 'ou tmb
    Me.TxtNome = Null

End Function

No form PacienteInserir ao fechar

Código:

Forms.NovaConsulta.LimpaNome
 

Espero que isso ajude.

Saludos!

Obrigado
Aos dois, mas não resulta

Boa tarde

Ver na imagem que o formulário "NovaConsulta" está aberto e por traz do formulário "PacientesInserir"

Obrigado

Bom día Assis

Em anexo

Saludos

Boa tarde Franklin

Tem aqui o exemplo

No primeiro formulário a abrir digita um novo nome de Paciente.

- Vai receber a informação se deseja registar, e diz SIM.

- Abre um formulário com uns campo "Amarelos" já preenchidos, não precisa digitar nada.

  Em baixo tem um botão "Gravar", clika e diz que não quer gravar.

-  formulário fecha e aparece o outro formulário com o nome digitado (Que é o que eu queria apagado)

Obrigado

Msg errada.

Qual Msg ?

Assis

Analise o código do botão Gravar do  segundo Formulário.

Veja que o registro é gravado na tabela agenda já após confirmar clicando o sim na primeira caixa de mensagem e
abre o segundo formulário.
Clicando em não no botão Gravar do segundo formulário, além de apagar os campos do formulário, precisa
deletar o registro na tabela agenda, assim  o campo nome do primeiro formulário ficará em branco.
Para isso, é só fazer uma sentença SQL ( DoCmd.RunSQL "DELETE...") ou uma consulta deletar.
{ }'s

Balem

Bom dia Noob

Não chego lá

Importa-se de dar uma ajuda

Obrigado

cansei, mas .....

Obrigado

Parabéns, Assis

A gente lava a alma quando conseguimos resolver algo!

Não tive tempo para analisar teu app.

Boa sorte!


Balem