[Resolvido]Botões Cadastro não funciona no menutreeview

Boa tarde a todos
Criei um exemplo de uma aplicação em menutreeview, com botões para excluir, salvar etc.... em VBA, onde os mesmos não estão sincronizados com os forms.
São 3 forms de uma mesma tabela e outros de outras tabelas.
Devido a este fato não consegui testar o localizar pela combo.
alguém poderia ajudar-me?
Obrigado

Em 2003 e 2007.

Boa tarde Mylton, Eu acharia melhor inserir os comandos internamente nos subformulários, daria menos trabalho.

Mais se quiser manter da forma que esta, coloquei um código no próximo registro. E se caso estiver no formulário de Tb_Fotos ele ira apular para o próximo registro.

Você terá que identificar qual o formulário esta aberto, depois foca-lo e depois focar um campo interno e depois passar para o próximo registro.

Espero ter ajudado.

Oi bigfill
Tô na rua...
Vou ver qdo chegar em casa.
Mas sua idéia me parece boa.
Só que não sei implementa lá.
Poderia dar um pitaco?

Boa noite
Big fill
Vi sua sugestão.
Mas acabei de chegar em casa.
Amanhã vejo e tento.
Obrigado

Bom dia Mylton, Você terá que multiplicar o código que coloquei no botão.
So não multipliquei pois estou sem tempo, mais você vera que e bem simples.
Qualquer duvida estarei a disposição.

Bom dia Mylton, Criei comando para todos os botoes. Tinha dois botões com o nome de "Próximo Registro" eu alterei um par a "Ultimo Registro" pois era o que estava faltando.

Favor Testa todos os comandos em todos formulários.

Big fill
Bom dia.
Multiplicar seria colocar aquele código em todos os objetos de cada form e inseri-los em cada controle?
Se for isso, há a necessidade de manter-se o comum a todos?
Se fosse via VBA como sugeriu como poderia implementá-lo?
Obrigado.

Oi
Bigfill
Postamos ao mesmo tempo.
Aqui no trabalho não consigo efetuar download de nada...
rsrs.
Testo em casa a noite, ok?
Quanto a sua dica poderia ensinar a como implementá-lo?
Obrigado.

Mylton, coloquei este código no botão "Próximo Registro", e depois copiei ele para os outros objetos e troque somente o código de execução.

Exemplo: Onde era "DoCmd.GoToRecord , , acNext" para próximo, alterei para "DoCmd.GoToRecord , , acLast" para Ultimo Registro.

Código:

Private Sub Comando113_Click()
    On Error GoTo Err_Comando113_Click
    
    If Me.Form!Tbl_Fotos.Visible = True Then
    Me.Tbl_Fotos.SetFocus 'move o foco para o subformulario
    Me!Tbl_Fotos.Form!IdProcesso.SetFocus 'move o foco para um controle no subformulario
    DoCmd.GoToRecord , , acNext
    End If
    '____________________________________________
    If Me.Form!Tbl_Decisao.Visible = True Then
    Me.Tbl_Decisao.SetFocus 'move o foco para o subformulario
    Me!Tbl_Decisao.Form!CodigoDecisao.SetFocus 'move o foco para um controle no subformulario
    DoCmd.GoToRecord , , acNext
    End If
    '______________________________________________
    If Me.Form!Tbl_Processo.Visible = True Then
    Me.Tbl_Processo.SetFocus 'move o foco para o subformulario
    Me!Tbl_Processo.Form!NumeroProcesso.SetFocus 'move o foco para um controle no subformulario
    DoCmd.GoToRecord , , acNext
    End If
    '________________________________________________
    If Me.Form!Tbl_Processo1.Visible = True Then
    Me.Tbl_Processo1.SetFocus 'move o foco para o subformulario
    Me!Tbl_Processo1.Form!Nome_UF.SetFocus 'move o foco para um controle no subformulario
    DoCmd.GoToRecord , , acNext
    End If
    '_______________________________
    If Me.Form!Tbl_Processo2.Visible = True Then
    Me.Tbl_Processo2.SetFocus 'move o foco para o subformulario
    Me!Tbl_Processo2.Form!NomeFantasiaReu.SetFocus 'move o foco para um controle no subformulario
    DoCmd.GoToRecord , , acNext
    End If
    '_____________________________________
    If Me.Form!Tbl_Situacao.Visible = True Then
    Me.Tbl_Situacao.SetFocus 'move o foco para o subformulario
    Me!Tbl_Situacao.Form!CodigoSituacao.SetFocus 'move o foco para um controle no subformulario
    DoCmd.GoToRecord , , acNext
    End If
    '__________________________________
