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

    [Resolvido]Relacionamentos e Atualização

    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty [Resolvido]Relacionamentos e Atualização

    Mensagem  Veríssimo 12/12/2015, 17:02

    Mais uma vez recorro à ajuda de vocês em dificuldades que não consigo transpô-las após pesquisa exaustiva no fórum.
    Em anexo, deixo meu projeto para que me ajudem a resolver três questões simples, mas que sozinho ainda não consegui resolvê-las.
    Criei um formulário com os dados pessoais das pessoas (frmDadosPessoais).
    Em seguida mais dois formulários (frmPeculiardades e frmEventos) onde terei que inserir em um as peculiaridades (cicatriz, deformidades, etc) e no outro os eventos em que esteja envolvido (BO, Processo, IP, etc)
    Esses dois formulários foram inseridos como uma espécie de subformulário no formulário dos dados pessoais.
    Dificuldades
    1 - Relacionamento – Acho que não consegui relacionar as tabelas direito, pois os dados inseridos nos dois formulários não permanecem referenciados em seus respectivos registros, ou seja, ao incluir registros nestes formulários, eles aparecerem para todos os registros do formulário dados pessoais e não somente para o registro dele mesmo.
    2 – Ao salvar os registros nos formulários frmPeculiaridades e frmEventos, ambos como Pop-up, não é atualizado automaticamente nas suas caixas de listagem do frmDadosPessoais. Para atualizar ou eu aperto f5 ou fecho e abro em seguida. Gostaria que fosse atualizado assim que salvasse.
    3 – Gostaria que ao apertar o botão Cancelar, as alterações fossem desfeitas tanto nos dados do formulário Dados Pessoais, quanto nos outros dois. Eu inseri um comando Undo, mas ele funciona individualmente.
    4 - No relatório gerado com o formulário frmDados, não consegui incluir os campos dos fromulários frmPeculiaridades e frmEventos.


    Última edição por Veríssimo em 13/12/2015, 16:37, editado 2 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Noobezinho 13/12/2015, 00:10

    Olá Veríssimo.

    Vamos  do início, para que entenda.

    Primeiro terá que criar as tabelas.
    Nelas é que ficarão gravadas as informações ou dados.
    Precisão então, definir como serão esses dados:
    Começamos com a tabela tblDados.
    Nela temos as informações unica de cada individuo.
    Agora a tabela tblPeculiaridades.
    Veja que nessa tabela tem as características do individuo,
    Portanto, não há necessidade de outra tabela, já que serão dados único
    para cada individuo e são apenas 3 dados que poderão
    ficar juntos na primeira tabela.
    A terceira tabela, tblEventos, são os delitos de cada indivíduo.
    Como cada indivíduo pode cometer mais de um delito,
    teremos uma relação da tblDados com essa Tabela (tblEventos]
    de 1 registro na primeira tabela,para muitos da segunda.
    E essa duas tabelas estão relacionadas através do Cod_Individuo.
    Veja como ficou as tabelas e sua relação na imagem abaixo.
    Fico aguardando que faça uma análise do que mudei e se concorda,
    para prosseguirmos.

    [ ]'s


    obs.: os 3 últimos campos da tblDados são da tblPeculiaridades, que deletei

    relacionamentos - [Resolvido]Relacionamentos e Atualização Ifmqyr


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Veríssimo 13/12/2015, 00:45

    Noob, as Peculiaridades têm que estar em outra tabela, pois cada pessoa pode possuir muitas(tais como várias tautagens, várias deformidades, etc).
    Então, com relação aos Relacionamentos, eu criei dois relacionamentos um para muitos, pois cada registro na tblDados, poderá ter vários registros nas tabelas tblPeculiaridades e tblEventos.
    Porém, os registros nos formulários destas últimas tabelas não ficam referenciados a eles, sendo que os mesmos aparecem para todos os registros da tblDados.
    Ao clicar em salvar as alterações nos frmEventos e frmPeculiaridades, aparece uma mensagem:

    Erro em tempo de execução:'3201':
    Não é possível adicionar ou alterar registros, pois é necessário que eles tenham um registro relacionado na tablea tblDados.

    Em seguida, aponta em seguida para o depurador com o código:
    Private Sub btnSalvarPec_Click()
    Me.Requery
    Form_frmPeculiaridades.Requery
    Form_frmPeculiaridades.Recalc
    End Sub


    Última edição por Veríssimo em 13/12/2015, 16:48, editado 1 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Noobezinho 13/12/2015, 01:05

    Bem, você é quem sabe

    Relacionamentos se faz através do código, no teu caso o código da tblDados, a qual chamei de  cod_Individuo.

    Esse  campo, cod_individuo, deve estar nas 3 tabelas,  sendo chave primaria e numeração automática,

    apenas na tblDados, nas outras duas, deve ser número - inteiro longo. sem chave primária,pois

    o relacionamento cuida disso. E não precisa mais de nenhum outro código.

    Os formulários:

    Faça um formulário Principal com 3 abas,

    Na primeira aba, os campos da tblDados.

    Para a segunda e terceira aba, utilize os frmPeculariedades e frmEventos,

    como subformulário, arrastando cada um para a segunda e terceira aba respectivamente.

    Feito isso, clique no retângulo de cada subformulário (não no formulário) por vez, e nas propriedades

    Vincular campos mestre e vincular campos filho digite: cod_Individuo

    Fazendo isso em cada subform, sempre que adicionar um registro na tblDados(formulario Principal) irá
    quando entrar em um dos subforms, abrir um novo registros já exibindo o cod_Individuo.
    Sempre que for adicionar um novo registro num dos dois subformulários,será  atrelado  ao registro que
    estiver sendo exibido no formulário principal (primeira aba).

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Veríssimo 14/12/2015, 10:38

    Eu fiz os relacionamentos entre as tabelas, colocando o campo Código da tbDados relacionado com os campos Id_Dados_Peculiaridades e Id_Dados_Eventos, um-para-muitos, das respectivas tabelas, porém, ao clicar no comando Salvar das Peculiaridades e Eventos, apresenta a mensagme de erro:

    Erro em tempo de execução:'3201':
    Não é possível adicionar ou alterar registros, pois é necessário que eles tenham um registro relacionado na tabela tblDados.

    Em seguida, aponta em seguida para o depurador com o código:
    Private Sub btnSalvarPec_Click()
    Me.Requery
    Form_frmPeculiaridades.Requery
    Form_frmPeculiaridades.Recalc
    End Sub
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Noobezinho 14/12/2015, 10:46

    Envie as tabelas, formulários e consulta caso haja,

    para analise.

    Os anexos, estão funcionando no site,  mas tem

    que  comprimi-lo e  zip.

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Veríssimo 14/12/2015, 17:06

    O anexo está na primeira postagem do tópico.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Noobezinho 14/12/2015, 17:43

    Assim que puder eu vejo teu aplicativo.

    Aguarde ... Wink


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Veríssimo 14/12/2015, 18:06

    Agradecido pela disposição.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Noobezinho 14/12/2015, 20:13

    Veríssimo

    Sabe o que é Formulário principal e subformulário?

    Não fez o que eu disse, dai não vai funcionar mesmo.

    Onde clica para escolher os controles, escolha o controle guia,

    crie 3 abas nele.

    Em cada aba, irá colocar um subformulário,
    siga as minhas instruções anteriores.


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Veríssimo 18/12/2015, 00:55

    Em anexo, modelo realizado de acordo com aquilo que o Noobezinho  postou, porém, optei por não fazer em abas, mas a colocar os formulários frmPeculiaridades e frmEventos, dentro do frmDados.
    Em seguida, coloquei duas caixas de listagem; uma para o frmPeculiaridades(listaPeculiaridades) e outra para o frmEventos(listaEventos), as quais listam os dados referentes aos respectivos formulários.
    Minha dúvida que restou e que mesmo depois de muita pesquisa de exemplos ainda não resolvi, foi a de exibir nestas caixas de listagem, somente os dados referentes ao registro do frmDados atual.
    Ou, seja, se abrir os três registros que inseri de exemplo, verão que ao mudar de registro no frmDados, nos formulários frmPeculiaridades e frmEventos aparecerão os dados referentes ao registro em questão do frmDados, porém, as caixas de listagem não mudam, ou seja, exibem todos os registros nelas inseridos, independentemente do registro da frmDados.
    Ah! E também a não abrir o frmDados já exibindo os dados nos frmPeculiaridades e frmEventos, mas sim e suas caixas de listagem.
    Como resolver isto?
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Noobezinho 18/12/2015, 09:42

    Veríssimo

    Onde estão as duas caixas de listagem, listaEventos e ListaPeculiaridades?


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Veríssimo 18/12/2015, 10:55

    Nos frmEventos e frmPeculiaridades
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Noobezinho 18/12/2015, 11:29

    Veríssimo

    Taí

    Acertei somente o form_Peculiaridades.

    Deixei o outro pra você aprender fazendo.

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Veríssimo 18/12/2015, 15:23

    Ensinando a pescar, Noobezinho. Muito obrigado.
    Verifiquei o que fez e implementei o seguinte na Origem da Linha do frmEventos:

    SELECT tblEventos.Código_fk_tblDados, tblEventos.Ano, tblEventos.Data, tblEventos.Número, tblEventos.Tipo FROM tblEventos WHERE (((tblEventos.Código_fk_tblDados)=[Formulários]![frmDados]![Código])) ORDER BY tblEventos.Ano DESC , tblEventos.Data DESC , tblEventos.Número DESC;

    Ok! Ele filtrou para um só. Porém, não altera de acordo com o registro selecionado.

    Verifiquei onde podia, mas não consegui mudar isso.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Noobezinho 18/12/2015, 15:35

    O frm_Eventos tem Fonte de registro e deve ser:tblEventos

    Essa consulta é para a origem da linha da listbox.


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Veríssimo 18/12/2015, 15:48

    Me expressei mal, Noobezinho

    A consulta eu inseri na caixa de listagem listaEventos.

    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Veríssimo 18/12/2015, 16:55

    Consegui agora:

    Private Sub Form_Current()
    Me.listaPeculiaridades.Requery
    End Sub

    Era o que faltava aqui!!!!

    Muito obrigado pela ajuda!!!
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    relacionamentos - [Resolvido]Relacionamentos e Atualização Empty Re: [Resolvido]Relacionamentos e Atualização

    Mensagem  Noobezinho 19/12/2015, 10:32

    Ótimo !

    Valeu pelo retorno!

    Boa sorte!

    e Boas festas ! santa


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 27/1/2023, 04:18