[Resolvido]Preenchimento automatico de linhas no subformulário

Meus amigos, boa noite.
Mais uma vez venho pedir ajuda a vocês.

Tenho um formulário principal e um subformulário em modo folha de dados onde tenho os seguintes campos
Materia (combobox)
nota1 (caixa de texto)
nota2 (caixa de texto)

Quando abro o formulário e insiro um registro registro esses campos não estão preenchidos, obviamente, e tenho que selecionar matéria, por matéria linha por linha e a maioria das matérias para cada registro são iguais, só mudando uma matéria ou outra.

Gostaria de saber se teria como deixar apenas o campo matéria preenchido com as matérias que eu quiser, já preenchidos nas linhas do subformulário, e, se eu quiser posteriormente mudar alguma matéria que ela não venha a ser mudada posteriormente se eu retornar ao registro pois, raciocinando, o comando será em algum evento o qual colocará as matérias automaticamente e poderá substituir aquela que mudei e não poderá fazer isso.

Mais uma vez agradeço a atenção de vcs.

Abraço.

Bom dia Pol....

O correto seria você inserir as informaçõs diretamente na tabela e posteriormente fazer um requery do sub formulário.

Supondo que saiba o campo do Registro de chave primária na tabela principal deverá levar esta informação ao campo do relacionamento na tabela filho.
Algo assim:

CurrentDb.Execute "INSERT INTO SuaTabela (Campo1, Campo2) Values ("'" & Me.suaCaixaTexto1 & """, """  & Me.SuaCaixaTexto2 & """)"
Me.SeuSubForm.Requery

Se quiser adicionar texto predefinidos substitua o """ & Me.SuaCaixaTexto & """  por 'texto a ser inserido'


Cumprimentos.

Salve Harysohn, boa noite e obrigado pela atenção.
Estou usando o access 2010 e está aparecendo um erro.

Coloquei a instrução em um combobox não acoplado no evento após atualizar dessa forma:

CurrentDb.Execute "INSERT INTO tabela2 (c1) Values ('1'), ('11'),('111')"
Me.form1sub.Requery

O formulario principal chama form1 e o sub chama form1sub.
A tabela que está no sub, o qual receberá os registros chama-se tabela2 e o combobox que quero que repita 3 ou mais linhas chama-se c1, tanto é que coloquei já na values o que quero que apareça nas linhas.

Quando executo aparece o seguinte erro:

Método ou membro de dados não encontrado e seleciona o .form1sub

Não sei se estou fazendo algo errado.

Estarei disponibilizando o bd para vc ver tb.

Muito obrigado pela sua atenção.

Abraço.

Não existe esse tanto de parênteses ai...

CurrentDb.Execute "INSERT INTO tabela2 (c1,c2,c3) Values ('1',11','111')"

Três campos = três valores
C1 = 1
C2 =11
C3 = 111


cumprimentos.

Boa noite amigo.
Não pode ser 1 campo e 3 valores?

Abraço

Não...
A não ser que colocará os 3 valores no mesmo registros.

Agora se deseja adicionar "3 Registros" faça assim:

Dim X as byte

For X = 1 to 3
If X = 1 THen
CurrentDb.Execute "INSERT INTO tabela2 (c1) Values ('1')"
ElseiF X = 2 Then
CurrentDb.Execute "INSERT INTO tabela2 (c1) Values ('11')"
ElseIf X = 3 Then
CurrentDb.Execute "INSERT INTO tabela2 (c1) Values ('111')"
End If
Next X

Cumprimentos.

Cara, muito bom. O único problema é que não está aparecendo no formulário. O vinculo estou fazendo pelo campo rm.
Como faço para, por exemplo, clico em um botão aparece no sub formulário as informações que pedi?

Mai uma vez muito obrigado pela sua atenção.

Abraço

Suponha que tens este campo RM no formulário.. Ele deve ser a chave primária utilizada no vínculo, portanto deve adicionar o mesmo na tabela..
Esta é a informação que diz que aquele registro de RM x pertencer ao Registro Pai de RM X

Algo assim:
For X = 1 to 3
If X = 1 THen
CurrentDb.Execute "INSERT INTO tabela2 (CampoRm, c1) Values (""" & Me.SuaCaixaRM & """, '1')"
ElseiF X = 2 Then
CurrentDb.Execute "INSERT INTO tabela2 (CampoRm, c1) Values (""" & Me.SuaCaixaRM & """, '11')"
ElseIf X = 3 Then
CurrentDb.Execute "INSERT INTO tabela2 (CampoRm, c1) Values (""" & Me.SuaCaixaRM & """, '111')"
End If
Me.SeuSubForm.Requery
Next X


Cumprimentos.

Cara, muitíssimo obrigado, deu certinho tudo. Daforma que eu queria.
Muito obrigado mesmo.

Abraço.

O Fórum agradece o Retorno.