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]todos os botões estão verificando duplicados

    avatar
    lionsobral
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/03/2013

    [Resolvido]todos os botões estão verificando duplicados Empty todos os botões estão verificando duplicados

    Mensagem  lionsobral 23/4/2013, 14:12

    Estou fazendo um sistema de cadastro e inseri no formulário a opção de verificar se existem dados duplicados, sendo que, ao clicar em qualquer botão após digitar a informação a verificação acontece.

    Queria que verificasse somente em adicionar ou salvar.


    FORMULÁRIO
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]todos os botões estão verificando duplicados Empty Re: [Resolvido]todos os botões estão verificando duplicados

    Mensagem  JPaulo 23/4/2013, 14:28

    Ola seja bem vindo ao forum;

    Delete a instrução do Before do form e insira apenas no evento do botão salvar;


    Private Sub Comando2_Click() 'BOTÃO SALVAR'

    If (Not IsNull(DLookup("[local]", "tabela_local", _
    "[local] ='" & Me!local & "'"))) Then
    MsgBox "Já existe este cadastro.", vbInformation, ""
    Me!local = ""
    Exit Sub
    End If

    If IsNull(Me!local) Then
    MsgBox "Para salvar é necessário iniciar o cadastro.", vbInformation, "Campo necessário"
    Me!local.SetFocus

    Else

    MsgBox "Salvo com sucesso!", vbInformation, ""
    DoCmd.Close

    Exit Sub
    End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]todos os botões estão verificando duplicados Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]todos os botões estão verificando duplicados Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]todos os botões estão verificando duplicados Folder_announce_new Instruções SQL como utilizar...
    avatar
    lionsobral
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 19/03/2013

    [Resolvido]todos os botões estão verificando duplicados Empty Re: [Resolvido]todos os botões estão verificando duplicados

    Mensagem  lionsobral 23/4/2013, 14:44

    Cara que isso, já resolveu. Tirou onda! vlw brigadão.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]todos os botões estão verificando duplicados Empty Re: [Resolvido]todos os botões estão verificando duplicados

    Mensagem  JPaulo 23/4/2013, 14:45

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]todos os botões estão verificando duplicados Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]todos os botões estão verificando duplicados Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]todos os botões estão verificando duplicados Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]todos os botões estão verificando duplicados Empty Re: [Resolvido]todos os botões estão verificando duplicados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 20/5/2024, 02:35