Exit_Comando113_Click:
    Exit Sub
Err_Comando113_Click:
    MsgBox Err.Description
    Resume Exit_Comando113_Click
    
End Sub

Mylton, se quiser mando por e-mail para você.
Aqui no meu serviço também não consigo baixar arquivos em nuvem, somente arquivos anexados aqui dentro do site.

Esses Firewall.

Bigfill, fico grato.
Se puder enviar...
mylton@myltonnogueira.com

Obrigado

Mylton, Banco enviado.

Bom dia BigFill
respondi por email.
Obrigado.
Abs

Aceitei a sugestão do BigFill e tentei a rotina pelo VBA.
Li e estou tentando, a base de acerto e erro. Em anexo o mesmo.
Se alguém puder ajudar, agradeço.
Obrigado

bom...
Refiz tudo de 2 formas...
1) .......................

Private Sub Novo_Click()
'Cria uma variável para o banco de dados:
Dim Banco As Database
'Cria uma variável para armazena a estrutura da tabela:
Dim Tabela As Recordset
'Seta o banco atual para a variável Banco:
Set Banco = CurrentDb
'Seta a tabela desejada do banco atual a variável Tabela:
Set Tabela = Banco.OpenRecordset("Tbl_Processo", dbOpenTable)
Set Tabela = Banco.OpenRecordset("Tbl_Situacao", dbOpenTable)
Set Tabela = Banco.OpenRecordset("Tbl_Decisao", dbOpenTable)
Set Tabela = Banco.OpenRecordset("Tbl_Fotos", dbOpenTable)

'Comando usado para adicionar um novo registro a tabela:
Tabela.AddNew

'Comandos usados para adicionar o valor das caixas de texto a cada campo da tabela:

'Formulário Tbl_Processo -Tbl_Processo
Forms("333frmMenu", "Tbl_Processo").Value = IdProcesso.Value
Forms("333frmMenu", "Tbl_Processo").Value = IdProcesso.Value
Forms("333frmMenu", "Tbl_Processo").Value = NumeroProcesso.Value
Forms("333frmMenu", "Tbl_Processo").Value = DataProcesso.Value
Forms("333frmMenu", "Tbl_Processo").Value = DescricaoJustica.Value
Forms("333frmMenu", "Tbl_Processo").Value = DescricaoComarca.Value
Forms("333frmMenu", "Tbl_Processo").Value = DescricaoTipoAcao.Value
'Formulário Tbl_Processo -Tbl_Processo1
Forms.Tbl_Processo1!
Forms("333frmMenu", "Tbl_Processo1").Value = Nome_UF.Value
Forms("333frmMenu", "Tbl_Processo1").Value = NumeroComarca.Value
Forms("333frmMenu", "Tbl_Processo1").Value = Vara.Value
Forms("333frmMenu", "Tbl_Processo1").Value = NomeAutoridadeJulgadora.Value
Forms("333frmMenu", "Tbl_Processo1").Value = NomeAutor.Value
Forms("333frmMenu", "Tbl_Processo1").Value = NomeFantasiaAutor.Value
Forms("333frmMenu", "Tbl_Processo1").Value = NomeAdvogado.Value
Forms("333frmMenu", "Tbl_Processo1").Value = NomeReu.Value
Forms.Tbl_Processo2!
Forms("333frmMenu", "Tbl_Processo2").Value = NomeFantasiaReu.Value
Forms("333frmMenu", "Tbl_Processo2").Value = NomeAdvogado1.Value
Forms("333frmMenu", "Tbl_Processo2").Value = DescricaoTipoAtuacaoProcessual.Value
Forms("333frmMenu", "Tbl_Processo2").Value = ObsProcesso.Value

'Formulário Tbl_Decisao -Tbl_Decisao
Forms.Tbl_Decisao!
Forms("333frmMenu", "Tbl_Decisao").Value = IdDecisao.Value
Forms("333frmMenu", "Tbl_Decisao").Value = DataDecisao.Value
Forms("333frmMenu", "Tbl_Decisao").Value = TipoDecisao.Value
Forms("333frmMenu", "Tbl_Decisao").Value = IdProcesso.Value

