[Resolvido]Erro Codigo no evento de Saída

Boa tarde a todos

Possuo um Formulario com um Subformulario.

No subformulario, quero que o usuário não consiga inserir valores repetidos, no registro do formulario.

Com isso tenho o seguinte código, com a ação após atualizar:

Código:


Private Sub CodCentroCusto_AfterUpdate()

If DCount("[CodCentroCusto]", "TbDistCentroCusto", "[CodProjeto/Obra] =" & Me.CodProjetoObra & " AND [CodCentroCusto]=" & Me.CodCentroCusto) > 0 Then
MsgBox "Já existe esse centro de custo selecionado! Por favor escolha outro."
Me.CodCentroCusto.SetFocus
Else
End If

End Sub


Funciona perfeitamente, mas queria colocar essa opção no evento ao sair, desse campo (combobox).

Quero evitar que o usuário possa deixar um registro duplicado, pois com o evento após atualizar, aparece a mensagem, ele pode clicar em ok, e apertar um TAB que ele vai para o próximo campo.

Porém ao colocar no evento de saída, fica acusando Erro em tempo de execução 3075, logo ao abrir o Formulário, nem chego a tentar executar uma inserção de dados.

Ambos os campos são em formato número.

Alguém tem alguma ideia?

No aguardo

Marcio Lisandro

Obs.: Anexo imagem do erro.

Eu colocaria o evento ao perder foco, ou ao alterar

Obrigado Roberval pela ideia

Porém já havia tentado essas opções, mas mesmo assim o usuário consegue sair do campo, deixando o valor duplicado.

No aguardo

Boa tarde...

Coloque no evento antes de atualizar.

Colocando antes de atualizar, o comando setFocus acaba não funcionando (Erro 2108 "Você deve salvar o campo antes de executar a ação IrParaControle, o método GoToControl ou o método SetFocus.)

E se retirar o setFocus, o usuário consegue ir para outro campo, deixando o registro duplicado.

No aguardo

Alguma outra idéia?

Poste o form em questão para analisarmos melhor.

Bom dia

Segue o arquivo em anexo.

o Form em referência é o FormCadProjetos

A ação que gostaria de colocar no evento ao sair é a combobox CodCentroCusto do SubFormDistCentroCusto.

Estou desenvolvendo em Access 2016.

O código foi para o evento Antes de Atualizar e nele foi acrescido o me.undo (desfaz digitação) após a MsgBox.
Foi retirado o Me.CodCentroCusto.SetFocus e transferido para o evento ao sair, onde torna o campo de preenchimento obrigatório impedindo de usar tab ou enter para deslocar-se ao próximo campo.
Obs: Como postou parte do Bd e usa vários códigos terá que fazer alguns ajustes.

Os códigos

Private Sub CodCentroCusto_BeforeUpdate(Cancel As Integer)
If DCount("[CodCentroCusto]", "TbDistCentroCusto", "[CodProjeto/Obra] =" & Me.CodProjetoObra & " AND [CodCentroCusto]=" & Me.CodCentroCusto) > 0 Then
MsgBox "Já existe esse centro de custo selecionado! Por favor escolha outro."
Me.Undo
Else
End If
End Sub

Private Sub CodCentroCusto_Exit(Cancel As Integer)
If IsNull(Me.ActiveControl) Then
DoCmd.CancelEvent
MsgBox "Campo obrigatório... ", vbCritical, "Campo obrigatório"
Me.CodCentroCusto.SetFocus
End If
End Sub

Obrigado Cafpr

Fiz os testes, e o comando Me.undo, foi perfeito para resolver o problema.

Quanto ao tornar o campo de preenchimento obrigatório, a ideia foi bem legal, mas ao abrir ou fechar o formulário principal, a mensagem fica disparando, sem motivos, você chegou a fazer esse teste?

Mas enfim, o comando Me.undo, já serve para o meu proposito.

A principio, agora estou com um outro problema, com outra situação nesse mesmo BD, mas irei abrir um outro tópico para esse.

Problema Solucionado!

Mais uma vez, muito Obrigado!

Se resolveu marque o tópico com resolvido