[Resolvido]Qual codigo vba para que os dados de tabela colocados em formulários diferentes funcionem?

Gostaria de preencher um formulário por vez? Nesse caso, todos teriam que estar aberto para que o botão do último formulário pudesse pegar os valores digitados e inserir na tabela.

No evento do botão, seria algo mais ou menos assim:

Currentdb.Execute "INSERT INTO SuaTabela (1,2,3,4,...,12) VALUES (" & Forms("Form1").Controls("nomedocampo").Value & ", ..., " & Me.nomedocampo.Value & ");"

No lugar de ... tu adiciona todos os campos de todos os forms que tu quer pegar a informação.

Acho que é isso, não testei...

Mylton

Se você conectar os formulário à tabela, os formulário farão acesso simultâneo ao mesmo registro e, pelo teste que fiz,  só salvaria a informação de um dos formulários.

Você pode utilizar formulários desconectados da tabela e, salvar os dados de cada campo em variáveis, para depois incluí-los na tabela usando sql
Exemplo

Código:



strCodProcesso =  Form1.CodProcesso.value
strTipoJustica = Form2.TipoJustica.value
strComarca = Form3.Comarca.value

Docmd.runSQL "INSERT INTO CadastroProcessual ( CodProcesso, TipoJustica, Comarca ) " & _
" SELECT " & strCodProcesso & " AS CodProcesso, " & strTipoJustica  & " AS TipoJustica, " & strComarca  & " AS Comarca;"



A desvantagem de desvincular a tabela ao recordset do formulário é que, para visualizar os dados, você precisaria preencher o formulário utilizando a DAO ou ADO para consulta dos dados.

--

Qual o intuito de ter 4 formulário para cadastrar\editar o mesmo registro ?
Não existe outra alternativa para resolver este problema sem a necessidade de criar 4 formulários ?

Qualquer dúvida estou à disposição

Uma alternativa rápida seria utilizar abas ao invés do formulário de navegação, conforme o modelo que postei neste link

https://drive.google.com/file/d/0B0eI95-l8snXajJUMjZiMEtGS1U/view?usp=sharing

Mas vou pesquisar uma forma de fazer com os formulário de navegação

Acredito ter conseguido resolver o problema

Link para download do Banco de Dados

Utilizei o objeto TempVars para armazenar o ID do registro atual durante a navegação entre os formulários

Código nos formulários 1 e 2 (Que não tem os botões de controle)
Precisei duplicar o código em dois formulários. Se você conseguir fazer diferente compartilhe comigo ok ?

Código:


Private Sub Form_Load()

lngProcesso = CLng(Nz(TempVars!processoatual))
If lngProcesso > 0 Then
    strSQL = "SELECT CadastroProcessual.*  FROM CadastroProcessual WHERE (((CadastroProcessual.CodProcesso)=" & _
    lngProcesso & "));"
    Set Me.Recordset = CurrentDb.OpenRecordset(strSQL)
End If

End Sub


Código no formulário 3

Código:


Private Sub Form_AfterInsert()
ArmazenarRegistroAtual
End Sub

Private Sub Form_Current()
ArmazenarRegistroAtual
End Sub

Private Sub ArmazenarRegistroAtual()

intProcesso = Nz(Me.CodProcesso.Value)
TempVars.Add "processoatual", intProcesso

End Sub

Private Sub Form_Load()

Dim intProcesso As Long

intProcesso = CLng(Nz(TempVars!processoatual))

If intProcesso > 0 Then
    Me.Recordset.FindFirst "[CodProcesso]=" & intProcesso
End If

End Sub


Mylton, desculpe a demora

Só para registro
Uma outra alternativa que utiliza menos código seria utilizar subformulários conforme as alterações que realizei neste arquivo

https://onedrive.live.com/redir?resid=21F4F05D8915E332!4875&authkey=!AAs9P3-pNQomnk8&ithint=file%2caccdb

Neste caso, seria necessário ligar a tabela ao formulário "principal" e colocar os controles nele



Para alternar entre os formulários é necessário alterar o objeto ligado ao subformulário usando o código abaixo

Código:


SubFormulario.SourceObject = "NomeFormulario"


Além disso é necessário criar o vínculo entre o formulário principal e os formulários, que serão exibidos no objeto subformulário, através de um campo em comum. Neste caso usei o campo [CodProcesso]  



Uma medida que precisei tomar com relação ao subformulário foi garantir que o campo mestre sempre tenha um valor porque quando é inserido um novo registro o campo [CodProcesso] por ser autonumeração sempre começa como nulo até que seja preenchido algum valor em outro campo
Por isso, utilizei o código abaixo para garantir que o subformulário só esteja ativo caso o campo [CodProcesso] tenha sido preenchido

Código:


Private Sub Form_Current()
DefinirAtivacaoSubForm
End Sub

Private Sub DefinirAtivacaoSubForm()

If IsNull(Me.CodProcesso.Value) Then
    Me.SubFormulario.Enabled = False
Else
    Me.SubFormulario.Enabled = True
End If

End Sub


Ivan