MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Seg 06 Jun 2016, 18:08

    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.
    Anexos
    AbrirForm.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (146 Kb) Baixado 9 vez(es)

    bigfill
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 27/03/2015

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

    Mensagem  bigfill em Seg 06 Jun 2016, 21:38

    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.
    Anexos
    AbrirForm.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (76 Kb) Baixado 5 vez(es)

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Seg 06 Jun 2016, 21:50

    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?

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Ter 07 Jun 2016, 04:20

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

    bigfill
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 27/03/2015

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

    Mensagem  bigfill em Ter 07 Jun 2016, 12:03

    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.

    bigfill
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 27/03/2015

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

    Mensagem  bigfill em Ter 07 Jun 2016, 12:54

    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. Very Happy
    Anexos
    AbrirForm.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (86 Kb) Baixado 6 vez(es)

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Ter 07 Jun 2016, 13:02

    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.

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Ter 07 Jun 2016, 13:03

    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.

    bigfill
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 27/03/2015

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

    Mensagem  bigfill em Ter 07 Jun 2016, 13:15

    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

    bigfill
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 27/03/2015

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

    Mensagem  bigfill em Ter 07 Jun 2016, 13:21

    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. Mad

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Ter 07 Jun 2016, 14:23

    Bigfill, fico grato.
    Se puder enviar...
    [Você precisa estar registrado e conectado para ver este link.]

    Obrigado

    bigfill
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 27/03/2015

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

    Mensagem  bigfill em Ter 07 Jun 2016, 15:01

    Mylton, Banco enviado.

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Qua 08 Jun 2016, 14:37

    Bom dia BigFill
    respondi por email.
    Obrigado.
    Abs

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Qua 08 Jun 2016, 17:12

    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
    Anexos
    AbrirForm Modificado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (102 Kb) Baixado 5 vez(es)

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Qua 08 Jun 2016, 19:12

    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.


    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Qua 08 Jun 2016, 19:41

    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?


    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Sex 10 Jun 2016, 12:05

    Bom dia.
    Alguém poderia ajudar?
    Obrigado

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Dom 12 Jun 2016, 18:24

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

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Dom 19 Jun 2016, 18:13

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

      Data/hora atual: Sab 10 Dez 2016, 12:41