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]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Compartilhe

    famaso
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  famaso em Sex 10 Nov 2017, 18:54

    Prezados colegas,

    Criei um sistema para cadastrar e controlar meu acervo de filmes, pois cansei de emprestar, esquecer para quem foi e não ter o filme devolvido. É simples, mas funcionando perfeitamente.
    o problema é que quero implementar uma rotina e não consigo. Tentei de várias formas e sem sucesso.
    Quero preencher o campo loc_codigobarras do form_Locacao, após salvar os dados comparar esse campo com o campo fil_codigobarras (campo digitável) do form_Filmes. Se forem iguais marcar o campo Empréstimo (campo sim/não) do form_Filmes.

    Espero que consigam me ajudar.

    Att.,

    Fabrízio
    avatar
    rfnunes01
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 05/09/2016

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  rfnunes01 em Sex 17 Nov 2017, 01:40

    Ola boa noite tem como voce disponibilizar o bd para dar uma olhada para vc

    famaso
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  famaso em Sex 17 Nov 2017, 03:22

    Boa noite, rfnunes01!

    Segue banco de dados.

    Espero que me ajude. Já tentei os códigos para verificar duplicidade em cpf e cnpj, mas só resulta em erro.

    Att.,

    Fabrízio
    Anexos
    teste3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (126 Kb) Baixado 5 vez(es)
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 05/12/2016

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  caiosouza em Sex 17 Nov 2017, 12:01

    Bom dia,



    Teste no evento Ao Clicar do Botão SALVAR.

    Código:
    Private_Sub Bt_Salvar_Click()
    If Forms!form_Locacao!loc_codigobarras = Forms!form_Filmes!fil_codigobarras Then
    Forms!form_Filmes!Empréstimo = True
    End if
    End Sub


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3038
    Registrado : 06/11/2009

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  Assis em Sex 17 Nov 2017, 13:19

    Boa tarde
    Já vi o BD. Atenção que um campo é texto  numa tabela e na outra é número.


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3038
    Registrado : 06/11/2009

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  Assis em Sex 17 Nov 2017, 17:13

    Boa tarde

    Teste no formulário "frm_Locacao" , e no frm_devolucao faz o contrário.

    No botão "Salvar"

    Atenção alterei na tabela tab_Filmes o campo " fil_codigobarras " para texto.

    Aguardo
    Anexos
    teste Assis.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (244 Kb) Baixado 6 vez(es)


    .................................................................................
    *** Só sei que nada sei ***

    famaso
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  famaso em Sex 17 Nov 2017, 22:02

    Boa noite, Assis!

    Testei as alterações realizadas e não funcionou. Retornou a seguinte mensagem:"Parâmetros insuficientes. Eram esperados 1".

    Att.,

    Fabrízio
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3038
    Registrado : 06/11/2009

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  Assis em Sex 17 Nov 2017, 22:10

    Boa noite

    Testou o meu exemplo ou adaptou ao seu, aqui no meu funciona direito.

    Qual o seu Office ?

    Aguardo


    .................................................................................
    *** Só sei que nada sei ***

    famaso
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  famaso em Sex 17 Nov 2017, 22:14

    Boa noite, caiosouza!

    Testei seu código e não funcionou. Alterei o bd conforme sugerido pelo Assis, mudei o campo loc_codigobarras para texto. Eu já tinha tentado antes da forma que você sugeriu e não retorna o campo marcado como emprestado.

    Espero que vocês me ajudem a solucionar esse problema.

    Att.,

    Fabrízio

    famaso
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  famaso em Sex 17 Nov 2017, 22:22

    Assis,

    Testei o seu exemplo. Meu office é o 2016. Oh trem danado...

    Att.,

    Fabrízio
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3038
    Registrado : 06/11/2009

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  Assis em Sex 17 Nov 2017, 22:30

    Veja
    Anexos
    Untitled.mp4
    Você não tem permissão para fazer download dos arquivos anexados.
    (839 Kb) Baixado 5 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3038
    Registrado : 06/11/2009

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  Assis em Sex 17 Nov 2017, 22:40

    Famoso

    1ª Remover as relações nas tabelas para puder alterar o campo codiogo barras para texto

    Tem que alterar para texto o campo codigo barras na tabela filmes

    Volta a fazer as relações.

    Depois nos respetivos formulários coloca os cógigos abaixo.


    No Locação no botão salvar

    CurrentDb.Execute "UPDATE Tab_Filmes SET fil_emprestimo=" & True & " WHERE fil_codigobarras = '" & Me.loc_codigobarras.Column(1) & "'"


    No Devolução no botão salvar

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


    Aguardo


    .................................................................................
    *** Só sei que nada sei ***

    famaso
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  famaso em Sex 17 Nov 2017, 22:42

    Assis,

    Eu vi o vídeo e fiquei "babando aqui", pois é do jeitinho que eu queria.

    Segue print da tela com o erro.
    Anexos
    tela erro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (116 Kb) Baixado 3 vez(es)
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3038
    Registrado : 06/11/2009

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  Assis em Sex 17 Nov 2017, 22:46


    Viu o Video ?



    Mudou Este da imagem ?

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    *** Só sei que nada sei ***

    famaso
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  famaso em Sex 17 Nov 2017, 22:49

    Assis,

    Fiz da mesma forma que você orientou e retornou o mesmo erro da tela printada.

    Att.,

    Fabrízio
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3038
    Registrado : 06/11/2009

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  Assis em Sex 17 Nov 2017, 22:55

    Não posso fazer mais nada

    Só esperando alguém com o 2016 para ajudar.

    Já agora ...... 32 ou 64 ?

    Também tem interesse em dizer.

    Boa noite


    .................................................................................
    *** Só sei que nada sei ***

    famaso
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  famaso em Sex 17 Nov 2017, 23:02

    Assis,

    Muito obrigado pelo seu esforço e dedicação em me ajudar. Fiquei triste aqui com esses erros que apareceram. Estava esperançoso!

    Aqui é windows 7 Ultimate 32 bits com Office 2016.

    Boa noite e fica com Deus!

    Abraços,

    Fabrízio

    famaso
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  famaso em Ter 28 Nov 2017, 13:24

    Consegui resolver o erro que aparecia.

    Conforme o Assis orientou:

    No Locação no botão salvar

    CurrentDb.Execute "UPDATE Tab_Filmes SET fil_emprestimo=" & True & " WHERE fil_codigobarras = '" & Me.loc_codigobarras.Column(1) & "'"


    No Devolução no botão salvar

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

    No access 2016 basta trocar True e False pelo valor numérico de sim e não. Coloquei 1 para sim e 0 para não. Assim funcionou perfeitamente.

    famaso
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Preencher o campo de um form, comparar com campo de outro form e marcar automaticamente outro campo

    Mensagem  famaso em Ter 28 Nov 2017, 13:25

    Finalizando tópico!

      Data/hora atual: Seg 11 Dez 2017, 22:59