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 - FindFirst

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 979
    Registrado : 09/11/2012

    [Resolvido]Localizar registro - FindFirst Empty [Resolvido]Localizar registro - FindFirst

    Mensagem  =>Nois 5/5/2014, 21:37

    olá!!!

    tenho 2 formulários um consta todos os registros e o outro mostra  uma lista de registros específicos que tem algum tipo de pendencia

    a ideia é o seguinte  utilizando o codigo abaixo quero que ao clica na pendencia existente ele busque o código especifico que quero



    Dim Rs As Object
       Set Rs = Me.Recordset.Clone
       Rs.FindFirst "[CODIGO] = " & Str(Me![Texto67])
       Me.Bookmark = Rs.Bookmark



    então fazendo a referencia para transpor ou filtrar os dados de um form para o outro tentei assim:


    Dim Rs As Object
    Dim Bo As String
    Bo = Forms!frm_bo_receb!Numero_BO

       Set Rs = Forms!frm_bo_receb.Recordset.Clone
       Rs.FindFirst Bo = " & Str(Me![Texto5])"
    Me.Bookmark = Rs.Bookmark


    só que no entanto ainda esta dando erro na parte do bookmark, alguma sugestão?


    Última edição por noisnafita em 6/5/2014, 13:36, editado 3 vez(es)


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    socgyn
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 118
    Registrado : 01/05/2013

    [Resolvido]Localizar registro - FindFirst Empty Localizar registro - FindFirst

    Mensagem  socgyn 5/5/2014, 22:50

    Boa noite,

    Se entendi direito , você quer abrir o arquivo pendente ao clicar nele correto? Tenho algo semelhante em uma consulta, talvez o código sirva pra você adequar.

    coloque esse código ao clicar do campo que contenha o id, ou cod de referência e qual formulário abrir;

    Private Sub CódDesp_Click()
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Despesa Veicular"
    stLinkCriteria = "[CódDesp]=" & Me.CódDesp
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Exit Sub
    End Sub

    o CódDesp é o meu campo na consulta de abastecimento, ao clicar nele, ele abre o formulário de despesa no registro ao qual cliquei.
    Talvez ajude.
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 979
    Registrado : 09/11/2012

    [Resolvido]Localizar registro - FindFirst Empty [Resolvido]Localizar registro - FindFirst

    Mensagem  =>Nois 6/5/2014, 13:33

    Blz amigo!

    este codigo atende ao meu projeto.

    Obrigado!


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    socgyn
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 118
    Registrado : 01/05/2013

    [Resolvido]Localizar registro - FindFirst Empty [Resolvido]Localizar registro - FindFirst

    Mensagem  socgyn 6/5/2014, 14:06

    Que bom que serviu, muita coisa do que estou fazendo em meus dbs, é com o auxílio desse fórum.
    Até a próxima.

    Conteúdo patrocinado


    [Resolvido]Localizar registro - FindFirst Empty Re: [Resolvido]Localizar registro - FindFirst

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:17