[Resolvido]Rotina para habilitar/desabilitar botões

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

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)


Boa noite renpv!

"DEUS SEJA LOUVADO"

Obrigado pela solução. Tenha uma boa noite.
Grato

Resolvido

puxa aqui não deu certo.

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.