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

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

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

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

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

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

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

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

Boa noite

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

Qual o seu Office ?

Aguardo

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

Assis,

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

Att.,

Fabrízio

Veja

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

Assis,

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

Segue print da tela com o erro.

Viu o Video ?



Mudou Este da imagem ?

Assis,

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

Att.,

Fabrízio

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

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

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.

Finalizando tópico!