[Resolvido]Problema com subformulário

Olá,

Não estou conseguindo resolver um problema em meu formulário.
O objetivo é selecionar em uma caixa de combinação um pessoa e abaixo em subformulário adicionar todos os cursos
que ela fez.
A tabela onde estou guardando essas informações é composta por:
Cod_pessoa PK
Cod_Curso PK
Descricao

O problema é que quando seleciono uma pessoa e vou adicionar os cursos o access retorna uma mensagem informando
que é preciso ter um registro na tabela curso.
Pelo que sei isso acontece por que quando clico no subformulário o access tenta salvar o registro na tabela e como
não escolhi os ainda cursos dá o erro.

Para que possa entender melhor segue em anexo uma cópia do banco.

Desde já agradeço a ajuda.

Olá kaká,

Na tabela Pessoa_curso você tem que informar o Cod_pessoa e o Cod_curso correspondente. Você pode fazer isso direto na tabela ou através de formulário.

Sim tudo bem.
Mas o que quero é poder selecionar uma pessoa no formulário e cadastrar para ela vários cursos.
Na tabela fica neste formato:

Pessoa Curso
1 10
1 2
1 15

Eu poderia criar um formulário com apenas 2 caixas de combinação onde escolho a pessoa e o curso, mas
dessa forma se eu quisesse cadastrar para a pessoa 1, um total de 20 cursos teria que selecionar a pessoa e
o curso 20 vezes e o que quero é poder selecionar a pessoa uma vez e depois selecionar os 20 cursos.

Olá kaká,

Nesse caso você poderia colocar uma combo no formulário principal com todos os cursos como lista de valores. A cada seleção do curso um comando SQL de inserção atualizaria o subformulário.

Private Sub cboCursos_AfterUpdate()
On Error Resume Next
Dim strSQL As String
Dim strNome As String
Dim strCurso As String
strNome = Cod_pessoa
strCurso = cboCursos

DoCmd.SetWarnings False
strSQL = "INSERT INTO Pessoa_Curso(Cod_pessoa,Cod_curso) VALUES('" & strNome & "','" & strCurso & "')"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True

DoCmd.RunCommand acCmdRefresh
MsgBox "Curso inserido com sucesso !!!", vbInformation, "Cursos"

End Sub


A origem da linha deste novo objeto(combo) cujo nome pode ser cboCursos:

SELECT [Cursos].[Cod_curso], [Cursos].[Nome] FROM Cursos ORDER BY [Cod_curso];


"O temor do Senhor é o princípio do conhecimento..."(Sl 111.10); Disse Jesus: "Eu sou a luz do mundo. Quem me segue não andará em trevas,..."(Jo 8.12); "Provai e vede que o Senhor é bom..."(Sl 34.

Olá, veja se atende:

É realmente isso que eu preciso.
Eu só não queria tirar a chave primaria dos campos Cod_pessoa e Cod_curso para
garantir que uma pessoa não esteja em dois cursos com o mesmo código.

Então acho que vou tratar isso via código lá na caixa de combinação do curso.

Olá,

A chave primaria de uma tabela quando exportada, ela passa a ser secundaria. É nesse momento em que ocorre o relacionamento um para muitos. Se deixar ela como primária, vai ter sérios problemas.


Mas se resolveu...o fórum agradece o teu retorno.

Caso queria saber mais sobre relacionamentos.....clique aqui. do nosso amigo Dilson. Vale a pena dar um boa lida.

Olá kaká,

Não entendi direito o que você pretende fazer, mas se atendeu... Sucesso !!!

Certo, Obrigado!