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

    Localizar em subformulario desacoplado

    avatar
    egnaldo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 11/03/2012

    Localizar em subformulario desacoplado Empty Localizar em subformulario desacoplado

    Mensagem  egnaldo 23/10/2021, 12:40

    Bom dia
    Tenho um subformulario Folha de dados desacoplado que insiro dados nele através de um Recordset e
    tambem uma caixa de combinação no formulário principal que insiro (RowSource) uma coluna da tabela que esta no Sub
    não estou conseguindo fazer com que a caixa de combinação localize o registro no sub
    ja tentei varias formas, talvez esteja indo pelo caminho errado

    With Me.RecordsetClone
           .FindFirst "ReferenciaDoFornecedor=" & Me.Combinação167.Column(0)
           If Not .NoMatch Then
               Me.Bookmark = .Bookmark
           End If
       End With

    ou :

    'Dim rst As Recordset
    Dim rst As Object
    If Not IsNull(Combinação167) Then
    Set rst = Forms![Frm_ComprasPesq]![Frm_ComprasPesqSub].Form.RecordsetClone
    'rst.FindFirst "CodigoDoProduto = " & Me.Combinação167.Column(0) & ""
    rst.FindFirst "ReferenciaDoFornecedor = '" & Me.Combinação167.Column(0) & "'"  'assim para descrição texto ***************
    If Not rst.NoMatch Then
    Forms!Frm_ComprasPesq!Frm_ComprasPesqSub.Form.Bookmark = rst.Bookmark
    Forms!Frm_ComprasPesq!Frm_ComprasPesqSub.SetFocus
    Forms!Frm_ComprasPesq!Frm_ComprasPesqSub!Referencia.SetFocus
    Else
    Exit Sub
    End If
    End If
    rst.Close
    Set rst = Nothing

    por ser um sub desacoplado não aceita um Recordset ,   acredito que é isso ,  
    aguardo uma dica, desde ja Obrigado .
    avatar
    egnaldo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 11/03/2012

    Localizar em subformulario desacoplado Empty Re: Localizar em subformulario desacoplado

    Mensagem  egnaldo 25/10/2021, 20:31

    Boa tarde
    Não vendo a possibilidade desta busca funcionar, estou pensado em usar uma tabela temporária ...

      Data/hora atual: 29/11/2021, 23:36