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