MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Apagar TextBox duplicado

    pengo
    pengo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 10/12/2013

    [Resolvido]Apagar TextBox duplicado Empty [Resolvido]Apagar TextBox duplicado

    Mensagem  pengo 10/9/2015, 13:54

    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?

    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
    pengo
    pengo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 10/12/2013

    [Resolvido]Apagar TextBox duplicado Empty Re: [Resolvido]Apagar TextBox duplicado

    Mensagem  pengo 11/9/2015, 20:06

    Alguém poderia me dar uma luz Smile
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Apagar TextBox duplicado Empty Re: [Resolvido]Apagar TextBox duplicado

    Mensagem  Dilson 11/9/2015, 20:14

    Já tentou ao inves de Me.Protocolo.Undo 'desfaz a digitação.

    Colocar Me.Protocolo = "" 'desfaz a digitação. ou

    Me.Protocolo = Null 'desfaz a digitação.
    pengo
    pengo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 10/12/2013

    [Resolvido]Apagar TextBox duplicado Empty Re: [Resolvido]Apagar TextBox duplicado

    Mensagem  pengo 11/9/2015, 20:20

    Obrigado pela ajuda Dilson,

    Porém eu já havia tentado isso, mas ocorre o erro abaixo.



    erro em tempo de execução '-2147352567 (80020009)':

    A macro ou função definida como a propriedade BeforeUpdate ou ValidationRule para este campo está evitando que o Registro de Protocolos salve os dados do campo.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Apagar TextBox duplicado Empty Re: [Resolvido]Apagar TextBox duplicado

    Mensagem  Dilson 11/9/2015, 20:37

    Tente não colocar .Undo e nem = "" deixe só o cancel = true


    Já tentou redirecionar o foco para outro campo especifico (escondido) e no evento ao receber foco dele fazer apagar o conteúdo da textbox ?
    pengo
    pengo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 10/12/2013

    [Resolvido]Apagar TextBox duplicado Empty Re: [Resolvido]Apagar TextBox duplicado

    Mensagem  pengo 11/9/2015, 20:46

    Já deixei somente o Cancel = true, mas ele estava salvando os registros.

    Porém fiz igual você falou, setei o comando no botão ao clicar, eu tinha feito isso anteriormente mas tinha causado um erro e acabei desistindo da ideia.

    Mas agora fiz de novo, e ele só estava pedindo para setar o focus antes de realizar o comando. Assim eu o Fiz e deu certo.

    Muito Obrigado Dilson, tudo funcionando perfeitamente agora.

    Agradeço a você e a este ótimo fórum.

    Conteúdo patrocinado


    [Resolvido]Apagar TextBox duplicado Empty Re: [Resolvido]Apagar TextBox duplicado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/5/2024, 21:14