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]Verificando apenas primeiro registro

    avatar
    cruzbacelar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 13/05/2014

    [Resolvido]Verificando apenas primeiro registro Empty [Resolvido]Verificando apenas primeiro registro

    Mensagem  cruzbacelar 27/6/2017, 16:10

    Bom dia Pessoal,
    Preciso de uma ajudinha,
    Preciso que ao digitar o RG verifique se já existe o rg cadastrado e iforme por mensagem que já existre cadastrado.

    Com esse código abaixo até funciona,mas está reconhecendo apenas o primeiro registro os demais não reconhece.Só envia mensagem se eu tentar cadastrar o rg igual ao primeiro.Como faço pra reconhecer os outros também?

    Contem:
    1 form com o campo CÓD_VISITANTE,RG_CPF,NOME,EMPRESA,TELEFONE.
    1 Tabela com chave primária no campo CÓD_VISITANTE e RG_CPF

    Segue o código que estou usando:

    Private Sub RG_CPF_BeforeUpdate(Cancel As Integer)
    Dim rst As Recordset
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM Tab_CADASTROVISITANTE")

    With rst
    If rst![RG_CPF] = Me.RG_CPF.Value Then
    MsgBox "Documento já cadastrado...", vbCritical
    Me.Undo
    Else
    End If
    End With
    rst.Close
    End Sub


    Desde já agradeço.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificando apenas primeiro registro Empty Re: [Resolvido]Verificando apenas primeiro registro

    Mensagem  JPaulo 27/6/2017, 16:18

    Verifique no link da minha assinatura os 102 Códigos VBA Gratuitos

    Código = "Deteta e Mostra Registros Duplicados"


    .................................................................................
    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]Verificando apenas primeiro registro Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificando apenas primeiro registro Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificando apenas primeiro registro Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificando apenas primeiro registro Empty Re: [Resolvido]Verificando apenas primeiro registro

    Mensagem  JPaulo 27/6/2017, 16:28

    Ou assim;

    Código:
    Private Sub RG_CPF_BeforeUpdate(Cancel As Integer)
    On Error GoTo TrataErro
    Dim DB As DAO.Database
    Dim RS As DAO.Recordset

    ' Testa se o código já existe na tabela
        If IsNull(DLookup("RG_CPF", "Tab_CADASTROVISITANTE", "([RG_CPF] = '" & Me.RG_CPF.Value & "')")) Then
            GoTo Saida
        End If
    ' Dá opção de alterar dados
        If MsgBox("O CPF " & Me.RG_CPF.Value & " já existe. Deseja alterá-lo?", vbExclamation + vbYesNo, "Já existe...") = vbNo Then
            Me.Undo
            GoTo Saida
        End If
       
    'Abre o registro já existente
        Set RS = Me.RecordsetClone
        RS.FindFirst "RG_CPF = '" & Me.RG_CPF.Value & "'"
        Me.Undo
        Me.Bookmark = RS.Bookmark
        Set RS = Nothing
    Saida:
       
        Exit Sub
    TrataErro:
        MsgBox Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
    #If DESENV Then
        Stop
        Resume
    #End If
        Resume Saida
    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]Verificando apenas primeiro registro Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificando apenas primeiro registro Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificando apenas primeiro registro Folder_announce_new Instruções SQL como utilizar...
    avatar
    cruzbacelar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 13/05/2014

    [Resolvido]Verificando apenas primeiro registro Empty Re: [Resolvido]Verificando apenas primeiro registro

    Mensagem  cruzbacelar 27/6/2017, 16:36

    Obrigado JPaulo,
    Vou testar e já retorno.
    avatar
    cruzbacelar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 13/05/2014

    [Resolvido]Verificando apenas primeiro registro Empty Re: [Resolvido]Verificando apenas primeiro registro

    Mensagem  cruzbacelar 27/6/2017, 16:42

    JPaulo deu certinho,
    Muito obrigado mesmo,
    Deus abençoe seu conhecimento.
    Surprised
    avatar
    cruzbacelar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 13/05/2014

    [Resolvido]Verificando apenas primeiro registro Empty Re: [Resolvido]Verificando apenas primeiro registro

    Mensagem  cruzbacelar 27/6/2017, 16:43

    A propósito,
    Esse fórum e todos os participantes estão de parabéns pela dedicação em ajudar.
    Abraço a todos.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificando apenas primeiro registro Empty Re: [Resolvido]Verificando apenas primeiro registro

    Mensagem  JPaulo 27/6/2017, 17:22

    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]Verificando apenas primeiro registro Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificando apenas primeiro registro Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificando apenas primeiro registro Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 10/8/2022, 17:35