Bom dia pessoal, estou com um problema que acho que deve ser simples, mas não consigo visualizar a solução.
Tenho um campo de texto em um formulário, e após o usuário preencher este campo, eu coloquei o código abaixo no evento "Antes de Atualizar", o código verifica se já existe um campo com aquele nome, se não existir ele registra, e se existir ele exibe uma mensagem, não registra, e apaga o que foi digitado no campo. Isso funciona perfeitamente em um formulário meu, que o campo "Protocolo" é Acoplado. Porém estou tentando fazer algo semelhando em outro formulário porém o campo Não é Acoplado, e o código funciona em partes, a unica coisa que ele não consegue fazer é limpar o campo, obrigando dessa maneira o usuário preencher o campo novamente.
Já tentei de varias formas, mas não consegui resolver a questão.
Alguém poderia me ajudar?
Tenho um campo de texto em um formulário, e após o usuário preencher este campo, eu coloquei o código abaixo no evento "Antes de Atualizar", o código verifica se já existe um campo com aquele nome, se não existir ele registra, e se existir ele exibe uma mensagem, não registra, e apaga o que foi digitado no campo. Isso funciona perfeitamente em um formulário meu, que o campo "Protocolo" é Acoplado. Porém estou tentando fazer algo semelhando em outro formulário porém o campo Não é Acoplado, e o código funciona em partes, a unica coisa que ele não consegue fazer é limpar o campo, obrigando dessa maneira o usuário preencher o campo novamente.
Já tentei de varias formas, mas não consegui resolver a questão.
Alguém poderia me ajudar?
- Código:
Private Sub Protocolo_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("Protocolo", "Con_Cad_Protocolo", "[Protocolo:] ='" & Me!Protocolo & "'"))) Then
MsgBox "O Protocolo" & " " & Protocolo.Text & " " & "já está cadastrado no sistema", vbInformation, "Fundação Rio Verde"
Cancel = True 'cancela o evento.
Me.Protocolo.Undo 'desfaz a digitação.
End If
End Sub