MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Campo preenchido

    Compartilhe
    avatar
    famaso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 09/11/2017

    [Resolvido]Campo preenchido

    Mensagem  famaso em Sex 15 Dez 2017, 22:18

    Prezados Colegas,

    Fiz um banco de dados para controlar meu acervo de filmes. O colega Assis me ajudou com uma função que ao preencher o frm_Locacao e salvar, marcava um campo (sim/não) fil_emprestimo do frm_Filmes e ao contrário ao preencher o frm_Devolucao.
    Agora, preciso que ao preencher o frm_Locacao e clicar em salvar, faça-se uma comparação com o campo fil_emprestimo. Se o campo estiver preenchido (sim) retorna uma msgbox.
    Tentei fazer igual fiz para o campo código de barras do frm_Filmes (fiz consultando aqui no fórum alguns formulários exemplos de cnpj repetidos), mas não consegui.
    Preciso de ajudo com este probleminha.
    Segue uma amostra funcional do meu banco de dados.

    Abraços a todos.

    Fabrízio
    Anexos
    filmeteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (70 Kb) Baixado 5 vez(es)
    avatar
    webruxim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 08/12/2013

    Re: [Resolvido]Campo preenchido

    Mensagem  webruxim em Sab 16 Dez 2017, 08:12

    Olá famaso, também estou caminhando no vba mas acredito que nesse quesito consigo ajudar.

    veja se é oque pretente, aguardo retorno...
    Anexos
    filmeteste_Alt.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (95 Kb) Baixado 3 vez(es)
    avatar
    famaso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 09/11/2017

    Re: [Resolvido]Campo preenchido

    Mensagem  famaso em Sab 16 Dez 2017, 12:02

    Bom dia, webruxim!

    Testei o que você fez e funcionou da forma que eu queria. Fiz algumas adaptações para não salvar quando estiver emprestado. Adaptei, também, para a devolução. Tudo funcionando perfeitamente. Montei esse banco de dados para controlar meu acervo de filmes. Cansei de emprestar filmes para amigos e não devolverem, e pior que nem sei qual filme emprestado e para quem foi. Agora ficará mais fácil.

    Muito obrigado! Agradeço-lhe pela iniciativa em me ajudar.

    Fica com Deus!


    avatar
    famaso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 09/11/2017

    Re: [Resolvido]Campo preenchido

    Mensagem  famaso em Sab 16 Dez 2017, 12:03

    Reabrindo tópico, pois apareceu um probleminha.


    Última edição por famaso em Sab 16 Dez 2017, 20:11, editado 1 vez(es) (Razão : Reabrindo tópico, pois apareceu um probleminha.)
    avatar
    famaso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 09/11/2017

    Re: [Resolvido]Campo preenchido

    Mensagem  famaso em Sab 16 Dez 2017, 20:52

    Boa tarde, webruxim!

    A alteração que você fez, funcionou perfeitamente. Adaptei o código e coloquei no form devolução.
    Quando fui passar esses códigos para o banco de dados completo, os códigos funcionaram pela metade.
    Explicação: No formulário locação, onde você implementou as alterações, no campo loc_codigobarras quando clico direto nele para selecionar o código de barras do filme, funciona perfeitamente. Mas, para o caso de esquecer qual o código de barras relacionado ao nome do filme, criei um botão localizar que abre um novo formulário. Então pesquiso nome do filme, clico nele e ele joga o código de barras no campo loc_codigobarras. Dessa forma ele não funciona, fica só aparecendo que o filme não está disponível.
    Segue bd com esse problema.

    Fabrízio
    Anexos
    teste2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (163 Kb) Baixado 2 vez(es)


    Última edição por famaso em Seg 18 Dez 2017, 09:21, editado 1 vez(es)
    avatar
    webruxim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 08/12/2013

    Re: [Resolvido]Campo preenchido

    Mensagem  webruxim em Dom 17 Dez 2017, 05:22

    Bom dia famaso, veja se é oq pretende da forma que fiz.

    Tomei a liberdade de fazer algumas alterações nos botoes de navegação Primeiro,Anterior,Avançar e Ultimo somente para lhe mostrar uma outra forma de trabalhar com esses botoes que podem servir para outros projetos, de uma olhada nos codigos deles, caso não queira volte ao Anterior que estava copiando e colando do formulario Locação.

    Bom famoso, fiz de 2 formas:

    O botao salvar original : Ao clicar nele ele marca uma checkbox que esta oculta no formulario como false e depois salva tudo, assim desmarcando na tabela filmes que o filme esta emprestado.

    O botão salvar2: Ao clicar neste botão ele atualiza o campo fil_emprestimo como false direto na tabela filmes de acordo com o codigo de barras do filme que estiver no campo dev_codigobarras. Segue abaixo o codigo do botão salvar2.

    Código:
    CurrentDb.Execute "UPDATE Tab_Filmes SET fil_emprestimo = False WHERE fil_codigobarras = '" & Me.dev_codigobarras.Column(1) & "'"

    Ae com qualquer um desses 2 botoes salvar, vai fazer a mesma coisa, ae você escolhe com qual deles quer trabalhar.

    Se você nao quizer trabalhar com o botão2, so apagar o botao2 com o codigo e deixar como está. ok..


    Obs: No formulario Locação, so adicionar o codigo abaixo no botão salvar:
    Código:
    call loc_codigobarras_AfterUpdate
      'Codigo acima antes desse codigo abaixo

    DoCmd.RunCommand acCmdSaveRecord


    abraços...
    Obrigado pelo retorno...
    O forum agradece.
    Anexos
    teste2_Alt.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (259 Kb) Baixado 7 vez(es)
    avatar
    famaso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 09/11/2017

    Re: [Resolvido]Campo preenchido

    Mensagem  famaso em Dom 17 Dez 2017, 12:33

    Bom dia, webruxim!

    Agradeço pelo retorno. Mais tarde mexerei no meu bd.
    Meus conhecimentos de access eram mínimos, por isso planejei o desenvolvimento por etapas. Fui vendo vídeos do Gilberlânio e fiz o básico. Depois fui pesquisando e lendo sobre formulários, consultas e relatórios aqui no fórum maximo access. Aprendi muito com as soluções dadas pelo Vieira, Avelino e vários outros colegas que responderam às várias dúvidas lançadas no fórum. Aí fui desenvolvendo e cheguei ao ponto em que estou. O bd está robusto e funcional. Esta solução dos formulários locação e devolução é a antepenúltima etapa planejada. A penúltima etapa será fazer um design de botões e aparência mais profissionais, conforme sugerido por você. A última etapa será fazer design das ribbons. Continuarei pesquisando e lendo muito aqui para aprender cada vez mais.
    Mais tarde postarei se consegui implementar o que você fez e sugeriu.
    Agradeço pelo seu esforço. Muito obrigado!

    Abraços,

    Fabrízio
    avatar
    famaso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 09/11/2017

    Re: [Resolvido]Campo preenchido

    Mensagem  famaso em Dom 17 Dez 2017, 20:13

    Bom tarde, webruxim!

    Eu vi o que você fez e compreendi em parte. Vou estudar mais um pouco para compreender.
    Você citou dois botões Salvar, sendo que visualizei apenas um botão.

    Na verdade, como citei anteriormente, eu queria que a devolução fizesse duas coisas:
    1 - Se o filme estiver emprestado: fazer a devolução normalmente. Esta função foi implementada perfeitamente por você;
    2 - Se o filme não estiver emprestado: não deixar fazer a devolução e voltar uma msgbox avisando que o filme não foi emprestado para devolvê-lo. Este foi o problema que me levou a abrir esse tópico.

    Para o formulário Locação a mesma coisa:
    1 - Se o filme estiver emprestado: não deixar fazer uma nova locação e voltar uma msgbox avisando que o filme já está emprestado;
    2 - Se o filme não estiver emprestado: fazer a locação normalmente.

    Na primeira alteração que você fez, tentei implementar o item 2 da devolução e o 1 da locação, só que aparecia erro por causa da pesquisa por nome do filme. Agora nem consegui gerar o erro (kkkkk).

    Espero que você continue me ajudando.

    Desde já agradeço-lhe.

    Att.,

    Fabrízio
    avatar
    famaso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 09/11/2017

    Re: [Resolvido]Campo preenchido

    Mensagem  famaso em Seg 18 Dez 2017, 14:36

    Bom tarde, webruxim!

    Eu consegui estudar com calma o que você fez, agora entendi e compreendi tudo.

    Consegui implementar os itens que tinha pontuado na mensagem anterior. Agora está tudo funcionando perfeitamente do jeito que eu planejei.

    Iniciarei a próxima etapa do meu planejamento: design de botões e aparência mais profissionais. Vamos aos estudos!

    Muito obrigado pela disponibilidade em me ajudar.

    Abraços e fica com Deus,

    Fabrízio

      Data/hora atual: Ter 24 Abr 2018, 22:09