'Formulário Tbl_Fotos -Tbl_Fotos
Forms.Tbl_Fotos!
Forms("333frmMenu", "Tbl_Fotos").Value = IdFoto.Value
Forms("333frmMenu", "Tbl_Fotos").Value = Foto1.Value
Forms("333frmMenu", "Tbl_Fotos").Value = TextoLegenda1.Value
Forms("333frmMenu", "Tbl_Fotos").Value = IdProcesso.Value

'Formulário Tbl_Situacao -Tbl_Situacao
Forms.Tbl_Situacao!
Forms("333frmMenu", "Tbl_Situacao").Value = IdSituacao.Value
Forms("333frmMenu", "Tbl_Situacao").Value = DescricaoSituacao.Value

'Tabela("Tbl_Processo").Value = NomeFantasiaReu.Value
'Tabela("Tbl_Processo").Value = NomeAdvogado1.Value
'Tabela("Tbl_Processo").Value = DescricaoTipoAtuacaoProcessual.Value
'Tabela("Tbl_Processo").Value = ObsProcesso.Value


'Comando usado para atualizar a tabela:
Tabela.Update

'Mensagem de confirmação:
MsgBox "Cadastrado com sucesso."

'Comandos para limpar o valor de cada caixa de texto:

Forms("333frmMenu", "Tbl_Processo").Value = Empty
Forms("333frmMenu", "Tbl_Processo").Value = Empty
Forms("333frmMenu", "Tbl_Processo").Value = Empty
Forms("333frmMenu", "Tbl_Processo").Value = Empty
Forms("333frmMenu", "Tbl_Processo").Value = Empty
Forms("333frmMenu", "Tbl_Processo").Value = Empty
'Formulário Tbl_Processo -Tbl_Processo1

Forms("333frmMenu", "Tbl_Processo1").Value = Empty
Forms("333frmMenu", "Tbl_Processo1").Value = Empty
Forms("333frmMenu", "Tbl_Processo1").Value = Empty
Forms("333frmMenu", "Tbl_Processo1").Value = Empty
Forms("333frmMenu", "Tbl_Processo1").Value = Empty
Forms("333frmMenu", "Tbl_Processo1").Value = Empty
Forms("333frmMenu", "Tbl_Processo1").Value = Empty
Forms("333frmMenu", "Tbl_Processo1").Value = Empty

Forms("333frmMenu", "Tbl_Processo2").Value = Empty
Forms("333frmMenu", "Tbl_Processo2").Value = Empty
Forms("333frmMenu", "Tbl_Processo2").Value = Empty
Forms("333frmMenu", "Tbl_Processo2").Value = Empty

'Formulário Tbl_Decisao -Tbl_Decisao

Forms("333frmMenu", "Tbl_Decisao").Value = Empty
Forms("333frmMenu", "Tbl_Decisao").Value = Empty
Forms("333frmMenu", "Tbl_Decisao").Value = Empty
Forms("333frmMenu", "Tbl_Decisao").Value = Empty

'Formulário Tbl_Fotos -Tbl_Fotos
Forms.Tbl_Fotos!
Forms("333frmMenu", "Tbl_Fotos").Value = Empty
Forms("333frmMenu", "Tbl_Fotos").Value = Empty
Forms("333frmMenu", "Tbl_Fotos").Value = Empty
Forms("333frmMenu", "Tbl_Fotos").Value = Empty

'Formulário Tbl_Situacao -Tbl_Situacao
Forms.Tbl_Situacao!
Forms("333frmMenu", "Tbl_Situacao").Value = Empty
Forms("333frmMenu", "Tbl_Situacao").Value = Empty

End Sub


2)....................................................

Private Sub Novo_Click()
'Cria uma variável para o banco de dados:
Dim Banco As Database
'Cria uma variável para armazena a estrutura da tabela:
Dim Tabela As Recordset
'Seta o banco atual para a variável Banco:
Set Banco = CurrentDb
'Seta a tabela desejada do banco atual a variável Tabela:
Set Tabela = Banco.OpenRecordset("Tbl_Processo", dbOpenTable)
Set Tabela = Banco.OpenRecordset("Tbl_Situacao", dbOpenTable)
Set Tabela = Banco.OpenRecordset("Tbl_Decisao", dbOpenTable)
Set Tabela = Banco.OpenRecordset("Tbl_Fotos", dbOpenTable)

