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

3 participantes

    [Resolvido]Relacionamento Tabela

    avatar
    Efsilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 02/05/2013

    [Resolvido]Relacionamento Tabela Empty Relacionamento Tabela

    Mensagem  Efsilva Dom 10 Nov 2013 - 21:41

    Boa Noite

    Alguem pode me ajudar?

    Estou montando um cadastro de cliente. Estou com uma dificuldade de fazer um relacionamento entre duas tabelas.

    Deixa eu explicar.

    Tenho uma tabela cliente onde mantenho os dados pessoais do cliente. Em outra tabela preciso ter uma ficha de controle dos procedimentos realizados por este cliente (aqui esta o problema)

    Criei as tabelas mas nao consigo relaciona-las, ou seja, 1 cliente podera vir a clinica e fazer diversos tratamentos em datas diferentes, mas preciso que cada vez que o cliente venha eu acesse as informaçoes dele. dentro de uma ficha de controle.

    nesta ficha gostaria que tivesse pelo menos 1 item importante. "O NOME DO CLIENTE"

    As duas tabelas sao:

    Cadastro de Cliente e Ficha de controle. (os acessos sao todos pelos botoes de comando)

    Por favor s puderem me ajudar.
    Anexos
    [Resolvido]Relacionamento Tabela AttachmentCADASTRO GERAL.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (376 Kb) Baixado 7 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4959
    Registrado : 20/04/2011

    [Resolvido]Relacionamento Tabela Empty Re: [Resolvido]Relacionamento Tabela

    Mensagem  Silvio Seg 11 Nov 2013 - 5:23

    Bom dia...

    Veja se é isso que esta a precisar.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    França
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 337
    Registrado : 22/08/2011

    [Resolvido]Relacionamento Tabela Empty Relacionamento Tabela

    Mensagem  França Seg 11 Nov 2013 - 5:31

    Bom dia EFSilva

    O relacionamento citado já está feito.
    O que achei com problema são as tabelas Ficha de controle, Origem do pacote e Origem dos Produtos.
    Abre mais o que queres com cada uma destas tabelas.

    França
    avatar
    Efsilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 02/05/2013

    [Resolvido]Relacionamento Tabela Empty Relacionamento Tabela

    Mensagem  Efsilva Seg 11 Nov 2013 - 9:16

    Silvio,

    agradeço pela ajuda.

    Voce criou um botao que abre a ficha de controle. esta ficha de controle ela armazenada 1 para cada dia que o cliente vem ate a clinica, o que eu preciso e que a ficha seja aberta onde eu tenha a relaçao abaixo como voce colocou, porem que no formulario de cadastro ja seja preenchido o nome e codigo do cliente mas que a ficha venha em branco para poder ser preenchido o movimento do cliente.

    a que voce me enviou esta dando um erro e nao consigo cadastrar as coisas

    mas acho que o principio e este que me enviou.



    avatar
    Efsilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 02/05/2013

    [Resolvido]Relacionamento Tabela Empty Relacionamento Tabela

    Mensagem  Efsilva Seg 11 Nov 2013 - 9:34

    França, obrigado pela ajuda

    Veja,

    As tabelas Origem do pacote e Regioes e Produtos serao somente para alimentar a ficha de controle

    Meu problema esta na ficha de controle, veja como:

    quando dou um click no botao que abre a ficha de controle, eu preciso que nela apareça ja o nome e o codigo do cliente. mas a ficha completamente em branco para que eu possa registrar o movimento que aquele cliente teve, ou seja: preencher a data que ele compareceu, quais sessoes ele realizou, e assim por diante, e que na parte de baixo no tabela seja filtrado toda a relacao das fichas que aquele cliente teve durante o tratamento.

    seria mais ou menos assim:
    O cliente chega hoje dia 11/11/2013 e vai fazer depilacao de buço e virilha, eu cadastro na ficha de controle, estas informaçoes, mas este mesmo cliente volta dia 15/12/2013 e faz depilacao de virilha e axilas mas foi observado que ele havia agendado tambem o buço e nao fez, entao preciso colocar na ficha dele estas informaçoes.

    Eu consegui fazer o relacionamento, mas nao consigo relacionar o cadastro do cliente com a ficha de controle daquele cliente, podendo ser apenas uma ou mais fichas.

    nao sei se fui claro.

    Fico no aguardo.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4959
    Registrado : 20/04/2011

    [Resolvido]Relacionamento Tabela Empty Re: [Resolvido]Relacionamento Tabela

    Mensagem  Silvio Seg 11 Nov 2013 - 9:48

    Boa tarde.....

    EFsilva, fiz alguns testes aqui e não vi esse erro ao qual se refere. Copie e cole essa linha de código:

    Código:
    Private Sub bt_ficha_Click()
    DoCmd.Minimize
    Dim stDocName As String
     Dim stLinkCriteria As String
     Dim Msg As String
    On Error GoTo 1
        stDocName = "frmfichacontrole"
        stLinkCriteria = "[cod_cliente]=" & Me![Cod_Cliente]
        DoCmd.OpenForm stDocName, , , stLinkCriteria

    Exit_1:
        DoCmd.Hourglass False
        DoCmd.Echo True
        Exit Sub

    1 a:
        DoCmd.Hourglass False
        DoCmd.Echo True
        Msg = "Erro # " & Str(Err.Number) & " gerado na " & Err.Source _
            & vbNewLine & vbNewLine & "Descrição: " & Err.Description _
            & vbNewLine & vbNewLine & "Por favor contate o Desenvolvedor do Sistema."
        MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
        Resume Exit_1

    End Sub
    Eu entrei com a data de hoje...e deu certo !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Efsilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 02/05/2013

    [Resolvido]Relacionamento Tabela Empty Relacionamento Tabela

    Mensagem  Efsilva Seg 11 Nov 2013 - 10:30

    Sivio



    Agora deu certinho.
    Era isso mesmo que precisava.

    Obrigado.


    Eu ainda aprendo access um dia. rsrs

    Valeu
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4959
    Registrado : 20/04/2011

    [Resolvido]Relacionamento Tabela Empty Re: [Resolvido]Relacionamento Tabela

    Mensagem  Silvio Seg 11 Nov 2013 - 10:48

    Boa tarde....

    O fórum agradece o retorno. Só não esqueça de colocar como resolvido o tópico.

    Abraços


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: Qui 1 Dez 2022 - 17:35