[Resolvido]Formulário desvinculado

Olá a todos

Venho pedir a vossa ajuda mais uma vez. Li aqui muita coisa relacionada mas não consegui resolver o meu problema.

Tenho um formulário com os campos desvinculados porque só quero que grave quando carregar no botão.

o problema é que dentro do form tenho um subform e é ai que não está a funcionar.

O código que usei foi o seguinte (a parte de registar os membros da equipa é a do subform:

Private Sub Comando16_Click()

Dim db As dao.Database
Dim rst As dao.Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("TEquipa")

'processo de adição de registo form

rst.AddNew
rst.Fields(1) = txtNome

rst.Update
rst.Close

Dim rst1 As dao.Recordset

Set db = CurrentDb
Set rst1 = db.OpenRecordset("TMembroEquipa")

'processo de adição de registo membros equipa

rst1.AddNew
rst1.Fields(1) = membros
rst1.Fields(2) = Cod_membroequipa

rst1.Update
rst1.Close

End Sub

Agradeço a ajuda

Bom dia Joana;


Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim rst1 As DAO.Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("TEquipa")
Set rst1 = db.OpenRecordset("TMembroEquipa")

'processo de adição de registo form

rst.AddNew
rst.Fields(1) = Me.txtNome.Value 'controle no formulario
rst.Update

'processo de adição de registo membros equipa no subform

rst1.AddNew
rst1.Fields(1) = Forms!SeuFormulario!SeuSubFormulario.Form!membros 'controle no subformulario
rst1.Fields(2) = Forms!SeuFormulario!SeuSubFormulario.Form!Cod_membroequipa 'controle no subformulario
rst1.Update

rst.Close
rst1.Close

Asim parece melhor mas continua-me a dar um erro é:

Application-defined or object-defined error.

Sou um pouco leiga nisto

Está a utilizar DAO, veja se tem a referencia VBA marcada.

Pode ainda mudar o rst.Fields(1) para rst![SeuCampoNaTabela]

E tambem não necessita de instanciar o db;

Ficaria então assim;


Dim rst As DAO.Recordset
Dim rst1 As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("TEquipa")
Set rst1 = CurrentDb.OpenRecordset("TMembroEquipa")

'processo de adição de registo form

rst.AddNew
rst![SeuCampoNome] = Me.txtNome.Value 'controle no formulario
rst.Update

'processo de adição de registo membros equipa no subform

rst1.AddNew
rst1![SeuCampoMembro] = Forms!SeuFormulario!SeuSubFormulario.Form!membros 'controle no subformulario
rst1![SeuCampoCod_membroequip] = Forms!SeuFormulario!SeuSubFormulario.Form!Cod_membroequipa 'controle no subformulario
rst1.Update

rst.Close
rst1.Close

Agora dá erro Method or data member not found nas linhas:

rst1.[Num_membro] = Forms!FInserirIniciativa.FMembroequipa.Form!membros
rst1.[Cod_membroequipa] = Forms!FInserirIniciativa.FMembroequipa.Form!Cod_membroequipa

E os nomes estão todos corretos ?

Pode anexar aqui parte do seu banco ?

Eu parece-me estar.

Envio aqui. O formulario é o finseririniciativa

Agradeço a ajuda mesmo.

É assim;


Dim rst As DAO.Recordset
Dim rst1 As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("TEquipa")
Set rst1 = CurrentDb.OpenRecordset("TMembroequipa")

'processo de adição de registo form

rst.AddNew
rst![Nome] = Me.txtNome.Value
rst.Update

'processo de adição de registo membros equipa

rst1.AddNew
rst1![Num_membro] = Nz(Forms!FInserirIniciativa.Membroequipa.Form!membros.Column(0), 0)
rst1![Cod_membroequipa] = Nz(Forms!FInserirIniciativa.Membroequipa.Form!Cod_membroequipa, 0)
rst1.Update

rst.Close
rst1.Close

Obrigada mesmo.

É isso.

Agora tem duas coisas que não resulta.

Não atribui uma chave primaria automaticamente

E o subform é um continuos form e não está a dar só me aparece uma combobox depois de escolher não aparece nada .

Que luta

Joana, alterei em massa;

Veja se serve;

Obrigadão mesmo. Muito bom



Vou tentar perceber o código e aplicar ao outro subform.

Grande ajuda

Obrigado pelo retorno o forum agradece.

Bem a adaptação ao novo subform não correu assim tão bem.

Fica a criar duas linhas na tabela de iniciativa e não grava todos os valores :s


Ai se não focem vocês a ajudar

Ola bom dia !

Você tinha o subform metade desvinculado e metade vinculado à tabela "TIniciativa", e estava novamente a acrescentar dados via RecordSet.

Não necessita de complicar, veja o simples;

Realmente era um pouco mais simples.

Mil obrigados.

Está muito bom

Obrigado pelo retorno o forum agradece.