[Resolvido]Referenciar controle guia em caixa de listagem !

Prezados boa tarde a todos.

Por questões estéticas e praticas, tive que reformular todo um sistema que eu mesmo desenvolvi a uns 3 anos atrás.
Porém deixei apenas uma coisa para trás.
Vamos lá....

a- tenho um formulário com 1 guia (CtlGuia0) e dentro dessa guia 4 abas
b- cada aba se refere a um animal.
c- um botão chama um formulário em que busca certas informações.
d- esse formulário tem uma caixa de listagem que me traz oque é necessário.

O complicado é que ao clicar nessa listbox, não consigo levar as informações da mesma para o formulário,

Eis o código ora utilizado por mim:

Código:

Private Sub lstmed_Click()
Dim intrecord As Integer
intrecord = Me!lstmed.Column(0)
Forms![frmdrogas]![CAO].SetFocus
DoCmd.GoToControl "iddroga"
DoCmd.FindRecord intrecord
DoCmd.Close acForm, "frmbucamed"
End Sub

O erro é 451, property let

Agradeço a ajuda

Silvio

Silvio, a listagem são os registros do formulário?

Forms![frmdrogas]![CAO].SetFocus, este é um outro formulário e não o atual?

Onde está tentando filtrar?

Boas Marcelo.....

Um formulário com uma guia e dentro da guia 4 abas, cada qual com o seu formulário e em cada formulário um botão de busca que abre um formulário desacoplado que contém uma listbox.

Essa listbox, contém os mesmo dados que temos nos formulários que se encontram nas abas.

Os subformulários são simples e não contínuos ou folha de dados?
O filtro é independente para cada subformulário nas abas?
Seria mais fácil postar aqui parte de aplicativo... Assim, para mim está meio confuso...

Certo Marcelo, estou anexando ele aqui.

Ele vai abrir no formulário correto, após isso clica no botão de busca.....e escolha qualquer coisa....vai dar o erro.

Olá, silvio,
o código ficou assim:

   

Código:

Dim intrecord As Integer
   intrecord = Me!lstmed.Column(0)

   Forms!frmDrogas!CAO.Form.Filter = "iddroga=" & intrecord
   Forms!frmDrogas!CAO.Form.FilterOn = True
   
   DoCmd.Close


Fiz apenas para o formulário de CAO, para os demais, basta seguir
o exemplo.

Obs.: Esse código você havia posto no evento clique da ListBox, mas o aconselhado
é no evento após atualizar da lsitbox (eu pôs no evento após atualizar)

Porque isso? Porque mesmo que a listbox não tenha nenhum registro e for clicado,
ele irá executar o código e um erro será apresentado, ou mesmo que tenha registros
e antes de selecionar algum, clicar numa parte em branco da listbox, o mesmo erro
ocorrerá.

Veja o exemplo em anexo.

Perfeito.

Mas ainda estou a optar pelo click mesmo, se der erro, pode ser feito um tratamento de erro.

vou abaixar ele e analisar com carinho.

Marcelo se possível for, podes me passar teu mail por MP ? tenho uma duvida aqui sobre reports e eu sei que isso vai demandar tempo, surgiu esse problema quando o sistema já estava em modo de produção na empresa....pode ser ?

Ôh meu amigo, mesmo demandando tempo é sempre bom postar em tópico,
assim outros que por acaso tenham a mesma dúvida, serão beneficiados e terá
não apenas a minha ajuda mas de outros também.

Quero ressaltar que não é má vontade de minha parte e estou disposto a ajudar
dentro de minhas limitações.

Esta correto e certo.......

Vou postar um tópico em relatórios...mas a demanda será grande e árdua....

Se não há ninguém que se oponha a resolução do problema e nem vai contra a solução...digo eu:

"....Tópico resolvido...."

Grato meu amigo!