'Comando usado para adicionar um novo registro a tabela:
Tabela.AddNew

'Comandos usados para adicionar o valor das caixas de texto a cada campo da tabela:

'Formulário Tbl_Processo -Tbl_Processo
Forms.Tbl_Processo!
Forms.Tbl_Processo!Tabela("Tbl_Processo").Value = IdProcesso.Value
Forms.Tbl_Processo!Tabela("Tbl_Processo").Value = NumeroProcesso.Value
Forms.Tbl_Processo!Tabela("Tbl_Processo").Value = DataProcesso.Value
Forms.Tbl_Processo!Tabela("Tbl_Processo").Value = DescricaoJustica.Value
Forms.Tbl_Processo!Tabela("Tbl_Processo").Value = DescricaoComarca.Value
Forms.Tbl_Processo!Tabela("Tbl_Processo").Value = DescricaoTipoAcao.Value
'Formulário Tbl_Processo -Tbl_Processo1
Forms.Tbl_Processo1!
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = Nome_UF.Value
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = NumeroComarca.Value
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = Vara.Value
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = NomeAutoridadeJulgadora.Value
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = NomeAutor.Value
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = NomeFantasiaAutor.Value
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = NomeAdvogado.Value
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = NomeReu.Value
Forms.Tbl_Processo2!
Forms!Tbl_Processo2!Tabela("Tbl_Processo").Value = NomeFantasiaReu.Value
Forms!Tbl_Processo2!Tabela("Tbl_Processo").Value = NomeAdvogado1.Value
Forms!Tbl_Processo2!Tabela("Tbl_Processo").Value = DescricaoTipoAtuacaoProcessual.Value
Forms!Tbl_Processo2!Tabela("Tbl_Processo").Value = ObsProcesso.Value

'Formulário Tbl_Decisao -Tbl_Decisao
Forms.Tbl_Decisao!
Forms!Tbl_Decisao!Tabela("Tbl_Decisao").Value = IdDecisao.Value
Forms!Tbl_Decisao!Tabela("Tbl_Decisao").Value = DataDecisao.Value
Forms!Tbl_Decisao!Tabela("Tbl_Decisao").Value = TipoDecisao.Value
Forms!Tbl_Decisao!Tabela("Tbl_Decisao").Value = IdProcesso.Value

'Formulário Tbl_Fotos -Tbl_Fotos
Forms.Tbl_Fotos!
Forms!Tbl_Fotos!Tabela("Tbl_Fotos").Value = IdFoto.Value
Forms!Tbl_Fotos!Tabela("Tbl_Fotos").Value = Foto1.Value
Forms!Tbl_Fotos!Tabela("Tbl_Fotos").Value = TextoLegenda1.Value
Forms!Tbl_Fotos!Tabela("Tbl_Fotos").Value = IdProcesso.Value

'Formulário Tbl_Situacao -Tbl_Situacao
Forms.Tbl_Situacao!
Forms!Tbl_Situacao!Tabela("Tbl_Situacao").Value = IdSituacao.Value
Forms!Tbl_Situacao!Tabela("Tbl_Situacao").Value = DescricaoSituacao.Value

'Tabela("Tbl_Processo").Value = NomeFantasiaReu.Value
'Tabela("Tbl_Processo").Value = NomeAdvogado1.Value
'Tabela("Tbl_Processo").Value = DescricaoTipoAtuacaoProcessual.Value
'Tabela("Tbl_Processo").Value = ObsProcesso.Value


'Comando usado para atualizar a tabela:
Tabela.Update

'Mensagem de confirmação:
MsgBox "Cadastrado com sucesso."

'Comandos para limpar o valor de cada caixa de texto:
Forms.Tbl_Processo!
Forms.Tbl_Processo!Tabela("Tbl_Processo").Value = Empty
Forms.Tbl_Processo!Tabela("Tbl_Processo").Value = Empty
Forms.Tbl_Processo!Tabela("Tbl_Processo").Value = Empty
Forms.Tbl_Processo!Tabela("Tbl_Processo").Value = Empty
Forms.Tbl_Processo!Tabela("Tbl_Processo").Value = Empty
Forms.Tbl_Processo!Tabela("Tbl_Processo").Value = Empty
'Formulário Tbl_Processo -Tbl_Processo1
Forms.Tbl_Processo1!
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = Empty
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = Empty
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = Empty
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = Empty
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = Empty
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = Empty
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = Empty
Forms.Tbl_Processo1!Tabela("Tbl_Processo").Value = Empty
Forms.Tbl_Processo2!
Forms!Tbl_Processo2!Tabela("Tbl_Processo").Value = Empty
Forms!Tbl_Processo2!Tabela("Tbl_Processo").Value = Empty
Forms!Tbl_Processo2!Tabela("Tbl_Processo").Value = Empty
Forms!Tbl_Processo2!Tabela("Tbl_Processo").Value = Empty

