[Resolvido]Criar msgBox de aviso e cod para impedir ação da tecla "enter"

Dados do projeto:

TABELA: Tab1ENTRADA
codChave
cod
nome
dt nasc
funcao
usuario

TABELA:Tab2SAIDA
codChave
cod
nome
dt nasc
funcao
usuario


Esse Bd executa um cod VBA que transfere os dados da Tab1ENTRADA para Tab2SAIDA.

Nesse Bd há um formulário F_SAIDA, onde ocorre a ação de transferência de dados qdo se clica no botão "SIM" para confirmar a "saída".

No formulário F_SAIDA, o usuario deve digitar o seu nome. Único registro a ser inserido nesse!

Acontece que qdo o usuario preenche seu nome e simplismente tecla ENTER ao invés de clicar no botão "SIM" desse formulário F_SAIDA, a transferência não é feita.

O QUE OCORRE É ... a inclusão do nome digitado na Tab1ENTRADA no campo usuário e a transferência não é realizada.

PERGUNTA

Como faço para gerar uma msgBox de aviso referente a ação incorreta de teclar ENTER ao invés de clicar em "SIM" e ao mesmo tempo não permitir que o F_SAIDA se feche ao teclar ENTER, somente qdo a ação for correta?

Você pode chamar o evento do botão no campo. Seria algo assim no evento "Após atualizar" do campo:

Call NomeDoBotão_Click

Assim, se pressupõe que ao dar Enter no campo, o evento do botão será chamado.

Bom dia Amigo Criquio... eu havia feito isto para ele em outro tópico...

No evento após atualizar da cboUsuario:

Private Sub CboUsuario_AfterUpdate()
Me.Comando11.SetFocus
End Sub


Creio que essa é a melhor opção pois se caso o usuario selecionar o nome errado.. ele pode alterar... se colcar para executar o click do botão diretamente assim que atualizar o evento seria disparado, não permitindo a alteração caso o mesmo erre na hora de selecionar o usuário...


Saudações

Bem, o amigo havia falado em campo e não em combo. De qualquer forma, talvez fosse melhor então colocar uma msgbox informando o que foi selecionado e pedindo confirmação, ou talvez um formulário como MsgBox em que o botão para confirmar fique habilitado depois de 3 segundos para dar tempo da pessoa ler o que foi escolhido, apesar do que de qualquer forma a pessoa pode acabar confirmando sem conferir, mas acho que uma msgbox pedindo confirmação já daria esse tempo para ler. Acho até que seria mais prático.

Seria uma boa solução tambem... esperemos pelo colega...

E nosso Mengão Criquio? rsrsrs

Harysohn e Criquio, grandes mestres...

O programa Bd que foi elaborado no outro tópico com a sua ajuda Harysohn , no exemplo, no F_SAIDA, ocorre exatamente da forma como expliquei acima.

Se der ENTER não executa corretamente a ação, apenas qdo se clica no botão SIM do F_SAIDA.

Preciso obrigar o usuario a clicar em SIM, para isso preciso impedir o uso da tecla ENTER e ao mesmo tempo exibir uma msgBox comunicando a ação correta.

Grato novamente!

Tanto com o código do criquio quanto ao que te passei funciona...

COm p Código do Criquio ao atualizar a combo já é executado o click do botão automaticamente..

Com o que passei move o foco para o botão portanto se o usuario apertar o enter.. ele aperta o botão..

Saudações

Eu só não entendi o que é que tem nesse campo que faz disparar algum evento, uma vez que, geralmente, quando apertamos Enter em um campo, o foco passa automaticamente para o próximo controle na lista de tabulação. De qualquer forma, ainda pode ser usado o evento "Ao apertar tecla" do campo para emitir uma mensagem:

If KeyCode = vbKeyReturn Then
MsgBox "Não utilize a tecla Enter. Pressione o botão para confirmar a ação.", vbCritical, "Atenção"
DoCmd.CancelEvent
End If

Obrigada pelas sugestoes!

Usei os códigos, não deram erros mas tbm não funcionaram.

Vou testar esse ultimo do Harysohn hoje a tarde!

Então mudei a ordem de tabulação que estava incoerente, estando alterado e qdo teclar ENTER o foco muda até chegar no botão "SIM".

RESOLVIDO!

----- --- - - - - Harysohn - - - - -
Devo abrir outro topico?

Esse mesmo Bd a consulta é feita baseado no número do registro, dessa forma, qdo se cadastra e não coloca um número ref. a esse registro, a busca pela consulta nao funciona.

Como acrescentar na sua sugestão de consulta permitir buscar tanto pelo número do registro como tbm pelo nome cadastrado?

Grato

Obrigado!

Resolvido!

O Fórum agradece o retorno.