MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 6/6/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
    [Resolvido]Botões Cadastro não funciona no menutreeview AttachmentAbrirForm.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (146 Kb) Baixado 12 vez(es)
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  bigfill 6/6/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
    [Resolvido]Botões Cadastro não funciona no menutreeview AttachmentAbrirForm.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (76 Kb) Baixado 7 vez(es)
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 6/6/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
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 7/6/2016, 04:20

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  bigfill 7/6/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
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  bigfill 7/6/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
    [Resolvido]Botões Cadastro não funciona no menutreeview AttachmentAbrirForm.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (86 Kb) Baixado 16 vez(es)
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 7/6/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
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 7/6/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
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  bigfill 7/6/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
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  bigfill 7/6/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
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 7/6/2016, 14:23

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

    Obrigado
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  bigfill 7/6/2016, 15:01

    Mylton, Banco enviado.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 8/6/2016, 14:37

    Bom dia BigFill
    respondi por email.
    Obrigado.
    Abs
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 8/6/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
    [Resolvido]Botões Cadastro não funciona no menutreeview AttachmentAbrirForm Modificado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (102 Kb) Baixado 8 vez(es)
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 8/6/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
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 8/6/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
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 10/6/2016, 12:05

    Bom dia.
    Alguém poderia ajudar?
    Obrigado
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 12/6/2016, 18:24

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mylton 19/6/2016, 18:13

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:55