MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Verificar se campo existe na tabela

    romera
    romera
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 27/12/2010

    [Resolvido]Verificar se campo existe na tabela Empty Verificar se campo existe na tabela

    Mensagem  romera em Sex Ago 19, 2011 2:09 pm

    Olá galera, estou com problema em um formulário Download arquivo ao digitar o cnpj no formulario aidf se nao está cadastrado ele me retorne uma msg de não cadastrado e opção para abrir o formulário de Cadastro de clientes.
    Fico grato a quem puder me ajudar.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Verificar se campo existe na tabela Empty Re: [Resolvido]Verificar se campo existe na tabela

    Mensagem  HARYSOHN em Sex Ago 19, 2011 2:59 pm

    E qual é o problema?
    romera
    romera
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 27/12/2010

    [Resolvido]Verificar se campo existe na tabela Empty Verificar se campo existe na tabela

    Mensagem  romera em Sex Ago 19, 2011 3:31 pm

    Olá Harysohn, gostaria que ao digitar o cnpj e nao fosse cadastrado ele desse uma mensagem de nao cadastrado e abrisse o formulario de cadastro de clientes.
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Verificar se campo existe na tabela Empty Re: [Resolvido]Verificar se campo existe na tabela

    Mensagem  vieirasoft em Sex Ago 19, 2011 3:36 pm

    O colega precisa disto no evento antes de actualizar do campo

    If (Not IsNull(DLookup("[NomeCampo]", "NomeTabela", _
    "[NomeCampo] ='" & Me!NomeCampo & "'"))) Then
    MsgBox "O NomeCampo já está cadastrado no sistema..." & NomeCampo.Text, _
    vbInformation, "Processo"
    Cancel = True 'cancela o evento.
    Me!NomeCampo.Undo 'desfaz a digitação.
    End If
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Verificar se campo existe na tabela Empty Re: [Resolvido]Verificar se campo existe na tabela

    Mensagem  HARYSOHN em Sex Ago 19, 2011 3:58 pm

    Com código do Mestre Vieira...
    Código:
    Private Sub CNPJ_AfterUpdate()

    If (Not IsNull(DLookup("[CNPJ]", "tblCliente", _
    "[CNPJ] ='" & Me!CNPJ & "'"))) Then

    Me.Nome_RazaoSocial = DLookup("[Nome/RazaoSocial]", "tblcliente", "[CNPJ] = '" & Me.CNPJ & "'")
    ' me.nome_RazaoSocial é o nome do campo
    ' Nome/RazaoSocial é o nome da coluna da tabela
    ' tblcliente é o nome da tabela que contem os dados
    ' CNPJ e o nome do campo da coluna da tabela inserida a tabela do formulario
    ' me.cnpj é o nome do campo do formulario

    Me.IE = DLookup("[IE]", "tblcliente", "[CNPJ] = '" & Me.CNPJ & "'")

    Me.Endereço = DLookup("[endereço]", "tblcliente", "[CNPJ] = '" & Me.CNPJ & "'")
    Me.numero = DLookup("[numero]", "tblcliente", "[CNPJ] = '" & Me.CNPJ & "'")
    Me.Cidade = DLookup("[cidade]", "tblcliente", "[CNPJ] = '" & Me.CNPJ & "'")
    Me.estador = DLookup("[estador]", "tblcliente", "[CNPJ] = '" & Me.CNPJ & "'")
    Me.cep = DLookup("[cep]", "tblcliente", "[CNPJ] = '" & Me.CNPJ & "'")
    Else
        MsgBox "Cliente não cadastrado", vbInformation, "Atenção"
        Forms!Menu.CtlGuia805.Pages(1).SetFocus
        Cancel = True

    End If
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7313
    Registrado : 05/11/2009

    [Resolvido]Verificar se campo existe na tabela Empty Re: [Resolvido]Verificar se campo existe na tabela

    Mensagem  Alexandre Neves em Sex Ago 19, 2011 5:06 pm

    Uma ajuda que lhe servirá muito:
    Saiba a diferença entre campo e registo
    romera
    romera
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 27/12/2010

    [Resolvido]Verificar se campo existe na tabela Empty Re: [Resolvido]Verificar se campo existe na tabela

    Mensagem  romera em Sex Ago 19, 2011 5:25 pm

    Galera, atualizei o arquivo seguindo as dicas dos amigos acima mas nao cheguei a um acordo, se alguém poder me ajudar fico agradecido.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Verificar se campo existe na tabela Empty Re: [Resolvido]Verificar se campo existe na tabela

    Mensagem  HARYSOHN em Sex Ago 19, 2011 5:28 pm

    romera
    romera
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 27/12/2010

    [Resolvido]Verificar se campo existe na tabela Empty [Resolvido]Verificar se campo existe na tabela

    Mensagem  romera em Seg Ago 22, 2011 7:54 am

    Obrigado a todos que colaboraram e parabéns ao forum!
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Verificar se campo existe na tabela Empty Re: [Resolvido]Verificar se campo existe na tabela

    Mensagem  vieirasoft em Seg Ago 22, 2011 8:03 am

    Obrigado pelo retorno, o Resolvido, é sempre colocado através do botão para esse efeito e não colocando-o no tópico. Obrigado. Já o fiz, desta vez.
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 798
    Registrado : 23/01/2018

    [Resolvido]Verificar se campo existe na tabela Empty Re: [Resolvido]Verificar se campo existe na tabela

    Mensagem  crysostomo em Sex Jan 25, 2019 7:04 pm

    saudações , pegando carona com esse topico .
    tenho um from com 3 campos
    verificando a cx de combinação, se o nome não existir na tabela ele não pode ir ao outro campo ,o programa está permitindo com a tecla TAB
    Código:
    Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String
        Dim strTitle As String
        Dim intRetVal As Integer
    If (Not IsNull(DLookup("[NOMES]", "Cartão de membros", _
    "[NOMES] ='" & Me!NomeDizimista & "'"))) Then
    MsgBox "não é cadastrado", vbInformation, "Lancamento de Dízimo"
    '
    ElseIf IsNull(Me.NomeDizimista) Then
    MsgBox "Quem é o dizimista?", vbCritical, "Aviso"
    Me.NomeDizimista.SetFocus
    ''
    ElseIf IsNull(Me.DATA_DZ) = True Then
    MsgBox " Qual é a data", vbInformation, "Atenção"
    Me.DATA_DZ.SetFocus
    ''
    ElseIf IsNull(Me.VALOR_DZ) = True Then
    MsgBox " Qual é o valor", vbInformation, "Atenção"
    Me.VALOR_DZ.SetFocus

    Else

    'Se lá acima tudo foi verificado e tudo está conforme o programado, então salva o registro
    'DoCmd.cadastro acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    'Mensagem confirmando o cadastro
    'MsgBox "Cadastro salvo com sucesso!", vbInformation, "Atenção"

        If Me.NewRecord Then
            strMsg = "Confirma lançamento?"
           ' strTitle = "Novo lançamento"
        Else
           'strMsg = "Confirma a alteração deste registro?"
            'strTitle = "Registro Alterado!"
        End If
            
        intRetVal = MsgBox(strMsg, vbExclamation + vbYesNoCancel, strTitle)
    .....
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 664
    Registrado : 21/11/2016

    [Resolvido]Verificar se campo existe na tabela Empty Re: [Resolvido]Verificar se campo existe na tabela

    Mensagem  IvanJr. em Sab Jan 26, 2019 12:01 pm

    Use o Cancel

    Código:
    if CondicaoNoCampoTalTal then
        msgbox "proibido"
        cancel = true 'impedindo que o campo seja atualizado com valor indevido
    end if


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 798
    Registrado : 23/01/2018

    [Resolvido]Verificar se campo existe na tabela Empty Re: [Resolvido]Verificar se campo existe na tabela

    Mensagem  crysostomo em Sab Jan 26, 2019 12:28 pm

    Já usei o cancel  ele nao funcionou no bloco

    If (Not IsNull(DLookup("[NOMES]", "Cartão de membros", _
    "[NOMES] ='" & Me!NomeDizimista & "'"))) Then
    MsgBox "não é cadastrado", vbInformation, "Lancamento de Dízimo"
    ElseIf IsNull(Me.NomeDizimista) Then
    MsgBox "Quem é o dizimista?", vbCritical, "Aviso"
    Me.NomeDizimista.SetFocus

    Obs: são tabelas diferentes
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 664
    Registrado : 21/11/2016

    [Resolvido]Verificar se campo existe na tabela Empty Re: [Resolvido]Verificar se campo existe na tabela

    Mensagem  IvanJr. em Sab Jan 26, 2019 12:36 pm

    Abra o formulário e na primeira caixa de texto tente digitar um nome diferente de "João", "Maria" ou "José" e veja o que acontece.
    Basta adaptar ao seu cenário.
    Anexos
    [Resolvido]Verificar se campo existe na tabela Attachmentpermanece.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 13 vez(es)


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 798
    Registrado : 23/01/2018

    [Resolvido]Verificar se campo existe na tabela Empty Re: [Resolvido]Verificar se campo existe na tabela

    Mensagem  crysostomo em Qui Jan 31, 2019 10:44 pm

    Bo anoite. fazendo tanto pelo genérico e como a ajuda no nosso amigo Ivan não esta dando certo, mesmo o nome ser igual a tabela , o sistema diz que não existe.

    Código:
    Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String
        Dim strTitle As String
        Dim intRetVal As Integer
    If (Not IsNull(DLookup("[NOMES]", "Cartão de membros", _
    "[NOMES] ='" & Me!NomeDizimista & "'"))) Then
    MsgBox "não é cadastrado", vbInformation, "Lancamento de Dízimo"
    '
    ElseIf IsNull(Me.NomeDizimista) Then
    MsgBox "Quem é o dizimista?", vbCritical, "Aviso"
    Me.NomeDizimista.SetFocus
    ''
    ElseIf IsNull(Me.DATA_DZ) = True Then
    MsgBox " Qual é a data", vbInformation, "Atenção"
    Me.DATA_DZ.SetFocus
    ''
    ElseIf IsNull(Me.VALOR_DZ) = True Then
    MsgBox " Qual é o valor", vbInformation, "Atenção"
    Me.VALOR_DZ.SetFocus
    ''

           
    Else

    'Se lá acima tudo foi verificado e tudo está conforme o programado, então salva o registro
    'DoCmd.cadastro acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    'Mensagem confirmando o cadastro
    'MsgBox "Cadastro salvo com sucesso!", vbInformation, "Atenção"

        If Me.NewRecord Then
            strMsg = "Confirma lançamento?"
          ' strTitle = "Novo lançamento"
        Else
          'strMsg = "Confirma a alteração deste registro?"
            'strTitle = "Registro Alterado!"
        End If
           
        intRetVal = MsgBox(strMsg, vbExclamation + vbYesNoCancel, strTitle)

        Select Case intRetVal
            Case vbCancel
                SendKeys "{esc}"
                Cancel = True
                Me.NomeDizimista = ""
                Me.DATA_DZ = ""
                Me.VALOR_DZ = ""
            Case vbNo
                Cancel = True
                Me.NomeDizimista = ""
                Me.DATA_DZ = ""
                Me.VALOR_DZ = ""


        End Select

        DoCmd.OpenForm "frmSenhaML", , , , , A_DIALOG
          Me.Usuário = UsuárioAtual()    'Identifica o usuário
          Me.DataAlteração = Now()      'Identifica a data de alteração
     End If

    End Sub
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 664
    Registrado : 21/11/2016

    [Resolvido]Verificar se campo existe na tabela Empty Re: [Resolvido]Verificar se campo existe na tabela

    Mensagem  IvanJr. em Sex Fev 01, 2019 3:11 pm

    Veja esta parte
    Código:
    If (Not IsNull(DLookup("[NOMES]", "Cartão de membros", _
    "[NOMES] ='" & Me!NomeDizimista & "'"))) Then
    MsgBox "não é cadastrado", vbInformation, "Lancamento de Dízimo"

    Nela você diz "Not IsNull", ou seja, se não for nulo, ou seja, SE EXISTIR NA TABELA então emitir mensagem de que não é cadastrado. Tá certo? É assim mesmo?


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 798
    Registrado : 23/01/2018

    [Resolvido]Verificar se campo existe na tabela Empty Re: [Resolvido]Verificar se campo existe na tabela

    Mensagem  crysostomo em Sab Fev 02, 2019 1:31 pm

    Não.
    É se o nome digitado na caixa de combinação existir na tabela

    Conteúdo patrocinado

    [Resolvido]Verificar se campo existe na tabela Empty Re: [Resolvido]Verificar se campo existe na tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Seg Jul 22, 2019 5:57 pm