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

    Criar Histórico de Visitas - Subformulário

    janettepires
    janettepires
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 126
    Registrado : 14/03/2013

    Criar Histórico de Visitas - Subformulário Empty Criar Histórico de Visitas - Subformulário

    Mensagem  janettepires 30/8/2013, 15:09

    Bom dia!

    Tenho um subformulário FRM_HISTORICO não acoplado, que está dentro do FRM_CLIENTES. Eu gostaria de manter um historico com a data, usuario e descrição do contato. Minha chave é número do PARCEIRO na FRM_CLIENTES e PARCEIRO_HIST na FRM_HISTORICO.
    O problema é que ao selecionar o Parceiro no FRM_CLIENTES, o código não filtra as informações no FRM_HISTORICO, ou seja, aparecem todas as informações da tabela.
    Se alguém puder me ajudar...agradeço

    Segue código:

    Set DB = CurrentDb ' seta o banco de dados atual
    Set rs = DB.OpenRecordset("tbl_Historico_GestCli", dbOpenDynaset, dbSeeChanges) 'acesso a tabela ou consulta


    Sql_GrupoC = "select * from tbl_Historico_GestCli WHERE parceiro_HIST = " & Forms!frm_clientes!txt_Parceiro & " "

    Set rs = DB.OpenRecordset(Sql_GrupoC, dbOpenDynaset, dbSeeChanges)

    Do While Not rs.EOF

    rs.Edit

    Forms!frm_clientes!frm_Historico!txt_Parceiro_Hist = rs!Parceiro_Hist
    Forms!frm_clientes!frm_Historico!txt_ID = rs!ID_GestCli
    Forms!frm_clientes!frm_Historico!txt_Data = rs!Data
    Forms!frm_clientes!frm_Historico!txt_Usuario = rs!Usuario
    Forms!frm_clientes!frm_Historico!txt_Descricao = rs!Descricao

    rs.Update
    rs.MoveNext

    Loop

    rs.Close

    Obrigada!

    Janette:) 
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    Criar Histórico de Visitas - Subformulário Empty Re: Criar Histórico de Visitas - Subformulário

    Mensagem  JPaulo 30/8/2013, 15:23

    Set db = CurrentDb ' seta o banco de dados atual
    Set RS = db.OpenRecordset("tbl_Historico_GestCli", dbOpenDynaset, dbSeeChanges) 'acesso a tabela ou consulta


    Sql_GrupoC = "select * from tbl_Historico_GestCli WHERE parceiro_HIST = '" & Forms!frm_clientes!txt_Parceiro & "'" 'texto em aspas simples

    Set RS = db.OpenRecordset(Sql_GrupoC, dbOpenDynaset, dbSeeChanges)

    Do While Not RS.EOF

    RS.Edit

    Forms!frm_clientes!frm_Historico.Form!txt_Parceiro_Hist = RS!Parceiro_Hist
    Forms!frm_clientes!frm_Historico.Form!txt_ID = RS!ID_GestCli
    Forms!frm_clientes!frm_Historico.Form!txt_Data = RS!data
    Forms!frm_clientes!frm_Historico.Form!txt_Usuario = RS!Usuario
    Forms!frm_clientes!frm_Historico.Form!txt_Descricao = RS!Descricao

    RS.Update
    RS.MoveNext

    Loop

    Forms!frm_clientes!frm_Historico.Form.Requery

    RS.Close


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Criar Histórico de Visitas - Subformulário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Criar Histórico de Visitas - Subformulário Folder_announce_new 102 Códigos VBA Gratuitos...
    Criar Histórico de Visitas - Subformulário Folder_announce_new Instruções SQL como utilizar...
    janettepires
    janettepires
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 126
    Registrado : 14/03/2013

    Criar Histórico de Visitas - Subformulário Empty Re: Criar Histórico de Visitas - Subformulário

    Mensagem  janettepires 30/8/2013, 16:29

    Olá JPaulo,


    Ainda não funcionou o filtro, aparecem todos os registros...
    O meu FRM_HISTORICO está dentro de um controle de guia Guia_Cli, seria por isso?


    Obrigada
    Janette
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    Criar Histórico de Visitas - Subformulário Empty Re: Criar Histórico de Visitas - Subformulário

    Mensagem  JPaulo 30/8/2013, 16:46

    A informação que lhe passei está correta, mesmo que o subformulario esteja dentro do controle guia.

    Uma questão;

    Esse subformulario é desvinculado ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Criar Histórico de Visitas - Subformulário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Criar Histórico de Visitas - Subformulário Folder_announce_new 102 Códigos VBA Gratuitos...
    Criar Histórico de Visitas - Subformulário Folder_announce_new Instruções SQL como utilizar...
    janettepires
    janettepires
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 126
    Registrado : 14/03/2013

    Criar Histórico de Visitas - Subformulário Empty Re: Criar Histórico de Visitas - Subformulário

    Mensagem  janettepires 30/8/2013, 18:43

    Sim, o subformulário é desvinculado, já tentei vincular os campos Mestre e Filho, mas aparece a msg: "Não foi possível criar um vínculo entre formulários não associados"
    Nunca havia visto esta mensagem, estou no Access 2010, vc sabe como faço para associar?


    Grata
    Janette

    Conteúdo patrocinado


    Criar Histórico de Visitas - Subformulário Empty Re: Criar Histórico de Visitas - Subformulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 17:59