[Resolvido]Exportar dados de formulário e subformulário para uma tabela.

Bom dia para todos.

Recorro novamente ao nosso fórum para sanar uma questão que me travou aqui.

Preciso exportar os dados do Form. e do subform para uma tabela. Os dados do formulário estão exportando certinho, mas o do subform. não estão indo.

Eis o código utilizado abaixo:
Private Sub Encerrapgto_Click()
'rotina para exportar dados do formulário para uma tabela
' Creditos:JPaulo e Criquio - maximoaccess.forumeiros.com
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

If MsgBox("Confirma Fechamento do Atendimento ?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb
Set db1 = DBEngine.Workspaces(0).OpenDatabase("\arca de noé\SIS CLIN 11_be.accdb", False, False, "MS Access;PWD=SenhaDoBanco")

Set rs1 = db1.OpenRecordset("Ateencerrado", dbOpenTable)

With rs1
' os campos abaixo do formulário tem que ser iguais aos que estão na tabela para realizar a exportação
.AddNew
![Idcaixa] = Me.CodCaixa
![Proprietario] = Me.Proprietario
![Animal] = Me.Animal
![DataPagamento] = Me.DataPagamento
![Valor] = Me.Valor
![IdTipo] = Me.IdTipo---> campos do subformulário
![TipodeAtendimento] = Me.TipodeAtendimento---> campos do subformulário
![Custo] = Me.Custo---> campos do subformulário
.Update
End With
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.GoToRecord , , acNewRec
MsgBox "Fechamento confirmado !", vbOKOnly + vbInformation, "SIS CLIN"
End If
End Sub

Os campos em vermelho são os campos do subformulário a ser exportado para a mesma tabela que vão estar os dados do formulário.

Necessito deles, para criar um relatório analítico de serviços prestados. O nome do subformulário é: subKaixa

Já coloquei o nome na frente:!subkaixa![idtipo] e nada. Sei que é algo simples para muitos aqui, mas para mim, acabou virando uma pequena grande pedra em meu sapato.

Conto e necessito da ajuda de todos.

Grato.

Silvio
Teste assim

![IDTipo] = Forms![NomeFormulario]![NomeSubFormulario].Form.Controls![Me.IDTipo]
![TipodeAtendimento] = Forms![NomeFormulario]![NomeSubFormulario].Form.Controls![Me.TipodeAtendimento]
![Custo] = Forms![NomeFormulario]![NomeSubFormulario].Form.Controls![Me.Custo]

Grande Assis...

boa tarde a si !

Deu erro.

o seu código:


![IdTipo] = Forms![kaixa]![subKaixa].Form.Controls![Me.IDTipo]
![TipodeAtendimento] = Forms![kaixa]![subKaixa].Form.Controls![Me.TipodeAtendimento]
![Custo] = Forms![kaixa]![subKaixa].Form.Controls![Me.Custo]

e o que eu estou usando.

!Forms!subKaixa![IdTipo] = Forms!subKaixa!Me.IdTipo
!Forms!subKaixa![TipodeAtendimento] = Forms!subKaixa!Me.TipodeAtendimento
!Forms!subKaixa![Custo] = Forms!subKaixa!Me.Custo

Em ambos ocorre: Não pode localizar o campo Me.idTipo referido em sua expressão

E agora ....que que eu faço ??

Abraços !

Silvio

Poste aqui as tabelas e o formulario

O que é o ME! ???

ME! é a representação do formulário atual. É o mesmo que digitar: forms!NomeDoFormulárioAtual!

Estão não faz sentido o ME na expressão usada.

Assis e Aveliino antes de mais nada....sou grato a , vocês pelo tempo dispensado a minha duvida.

O banco esta dividido em BE e FE. Sugiro usar a tecla shift para abrir o mesmo. Mas caso isso não ocorra: usuario e senha: admin e admin.


Entre no formulário proprietários, selecione um qualquer, depois vai em caixa.

Após isso, selecione o que esta na combo e tente fechar o pagamento. É nesse ponto que ocorre o erro, quando se exporta para a tabela "ateencerrados", que esta no BE.

Estou lhe passando o projeto completo, para seus estudos e aproveitar algo dele.

Por um erro meu aqui, vi os nomes errados do subformulário, mas mesmo colocando ele corretamente, ainda persiste o erro.


Grato meu amigo, pela força.

Silvio

Colegas, voltando a esse assunto, pelo visto, acredito que o mesmo seja complexo.

Resolvi em partes com essa linha de comando:


'campos que estão na Tabela = campos do subformulário
![TipoServico] = Forms![kaixa]![subKaixa]!TipoServico
![Servico] = Forms![kaixa]![subKaixa]!Servico
![Custo] = Forms![kaixa]![subKaixa]!Custo

Porém, ao criar a consulta, baseada na tabela "ateencerrado", a consulta me mostra apenas um registro e há a necessidade de se mostrar todos para a criação do referido relatório.

A esperança continua atras de uma solução. Nada é impossível !

Abraços para todos que estão a ler esse tópico.

Silvio

Bem......resolvido !