[Resolvido]Erro 3265 item nao encontrado na coleção

salvee amigos tudo bem?


estou com outro impasse aqui em gerar uns contratos automáticos...

peguei um exemplo otimo feito por algumas pessoas do forum, que não deram continuidade.

estou tentando adaptar ao meu app, porem não estou conseguindo entender a logica pra trazer os resultados ao gerador de contrato...

se alguém poder dar um luz..


abraços

Veja se é isso...

Código:

Private Sub Form_Load()
Contrato.TextFormat = acTextFormatHTMLRichText

'criado por Alexandre Neves Em 2011-05-15 para Domingos do fórum MaximoAccess
'Adaptado por Ruggeri Barbosa em  27/05/2016
'Editado por FabioPaes em 27/05/2016


Dim I As Integer
Dim F As String
Dim campo As String



strquery = "cme"
F = ""


For I = 1 To CurrentDb.QueryDefs(strquery).Fields.Count

F = F & ";" & CurrentDb.QueryDefs(strquery).Fields(I - 1).Name
If CurrentDb.QueryDefs(strquery).Fields(I - 1).Name <> "Contrato" Then

F = F & " " & DLookup(CurrentDb.QueryDefs(strquery).Fields(I - 1).Name, "Cme", "CODPASTA = " & Me.PROTOCOLO)
End If



Next
ListaINterna = Right(F, Len(F) - 1)  'Remove a ,Anes do Primeiro Campo
Me.Lista40.RowSource = (ListaINterna)



End Sub

Olá;

Substitua CurrentDb.TableDefs(strTabela) por CurrentDb.QueryDefs(strTabela)

Porque o nome "cme" é uma consulta, não uma tabela.

Esta foi em simultâneo Silvio.

caramba em!!! rapidos kkkk

tenho algumas duvidas rs...


Deu certo aqui o que vc mandaram, porem queria saber se é possivel editar a lista de valores do listbox na parte de origem de linha. Porque esta desconfigurado

tentei por la direto umas ;; pra ficar um debaixo a outra
só que nao esta subindo corretamente sempre desconfigurado

alguma sugestão?

tentei fazer desta forma, mas nao tive exito.

Código:

Private Sub Form_Load()
Me.Lista40.RowSourceType = "Value List"
    Me.Lista40.RowSource = ""

    Me.Lista40.AddItem

deu certo aqui, porem nao esta trazendo os resultado no relatorio:

ja verifiquei os dlookup e nome de mascaras esta tudo certo, porem nao vem os resultados


uma luz?

segue bd atualizado

JPaulo, " tamu" juntos....srsrs

Maguim...nova duvida....novo tópico.

Não se mistura as coisa.

Abraços.

E não se esqueça de colocar o tópico como resolvido.

@silvio

vlw.... abrindo outro


abraços

Resolvido