MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Localizar registro - FindFirst

    Compartilhe

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    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 reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    socgyn
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    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.

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    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 reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    socgyn
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    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: Qui 08 Dez 2016, 14:04