[Resolvido]Como Form com SubForm Independentes

Boa tarde
Como colocar este Form "Encomendas" com subForm " DetalhesArtigos com os campos independentes.

http://dl.dropbox.com/u/8169944/Form%20Independente%20Assis.zip
Obrigado

Não enntndi Assis? como assim independentes?

Olá Hary

Benvindo e obrigado

O Form e o SubForm estão ligados pelo Campo "LN" do Form Encomendas com o campo "LND" do SubForm DetalhesEncomendas.

Queria que os dois forms fossem independentes das respectivas tabelas, para só gravar dados nas tabelas ao clickar no botão de gravar.

Voce quer desvincular os forms?

ou não usar os vículos das tabelas?

Esse relacionamento LN x LND é necessário pois so assim eles identificarao a venda e seus detalhes..

Mas para não usar assim.. teria que usar um recordset..

Creio que é por ai amigão...

Quando se usa recordset's para gravação e consulta... o vinculo é feito na propria SQL (Join Left)
não necessitando o vinculo nas tabela (Via Access)

Pois o SQL faz o vínculo entre os campos relacionados...

Eu desvinculei todo um sistema meu e o fiz assim...

Eu exclui o relacionamento e gravou..... so que ai voce não tera mais o relacionamento...

Porque precisa assim???

Um pitaco: acho importante manter o relacionamento nas tabelas afim de manter a integridade referencial. Imagina se você deleta um registro principal e ficam registros filhos órfãos. Pode ser desvinculado apenas no formulário. Para desvincular as tabelas tambem, toda a rotina de exclusão deve ser bem pensada para não ficar registros pais sem registros filhos e vice-versa.

Exato.. sem vinculos a exclusão deve ser relacionada tambem... boa observação..

Assim está no meu..

Com estes dados aplicados no botão de gravar eu consigo gravar os dados na tabela "Encomendas".

Dim BCO As Database
Dim Encomenda As Recordset
Set BCO = CurrentDb()
Set Encomenda = BCO.OpenRecordset("Encomenda")
Encomenda.AddNew
Encomenda![LN] = Nz(DMax("ln", "Encomenda")) + 1
Encomenda![Operação] = Me.Operação
Encomenda![Cliente] = Me.Cliente
Encomenda![EncomendaCliente] = Me.EncomendaCliente
Encomenda![Encomenda] = Me.Encomenda
Encomenda![Data] = Me.Data
If MsgBox("Confirma a Inclusão dos Dados", vbYesNo, "Titulo") = vbYes Then
Encomenda.Update
Else
Encomenda.CancelUpdate
End If
Encomenda.Close
Me.Operação = ""
Me.Cliente = ""
Me.EncomendaCliente = ""
Me.Encomenda = ""
Me.Data = Date
Me.Operação.SetFocus

Mas não estou a ver como fazer isto para a tabela "DetalhesArtigos", que pode ter vários registo ligados pelos campos "LN" e LND"

Amigão creio que é semelhante, bastando apenas especificar o caminho so subform


Dim BCO As Database
Dim Encomenda As Recordset
Dim Venda As Recordset
Set BCO = CurrentDb()
Set Encomenda = BCO.OpenRecordset("Encomenda")
SetVendas = BCO.OpenRecordSert{“Vendas”)

‘*************PARA ENCONMENDA
Encomenda.AddNew
Encomenda![LN] = Nz(DMax("ln", "Encomenda")) + 1
Encomenda![Operação] = Me.Operação
Encomenda![Cliente] = Me.Cliente
Encomenda![EncomendaCliente] = Me.EncomendaCliente
Encomenda![Encomenda] = Me.Encomenda
Encomenda![Data] = Me.Data

‘***********PARA VENDAS
Vendas![Campo] = Forms!SeuForm.SeuSubForm!SeuCampo.Value


If MsgBox("Confirma a Inclusão dos Dados", vbYesNo, "Titulo") = vbYes Then
Encomenda.Update
Else
Encomenda.CancelUpdate
End If
Encomenda.Close
Me.Operação = ""
Me.Cliente = ""
Me.EncomendaCliente = ""
Me.Encomenda = ""
Me.Data = Date
Me.Operação.SetFocus



E por ai vai...

Acredito que por ter varios artigos tem que ter um loop... mas ainda não sei muito sobre ele...

Creio que é por ai

Estou a enviar este poste para cima. Se já tiver resolvido o fórum agradeçe o retorno