MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Interação Consulta/ Módulo/ Formulário Contínuo

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Interação Consulta/ Módulo/ Formulário Contínuo Empty Interação Consulta/ Módulo/ Formulário Contínuo

    Mensagem  criquio 10/6/2011, 13:05

    Hoje deixo um exemplo de como fazer uma consulta trabalhar sem dados cadastrados em tabelas. Imagina a situação: você possui um aplicativo que exibe imagens desvinculadas dos formulários. Essas imagens são exibidas por código, buscando-as direto na pasta do aplicativo. Você decidiu não armazenar o caminho delas em tabela para não aumentar o tamanho do aplicativo sem necessidade, porque são milhares de imagens. Mas acontece que muitos registros não contem uma imagem associada na pasta do aplicativo e chega um momento em que você quer ter uma lista desses registros órfãos de imagens. Se você tivesse o caminho da imagem gravado na tabela, seria fácil construir uma consulta que buscasse as imagens inexistentes, certo? Bem, aqui eu criei um módulo com uma função que faz isso sem a necessidade de ter o caminho gravado em tabela. O aplicativo contem apenas um módulo e uma consulta. Estude como isso foi feito.

    Ainda no campo da interação entre função e outros elementos do aplicativo, vamos usar uma função para inserir imagens em controle imagens de um formulário contínuo. Todos sabem que é meio complicado fazer isso pelas vias normais, uma vez que em formulários contínuos os controles se replicam nas linhas do mesmo e, portando, se definirmos uma imagem para o controle como faríamos em um formulário simples, essa imagem se repetirá em todas as linhas. Aqui vamos usar uma função que será referenciada na linha "Fonte do Controle", na guia "Dados", do controle imagem. Observe no formulário frmImagens essa referência no referido campo e observe, no módulo vba do formulário, a função.

    Segue anexo cópia do aplicativo em 2007 e 2002/2003. O recurso das imagens no suboformulário, no entando, só funciona no 2007, pois as versões anteriores não dispõem desse recurso de definir a imagem do controle na fonte do mesmo, nas suas propriedades.

    No 2007, basta criar uma função dentro do vba do formulário e, na fonte do controle, fazer referência à essa função. Observe isso em ação no formulário frmImagens, que é o formulário em modo contínuo que carrega a lista de imagens.

    Para quem possui apenas o 2002 ou 2003, tem uma imagem de nome Preview.jpg para ver como fica o efeito. Todo o resto funciona perfeitamente em ambas versões.

    RECURSOS DESSE EXEMPLO:

    → Interação entre consulta e módulo;
    → Interação entre formulário contínuo e função;
    → Carregamento de imagens em formulário contínuo;
    → Objeto "Caixa de diálogo" para buscar imagem no disco;
    → Função para verificar se a imagem já existe na pasta do aplicativo;
    → Função que faz uma cópia da imagem escolhida na pasta do aplicativo;
    → Função que pergunta se quer excluir a imagem original copiada para a pasta do aplicativo;
    → Função que deleta a imagem original caso a reposta para a pergunta anterior tenha sido Sim;
    → Tem ainda formas de consultar um registro pelo código ou palavras na lista do subformulário.

    Você que é programador iniciante, estude os módulos com atenção. Os mesmos não estão documentados, mas basta você traduzir os nomes em inglês para entender o que cada coisa faz.

    Link: https://www.dropbox.com/s/3v61c9qoazlll1m/SubformsComImagens.zip


    Última edição por criquio em 2/5/2017, 17:55, editado 1 vez(es) (Motivo da edição : Mudança no link de download)


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    pcnet
    pcnet
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 302
    Registrado : 16/12/2015

    Interação Consulta/ Módulo/ Formulário Contínuo Empty Re: Interação Consulta/ Módulo/ Formulário Contínuo

    Mensagem  pcnet 2/5/2017, 13:59

    Boa tarde mestre Criquio,

    Ainda tem possibilidades de partilhar este seu exemplo?

    Desde já agradeço a sua atenção.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Interação Consulta/ Módulo/ Formulário Contínuo Empty Re: Interação Consulta/ Módulo/ Formulário Contínuo

    Mensagem  criquio 2/5/2017, 17:56

    Link atualizado com sucesso Razz


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    pcnet
    pcnet
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 302
    Registrado : 16/12/2015

    Interação Consulta/ Módulo/ Formulário Contínuo Empty Re: Interação Consulta/ Módulo/ Formulário Contínuo

    Mensagem  pcnet 2/5/2017, 20:18

    Boa tarde mestre Criquio,

    Mais uma vez agradeço a sua boa vontade em partilhar connosco este precioso exemplo, fruto do seu trabalho (,")

    Sucesso e um abraço

    Conteúdo patrocinado


    Interação Consulta/ Módulo/ Formulário Contínuo Empty Re: Interação Consulta/ Módulo/ Formulário Contínuo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:08