[Resolvido]Erro em tempo de execução 13 Tipos imcompatíveis

Bom dia
Tenho uma combox no formulário que puxa os campos de minha tabela através de uma consulta. Os campos são id_ata e NUNATA e no evento após atualizar o Código:

Private Sub bcel_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[id_ata] = " & Str(Me![bcel]) ' Erro nessa linha obs: bcel é minha combox
Me.Bookmark = rs.Bookmark
Me.lstSubitens.Requery
End Sub

Esta dando "Erro em tempo de execução ' 13' tipos incompatíveis"
Alguem poderia me ajudar?

Olá Flávio,

Também ajustei esse erro que estava gerando.
Vou mandar na próxima versão, mas segue a alteração:

Código:



Private Sub bcel_AfterUpdate()
Dim rs As Object
   
    'Set rs = Me.Recordset.Clone
    'rs.FindFirst "[IdAta] = " & Str(Me![bcel].Column(0))
    'Me.Bookmark = rs.Bookmark
   
    Me.Filter = "id_ata = " & bcel.Column(0) & ""
    Me.FilterOn = True
    Me.Requery
   
    Call CarregaListaSubitens(Me.Id_Ata)
   
   
   
   
End Sub



É isso !

Att,
Alexandre Fim

Muito Obrigado você é 1000