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


    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla

    avatar
    JVitor
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 09/07/2019

    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla Empty [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla

    Mensagem  JVitor 29/4/2021, 07:18

    Bom dia Pessoal,

    Primeiramente agradecer o forum, pois é simplismente fantastico!

    Minha questão é a seguinte, tenho um formulário com uma data de lançamento e um subformulário com uma Caixa de Listagem com marcação multiplas, que é uma relação de equipamentos.

    Tenho que alimentar uma tabela de determinados equipamentos que operaram naquele dia. O que pensei, definir a data (que é uma chave primária) e no SubFormulario definir quais equipamentos da listagem (que são mais de 100 equipamentos) trabalharam naquele dia, e através de um botão, atualizar/alimentar a tabela.

    A caixa de listagem foi uma opção que penso ser melhor, pois de uma forma rapida consigo definir quais foram os equipamentos que trabalharam e alimentar minha tabela diariamente com o que trabalhou ou não naquele dia.

    Espero que tenha conseguido esplicar, ainda estou aprendendo à utilizar a ferramenta.

    Forte abraço a todos. Smile
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla Empty Re: [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla

    Mensagem  Silvio 29/4/2021, 07:40

    Bom dia...

    você escreveu:O que pensei, definir a data (que é uma chave primária)

    Isso é errado !  chave primária é como um CPF único e exclusivo.   Pense um ano depois, haverá datas semelhantes e poderá causar algum conflito entre datas e equipamentos.
    Por isso, adote a numeração automática, por ser única !!!

    A caixa de listagem foi uma opção que penso ser melhor,

    Necessariamente não !!!   A opção melhor no teu caso e ao meu ver, seria um sub formulário continuo com combobox em cada linha para escolher o equipamento.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    JVitor
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 09/07/2019

    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla Empty Buscar Informações de Cadastro Atravez de uma Caixa de Combinação

    Mensagem  JVitor 30/4/2021, 07:27

    Bom dia Silvio,

    Obrigado pelo retorno,

    Entendi sua analise, concordo com a chave primaria, porem a ideia de utilizar um combobox como opção fica complicado, pois tenho 130 equipamentos, que variam a utilização desles diáriamente.
    Ou seja, todos os dias dentre os 130 o giro de utilização em méia é de 70 à 90 equipamentos.

    Então o que pensei, se eu utilizar uma caixa de listagem multiplas, onde vou selecionando com a barra espaço quais equipamentos foram utilizados naquela dia, vou fazer uma especie de seleção em cascata onde consigo definir diáriamente muito rápido quais equipamentos foram utilizados.

    Clico em um botão de confirmação, dai as frotas que foram selecionada alimentam a tabela com a data do dia.

    Assim essa rotina é feito dáriamente.

    Exemplo;
    CO121 - 30/04/2021
    CO124 - 30/04/2021
    CO129 - 30/04/2021
    CO130 - 30/04/2021
    CO131 - 30/04/2021
    CO135 - 30/04/2021
    CO138 - 30/04/2021
    CO142 - 30/04/2021
    CO146 - 30/04/2021
    CO155 - 30/04/2021
    ...

    A intensão é criar um modo rápido de lançamento/imput de imformação devido ao grande volume de informação diária.

    Att.,

    JVitor

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1396
    Registrado : 13/12/2016

    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla Empty Re: [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla

    Mensagem  Alexandre Fim 30/4/2021, 09:55

    Só passando pra deixar uma sugestão.

    Olá Juliano,

    O que poderia ser feito é 2 listbox onde vc seleciona e transfere para outra listbox, conforme abaixo:

    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla Uso_eq10

    Vou criar um pequeno exemplo e depois eu posto aqui.

    []'s

    FIM


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    JVitor
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 09/07/2019

    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla Empty Buscar Informações de Cadastro Atravez de uma Caixa de Combinação

    Mensagem  JVitor 3/5/2021, 09:31

    Bom dia, Alexandre,

    Simplesmente Perfeito. cheers

    Só que ainda estou aprendendo a utilizar o Access, se puder me passar como fazer esta transferencia de informação de uma listbox parfa outra e alimentar a tabela ficaria imensamente grato.

    Obrigado,

    Att.,

    JVitor
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1396
    Registrado : 13/12/2016

    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla Empty Re: [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla

    Mensagem  Alexandre Fim 3/5/2021, 12:49

    Olá Juliano,

    Estou finalizando este pequeno exemplo e, assim que estiver pronto, eu disponibilizo aqui.

    []'s

    FIM


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1396
    Registrado : 13/12/2016

    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla Empty Re: [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla

    Mensagem  Alexandre Fim 3/5/2021, 17:57

    Juliano boa noite,

    Segue pequeno exemplo de seleção de equipamentos.

    Ao abrir o formulário, informe a data desejada e em seguida os equipamentos (disponíveis e em uso) serão exibidos:
    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla Equip110

    Após clicar no botão Adicionar ( > ), o sistema envia os equipamentos para outra listbox

    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla Equip210


    Para confirmar a utilização do equipamento, clique em Gravar:

    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla Equip310


    Obs.: Utilize a combinação de teclas SHIFT, ou CTRL para selecionar mais de 1 equipamento.

    Nota: Verifique o código-fonte e seus comentários para que vc entenda o que cada rotina executa.


    Este exemplo precisa ser melhorado ainda e é apenas uma ideia pra vc dar continuidade ao sistema.

    Espero ter ajudado.

    []'s

    FIM
    Anexos
    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla AttachmentEquipamentos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (42 Kb) Baixado 9 vez(es)


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

    JVitor gosta desta mensagem

    avatar
    JVitor
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 09/07/2019

    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla Empty [Resolvido] Buscar Informações de Cadastro Atravez de uma Caixa de Combinação

    Mensagem  JVitor 4/5/2021, 08:40

    Bom dia Alexandre,

    Ficou simplesmente FANTASTICO!!!!c cheers

    Obrigado pelo empenho em ajudar um desconhecido, o tempo que vc desprendeu para desenvolver algo tão complexo (no meu ponto de vista) são pra poucas pessoas.

    Que Deus lhe de em dobro!!!

    Obrigado  Smile

    JVitor gosta desta mensagem

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1396
    Registrado : 13/12/2016

    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla Empty Re: [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla

    Mensagem  Alexandre Fim 4/5/2021, 08:50

    Valeu Juliano cheers cheers
    O fórum agradece !!!

    Este exemplo pode parecer complexo para quem está começando com Access/VBA, mas à medida que for interagindo mais com o Access, vai perceber que o que eu fiz não é tão complicado quanto parece.
    Talvez eu deveria ter feito um exemplo mais simples pra vc, mas foi a ideia inicial que eu tive e acabei fazendo assim...rsss

    Procure estudar e entender mais o Access, nas funcionalidades seus objetos (tabelas, consultas, macros, formulários e módulos).
    O VBA (Visual Basic for Application) é a linguagem por trás de tudo. Procure estudá-la (principalmente) e entender sua funcionalidade.

    Sempre que precisar, o fórum tem excelentes colaboradores dispostos em ajudar.

    Boa sorte

    []'s

    FIM


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

    JVitor gosta desta mensagem


    Conteúdo patrocinado

    [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla Empty Re: [Resolvido]Lançamentos Utilizando Caixa de Listagem Multipla

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/5/2021, 09:02