MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Referenciar controle guia em caixa de listagem !

    Compartilhe

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    [Resolvido]Referenciar controle guia em caixa de listagem !

    Mensagem  Silvio em Ter 02 Set 2014, 18:28

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2287
    Registrado : 21/04/2011

    Re: [Resolvido]Referenciar controle guia em caixa de listagem !

    Mensagem  Marcelo David em Ter 02 Set 2014, 18:40

    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?





    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: [Resolvido]Referenciar controle guia em caixa de listagem !

    Mensagem  Silvio em Ter 02 Set 2014, 18:56

    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.



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2287
    Registrado : 21/04/2011

    Re: [Resolvido]Referenciar controle guia em caixa de listagem !

    Mensagem  Marcelo David em Ter 02 Set 2014, 19:08

    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...


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: [Resolvido]Referenciar controle guia em caixa de listagem !

    Mensagem  Silvio em Ter 02 Set 2014, 19:23

    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.
    Anexos
    marcelo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (150 Kb) Baixado 12 vez(es)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2287
    Registrado : 21/04/2011

    Re: [Resolvido]Referenciar controle guia em caixa de listagem !

    Mensagem  Marcelo David em Ter 02 Set 2014, 20:13

    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.
    Anexos
    marcelo_New1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (290 Kb) Baixado 17 vez(es)


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: [Resolvido]Referenciar controle guia em caixa de listagem !

    Mensagem  Silvio em Ter 02 Set 2014, 20:18

    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 ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2287
    Registrado : 21/04/2011

    Re: [Resolvido]Referenciar controle guia em caixa de listagem !

    Mensagem  Marcelo David em Ter 02 Set 2014, 20:23

    Ô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.


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

    Re: [Resolvido]Referenciar controle guia em caixa de listagem !

    Mensagem  Silvio em Ter 02 Set 2014, 20:52

    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...."


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2287
    Registrado : 21/04/2011

    Re: [Resolvido]Referenciar controle guia em caixa de listagem !

    Mensagem  Marcelo David em Ter 02 Set 2014, 21:12

    Grato meu amigo!


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

      Data/hora atual: Dom 04 Dez 2016, 06:07