'Formulário Tbl_Decisao -Tbl_Decisao
Forms.Tbl_Decisao!
Forms!Tbl_Decisao!Tabela("Tbl_Decisao").Value = Empty
Forms!Tbl_Decisao!Tabela("Tbl_Decisao").Value = Empty
Forms!Tbl_Decisao!Tabela("Tbl_Decisao").Value = Empty
Forms!Tbl_Decisao!Tabela("Tbl_Decisao").Value = Empty

'Formulário Tbl_Fotos -Tbl_Fotos
Forms.Tbl_Fotos!
Forms!Tbl_Fotos!Tabela("Tbl_Fotos").Value = Empty
Forms!Tbl_Fotos!Tabela("Tbl_Fotos").Value = Empty
Forms!Tbl_Fotos!Tabela("Tbl_Fotos").Value = Empty
Forms!Tbl_Fotos!Tabela("Tbl_Fotos").Value = Empty

'Formulário Tbl_Situacao -Tbl_Situacao
Forms.Tbl_Situacao!
Forms!Tbl_Situacao!Tabela("Tbl_Situacao").Value = Empty
Forms!Tbl_Situacao!Tabela("Tbl_Situacao").Value = Empty

End Sub





e não rodou.

Modifiquei para ......

Private Sub Novo_Click()
'Cria uma variável para o banco de dados:
Dim Banco As Database
'Cria uma variável para armazena a estrutura da tabela:
Dim Tabela As Recordset
'Seta o banco atual para a variável Banco:
Set Banco = CurrentDb
'Seta a tabela desejada do banco atual a variável Tabela:
Set Tabela = Banco.OpenRecordset("Tbl_Processo", dbOpenTable)
Set Tabela = Banco.OpenRecordset("Tbl_Situacao", dbOpenTable)
Set Tabela = Banco.OpenRecordset("Tbl_Decisao", dbOpenTable)
Set Tabela = Banco.OpenRecordset("Tbl_Fotos", dbOpenTable)

'Comando usado para adicionar um novo registro a tabela:
Tabela.AddNew

'Comandos usados para adicionar o valor das caixas de texto a cada campo da tabela:

'Formulário Tbl_Processo -Tbl_Processo

Forms("111frmMenu")("Tbl_Situacao").Form("IdProcesso") = IdProcesso.Value
Forms("111frmMenu")("Tbl_Situacao").Form("NumeroProcesso") = NumeroProcesso.Value
Forms("111frmMenu")("Tbl_Situacao").Form("DataProcesso") = DataProcesso.Value
Forms("111frmMenu")("Tbl_Situacao").Form("DescricaoJustica") = DescricaoJustica.Value
Forms("111frmMenu")("Tbl_Situacao").Form("DescricaoComarca") = DescricaoComarca.Value
Forms("111frmMenu")("Tbl_Situacao").Form("DescricaoTipoAcao") = DescricaoTipoAcao.Value

'Formulário Tbl_Processo -Tbl_Processo1
Forms("111frmMenu")("Tbl_Situacao").Form("Nome_UF") = Nome_UF.Value
Forms("111frmMenu")("Tbl_Situacao").Form("NumeroComarca") = NumeroComarca.Value
Forms("111frmMenu")("Tbl_Situacao").Form("Vara") = Vara.Value
Forms("111frmMenu")("Tbl_Situacao").Form("NomeAutoridadeJulgadora") = NomeAutoridadeJulgadora.Value
Forms("111frmMenu")("Tbl_Situacao").Form("NomeAutor") = NomeAutor.Value
Forms("111frmMenu")("Tbl_Situacao").Form("NomeFantasiaAutor") = NomeFantasiaAutor.Value
Forms("111frmMenu")("Tbl_Situacao").Form("NomeAdvogado") = NomeAdvogado.Value
Forms("111frmMenu")("Tbl_Situacao").Form("NomeReu") = NomeReu.Value
Forms("111frmMenu")("Tbl_Situacao").Form("NomeFantasiaReu") = NomeFantasiaReu.Value
Forms("111frmMenu")("Tbl_Situacao").Form("NomeAdvogado1") = NomeAdvogado1.Value
Forms("111frmMenu")("Tbl_Situacao").Form("DescricaoTipoAtuacaoProcessual") = DescricaoTipoAtuacaoProcessual.Value
Forms("111frmMenu")("Tbl_Situacao").Form("ObsProcesso") = ObsProcesso.Value

