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]Localizar registro - FindFirst

    Compartilhe
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Localizar registro - FindFirst

    Mensagem  =>Nois em Seg 05 Maio 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 Ter 06 Maio 2014, 13:36, editado 3 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

    socgyn
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Localizar registro - FindFirst

    Mensagem  socgyn em Seg 05 Maio 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.
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Localizar registro - FindFirst

    Mensagem  =>Nois em Ter 06 Maio 2014, 13:33

    Blz amigo!

    este codigo atende ao meu projeto.

    Obrigado!


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

    socgyn
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Localizar registro - FindFirst

    Mensagem  socgyn em Ter 06 Maio 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.

      Data/hora atual: Sab 21 Out 2017, 09:36