Ajuda com .ListItems.Count

[Eugenio Diaz Lopez]

Bom dia a todos. Sou analista de sistemas aposentado. Trabalhei no Serpro com Cobol, Natural e Adabas, ou seja , VBA não é minha praia. Estou tentando fazer um sisteminha e Aceess para controlar os medicamentos da instituição beneficente que faço parte. Recebemos muitas doações de remédios e hj, esse controle é feito na "mão", atualizando uma planilha Excel. Tenho vontade de ajudar mas empaquei no seguinte problema: O método .ListItems.Count ele não reconhece. Já inclui o controle MSCOMCTL.OCX como referência na SyswOW64, mas continua dizendo que é um método não reconhecido. Gostaria da ajuda de voces. Obrigado.

 

Trecho do problema:

 

With Lista26
        For I = 1 To .ListItems.Count
            If .ListItems.Item(I).select = True Then
                txt.Nomecomercialalterar.Text = .ListItems.Item(I)
            End If
        Next I
    End With

[Alyson Ronnan Martins]

Boa tarde @Eugenio Diaz Lopez

Tenta definir o objeto pai do "Lista26".

Ex: Userform!Lista26 ou Userform.Lista26

A ideia desse teste é encontrar o objeto.

O segundo metodo se digitar deve ter um autocomplete de texto mostrando que o formulario tem esse objeto dentro.

 

Não sei se fui claro porêm espero ter ajudado um pouco.

 

[Eugenio Diaz Lopez]

Bom dia Alyson. Tentei as duas soluções mas continua dando esse erro. Mesmo assim obrigado pela atenção.

 

Eugenio