'Formulário Tbl_Decisao -Tbl_Decisao
Forms("111frmMenu")("Tbl_Processo").Form("IdDecisao") = IdDecisao.Value
Forms("111frmMenu")("Tbl_Processo").Form("IdDecisao") = DataDecisao.Value
Forms("111frmMenu")("Tbl_Processo").Form("IdDecisao") = TipoDecisao.Value
Forms("111frmMenu")("Tbl_Processo").Form("IdDecisao") = IdProcesso.Value

'Formulário Tbl_Fotos -Tbl_Fotos
Forms("111frmMenu")("Tbl_Processo").Form("IdFoto") = IdFoto.Value
Forms("111frmMenu")("Tbl_Processo").Form("Foto1") = Foto1.Value
Forms("111frmMenu")("Tbl_Processo").Form("TextoLegenda1") = TextoLegenda1.Value
Forms("111frmMenu")("Tbl_Processo").Form("IdProcesso") = IdProcesso.Value

'Formulário Tbl_Situacao -Tbl_Situacao
Forms("111frmMenu")("Tbl_Situacao").Form("IdSituacao") = IdSituacao.Value
Forms("111frmMenu")("Tbl_Situacao").Form("DescricaoSituacao") = DescricaoSituacao.Value
Forms("111frmMenu")("Tbl_Situacao").Form("IdProcesso") = IdProcesso.Value

'Comando usado para atualizar a tabela:
Tabela.Update

'Mensagem de confirmação:
MsgBox "Cadastrado com sucesso."

'Comandos para limpar o valor de cada caixa de texto:
Forms("111frmMenu")("Tbl_Situacao").Form("IdProcesso") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("NumeroProcesso") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("DataProcesso") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("DescricaoJustica") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("DescricaoComarca") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("DescricaoTipoAcao") = Empty

'Formulário Tbl_Processo -Tbl_Processo1
Forms("111frmMenu")("Tbl_Situacao").Form("Nome_UF") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("NumeroComarca") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("Vara") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("NomeAutoridadeJulgadora") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("NomeAutor") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("NomeFantasiaAutor") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("NomeAdvogado") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("NomeReu") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("NomeFantasiaReu") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("NomeAdvogado1") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("DescricaoTipoAtuacaoProcessual") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("ObsProcesso") = Empty

'Formulário Tbl_Decisao -Tbl_Decisao
Forms("111frmMenu")("Tbl_Processo").Form("IdDecisao") = Empty
Forms("111frmMenu")("Tbl_Processo").Form("IdDecisao") = Empty
Forms("111frmMenu")("Tbl_Processo").Form("IdDecisao") = Empty
Forms("111frmMenu")("Tbl_Processo").Form("IdDecisao") = Empty

'Formulário Tbl_Fotos -Tbl_Fotos
Forms("111frmMenu")("Tbl_Processo").Form("IdFoto") = Empty
Forms("111frmMenu")("Tbl_Processo").Form("Foto1") = Empty
Forms("111frmMenu")("Tbl_Processo").Form("TextoLegenda1") = Empty
Forms("111frmMenu")("Tbl_Processo").Form("IdProcesso") = Empty

'Formulário Tbl_Situacao -Tbl_Situacao

Forms("111frmMenu")("Tbl_Situacao").Form("IdSituacao") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("DescricaoSituacao") = Empty
Forms("111frmMenu")("Tbl_Situacao").Form("IdProcesso") = Empty

End Sub



e dá o seguinte erro.....

erro de compilação: variável não definida.

na seguinte linha.....

Forms("111frmMenu")("Tbl_Processo").Form("IdDecisao") = IdDecisao.Value


Bom....
o que fazer?

Bom dia.
Alguém poderia ajudar?
Obrigado

Boa tarde.
Alguém teria uma ideia?
Obrigado.

Mudei o tipo de abertura.
Obrigado a todos que ajudaram.
Gde Abs