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]Localizar Registro

    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    Registrado : 08/10/2012

    [Resolvido]Localizar Registro Empty [Resolvido]Localizar Registro

    Mensagem  Sidney 30/6/2017, 14:38

    Prezados Bom dia!!

    Estou tentando fazer um código aqui mas não consegui, tenho um formulário "Frm_CadastraUsuario" que se refere a uma "tbl_Usuario", criei um campo chamado "txtPesquisa", neste campo quero localizar o registro que se encontra na tabela  "tbl_Usuario, e se não existir, emita uma mensagem "Não localizado", não estou usando caixa de listagem,

    att;

    NEY
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Localizar Registro Empty Re: [Resolvido]Localizar Registro

    Mensagem  ronaldojr1 30/6/2017, 18:29

    quando quero fazer algo do tipo eu uso esse codigo que aprendi aqui no forum

    Código:
    Private Sub findReg(nome As String)
    Dim rst As DAO.Recordset
           
        Set rst = Form_meuFormulario.RecordsetClone
       
        nome = Nz("nome_paciente = '" & nome & "'", "")
       
        Me.RecordsetClone.FindFirst (nome)
       
        If Not Me.RecordsetClone.NoMatch Then
            Form_meuFormulario.Bookmark = Me.RecordsetClone.Bookmark
        Else
            MsgBox "Não Localizado", vbCritical
        End If
    End Sub

    para usar eu chamo a função no evento apos atualizar da caixa de texto
    Código:
    findReg (Me.pesquisa)
    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    Registrado : 08/10/2012

    [Resolvido]Localizar Registro Empty Re: [Resolvido]Localizar Registro

    Mensagem  Sidney 30/6/2017, 19:40

    ronaldo, Boa tarde!!

    vc usou a função "Call" para chamar a instrução após a atualização?

    att;

    Ney
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Localizar Registro Empty Re: [Resolvido]Localizar Registro

    Mensagem  ronaldojr1 3/7/2017, 14:08

    call é opcional, mas eu nao uso.
    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    Registrado : 08/10/2012

    [Resolvido]Localizar Registro Empty Re: [Resolvido]Localizar Registro

    Mensagem  Sidney 3/7/2017, 15:13

    Ronaldo, bom dia!!

    não consegui fazer à adaptação, estou disponibilizando o meu projeto para verificação, esta dando erro.


    obrigado!!

    Att;

    Sidney

    Anexos
    [Resolvido]Localizar Registro AttachmentTeste.zip
    Projeto
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 26 vez(es)
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Localizar Registro Empty Re: [Resolvido]Localizar Registro

    Mensagem  ronaldojr1 3/7/2017, 16:19

    boa tarde

    estava dando erro por dois motivos.
    1 - essa função de localizar o codigo obrigatoriamente tem q estar no formulario e nao em um modulo a parte.
    2 - nas linhas que vc indica o nome do formulario obrigatoriamente tem que estar a palavra reservada "Form_". no seu caso estava sem.
    Código:

    'antes
    Set rst = Frm_CadastrosUsuarios.RecordsetClone
    'depois
    Set rst = Form_Frm_CadastrosUsuarios.RecordsetClone

    segue código corrigido
    Código:

    Private Sub txtPesquisa_AfterUpdate()
    'adicionei esse if pra nao dar erro quando o campo ficar vazio.
    If Not IsNull(Me.txtPesquisa) Then
        FindReg (txtPesquisa)
    End If
    End Sub


    Public Sub FindReg(Nome As String)

    Dim rst As DAO.Recordset
            
        Set rst = Form_Frm_CadastrosUsuarios.RecordsetClone
        
        Nome = Nz("Login = '" & Nome & "'", "")
        
        Me.RecordsetClone.FindFirst (Nome)
        
        If Not Me.RecordsetClone.NoMatch Then
            Form_Frm_CadastrosUsuarios.Bookmark = Me.RecordsetClone.Bookmark
        Else
            MsgBox "Não Localizado", vbCritical
        End If
    End Sub

    ve se agora vai a bagaça. rsrs
    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    Registrado : 08/10/2012

    [Resolvido]Localizar Registro Empty Re: [Resolvido]Localizar Registro

    Mensagem  Sidney 3/7/2017, 18:05

    Ronaldo,

    Perfeito, valeu, grande abraço!!!

    Att; Sidney
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Localizar Registro Empty Re: [Resolvido]Localizar Registro

    Mensagem  ronaldojr1 3/7/2017, 18:16

    disponha, o forum agradece o retorno

    Conteúdo patrocinado


    [Resolvido]Localizar Registro Empty Re: [Resolvido]Localizar Registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 20:45