Cara, eu dei uma olhada na tua planilha. Veja que no formulário "Contas a Pagar", parece-me que está faltando um campo de texto para "Data do Pagamento".
Executei o código linha a linha (F8), até chegar ao erro que vc mencionou, nas seguintes linhas:
Me.txtDataDoPagto.Value = .Cells(indiceRegistro, colDataDoPagto).Value
Me.txtDataDoPagto = Format(txtDataDoPagto, "dd/mm/yyyy")
porém, esse txtDataDoPagto não existe no formulário "Contas a Pagar", por isso está dando o erro.
Nota, esse mesmo txtDataDoPagto existe no outro formulário: Pesquisa Contas a Pagar".
Verifique essa parte, creio que vc precisa incluir outra caixa de texto ali, para fazer a referência. Depois, indique o nome nas linhas do código.
Veja no anexo.
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 04/01/2014 4:41 pm