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]Relação e acréscimo de dados em outra tabela pela caixa de combinação

    Compartilhe

    Zeno
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 27/04/2016

    [Resolvido]Relação e acréscimo de dados em outra tabela pela caixa de combinação

    Mensagem  Zeno em 2/5/2016, 23:20

    Olá.

    Pretendo montar uma formulário para cadastramento de alunos e registro de documentos que o mesmo trouxe, imaginei uma tabela contendo as informações do aluno e outra com os tipos de documentos, porem,no momento em que o usuário for registrar o documento pode acontecer deste ser um documento que não está na minha lista(Logo não posso usar lista de combinação para auxiliar o usuário), pensei em uma lista de valores onde é possível inserir novos documentos durante o preenchimento do formulário, sabendo que novos documentos podem aparecer e que um aluno pode ter vários documentos e vários documentos estarão ligados a diversos alunos, como seria uma melhor forma de organizar os dados para facilitar tanto visualização e inserção de novos registros?

    Obrigado.


    Última edição por Dilson em 19/5/2016, 01:08, editado 1 vez(es) (Razão : Modificação do titulo para melhorar o sistema de buscas do fórum)
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1708
    Registrado : 11/11/2009

    Re: [Resolvido]Relação e acréscimo de dados em outra tabela pela caixa de combinação

    Mensagem  Dilson em 16/5/2016, 18:43

    Nesse caso o ideal é justamente usar a caixa de combinação, com recurso de cadastrar o documento caso não esteja no rol previamente cadastrados.

    Mantenha a tabela de documentos e no evento se não estiver na lista da combobox, use:

    Dim SQL As String
       If MsgBox("Tipo de Documento não consta relacionado no Sistema" & Chr(13) & Chr(13) & "Deseja cadastrar este doc. chamado " & UCase(NewData) & " agora?", vbYesNo, "Cadastro de Tipo de Documento") = vbYes Then
              DoCmd.SetWarnings False
              SQL = "INSERT INTO SuaTabelaDoc (NomeDoc) VALUES ('" & NewData & "')"
              DoCmd.RunSQL SQL
              DoCmd.SetWarnings True
              Response = acDataErrAdded
       Else
              Response = acDataErrContinue
       End If



    Propriedade da caixa de combinação: Limita a uma Lista = Sim


    Última edição por Dilson em 19/5/2016, 01:09, editado 1 vez(es) (Razão : Corrigir o evento.)
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1275
    Registrado : 21/01/2012

    Re: [Resolvido]Relação e acréscimo de dados em outra tabela pela caixa de combinação

    Mensagem  Cláudio Más em 17/5/2016, 14:40

    Só lembrando que o relacionamento é de um para muitos.
    Um aluno pode ter vários documentos, e um documento pertence somente a um aluno.
    Não confundir com "tipo de documento", que é um atributo de "documentos do aluno".
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1708
    Registrado : 11/11/2009

    Re: [Resolvido]Relação e acréscimo de dados em outra tabela pela caixa de combinação

    Mensagem  Dilson em 17/5/2016, 16:14

    Muto bem lembrado.

    O cadastramento do documento obedecerá a gravação do valor da chave primária da tabela aluno na chave estrangeira da tabela docsDoAluno.

    o código que passei atualizará o rol de documentos disponíveis para registro.





    Zeno
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 27/04/2016

    Re: [Resolvido]Relação e acréscimo de dados em outra tabela pela caixa de combinação

    Mensagem  Zeno em 18/5/2016, 18:55

    Muito obrigado!

    Agora está mais claro oque fazer.
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1708
    Registrado : 11/11/2009

    Re: [Resolvido]Relação e acréscimo de dados em outra tabela pela caixa de combinação

    Mensagem  Dilson em 19/5/2016, 00:55

    Correção:

    O código que passei na #Mensagem n°2 é para ser aplicado no evento: Se não estiver na lista

    Obrigado por informar Resolvido e siga o bom trabalho!

      Data/hora atual: 19/8/2018, 10:11