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

    Compartilhe

    cruzbacelar
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Verificando apenas primeiro registro

    Mensagem  cruzbacelar em Ter 27 Jun 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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Verificando apenas primeiro registro

    Mensagem  JPaulo em Ter 27 Jun 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Verificando apenas primeiro registro

    Mensagem  JPaulo em Ter 27 Jun 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    cruzbacelar
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Verificando apenas primeiro registro

    Mensagem  cruzbacelar em Ter 27 Jun 2017, 16:36

    Obrigado JPaulo,
    Vou testar e já retorno.

    cruzbacelar
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Verificando apenas primeiro registro

    Mensagem  cruzbacelar em Ter 27 Jun 2017, 16:42

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

    cruzbacelar
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Verificando apenas primeiro registro

    Mensagem  cruzbacelar em Ter 27 Jun 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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Verificando apenas primeiro registro

    Mensagem  JPaulo em Ter 27 Jun 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 18 Nov 2017, 08:18