MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Rotina para habilitar/desabilitar botões

    avatar
    Edelson Vieira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 198
    Registrado : 21/08/2015

    [Resolvido]Rotina para habilitar/desabilitar botões Empty [Resolvido]Rotina para habilitar/desabilitar botões

    Mensagem  Edelson Vieira em 30/6/2019, 10:44

    Bom dia!

    "DEUS SEJA LOUVADO"

    Criei uma rotina para habilitar/desabilitar botões (mdlHabilitaBotoes), porém como tenho conhecimento limitado em vba não consigo fazer funcionar. Gostaria que alguém desse uma olhada no código(HabilitaBotoes) e na chamada do mesmo no frmCliente e corrigisse o que há de errado. Fico no aguardo. Segue o DB.
    Grato
    Anexos
    [Resolvido]Rotina para habilitar/desabilitar botões AttachmentHabilitaBotoes.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (894 Kb) Baixado 21 vez(es)
    avatar
    renpv
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 12/01/2015

    [Resolvido]Rotina para habilitar/desabilitar botões Empty Re: [Resolvido]Rotina para habilitar/desabilitar botões

    Mensagem  renpv em 30/6/2019, 16:42

    O problema está na chamada da função. O primeiro argumento está pedindo um Object e você está mandando uma String. Outro problema é a quantidade de argumentos, você está mandando 12 argumentos e a função pede 13.
    Segue a chamada correta do botão novo:
    Código:

        Private Sub btnNovo_Click()
        Call HabilitaBotoes(Me, False, False, False, False, False, True, True, False, False, False, False, False)
    avatar
    Edelson Vieira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 198
    Registrado : 21/08/2015

    [Resolvido]Rotina para habilitar/desabilitar botões Empty Re: [Resolvido]Rotina para habilitar/desabilitar botões

    Mensagem  Edelson Vieira em 30/6/2019, 18:09

    Boa noite renpv!

    "DEUS SEJA LOUVADO"

    Obrigado pela solução. Tenha uma boa noite.
    Grato
    avatar
    Edelson Vieira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 198
    Registrado : 21/08/2015

    [Resolvido]Rotina para habilitar/desabilitar botões Empty Re: [Resolvido]Rotina para habilitar/desabilitar botões

    Mensagem  Edelson Vieira em 30/6/2019, 18:10

    Resolvido
    klaytontome
    klaytontome
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 19/03/2017

    [Resolvido]Rotina para habilitar/desabilitar botões Empty Re: [Resolvido]Rotina para habilitar/desabilitar botões

    Mensagem  klaytontome em 29/7/2019, 20:24

    puxa aqui não deu certo. Sad
    avatar
    Edelson Vieira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 198
    Registrado : 21/08/2015

    [Resolvido]Rotina para habilitar/desabilitar botões Empty Re: [Resolvido]Rotina para habilitar/desabilitar botões

    Mensagem  Edelson Vieira em 29/7/2019, 21:16

    Boa noite Klaytontome!

    Observe o procedimento abaixo:

    Public Sub HabilitaBotoes(ObjHabilita As Object, a, b, c, d, e, f, g, h, i, j, k, l As Boolean)

    ObjHabilita.btnPrimeiro.Enabled = a
    ObjHabilita.btnAnterior.Enabled = b
    ObjHabilita.btnProximo.Enabled = c
    ObjHabilita.btnUltimo.Enabled = d
    ObjHabilita.btnLocalizar.Enabled = e
    ObjHabilita.btnNovo.Enabled = f
    ObjHabilita.btnSalvar.Enabled = g
    ObjHabilita.btnCancelar.Enabled = h
    ObjHabilita.btnEditar.Enabled = i
    ObjHabilita.btnFechar.Enabled = j
    ObjHabilita.btnEncerrar.Enabled = k
    ObjHabilita.btnExcluir.Enabled = l

    End Sub

    Foi declarada uma variável do tipo objeto para armazenar o formulário e foram declaradas 12 variáveis do tipo boolean para armazenar a condição dos botões do seu formulário. Então cada botão do seu formulário deve ter o exatamente o nome que está na sub rotina Ex: ObjHabilita.btnPrimeiro onde ObjHabilita é o seu formulário e btnPrimeiro é o nome do botão que acessa o primeiro registro e assim por diante. Portanto sua rotina deve ter exatamente a mesma quantidade de variáveis declaradas quantos forem os botões que vc deseja habilitar ou desabilitar. Na chamada da rotina da mesma forma, no caso do exemplo o formulário tem 12 botões que eu desejo habilitar desabilitar. Portanto deve ter doze falses se eu quiser desabilitar todos ou a soma de falses e trues deve ser doze. Caso ainda persista dúvida poste sua BD.

    Conteúdo patrocinado

    [Resolvido]Rotina para habilitar/desabilitar botões Empty Re: [Resolvido]Rotina para habilitar/desabilitar botões

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/9/2019, 12:15