Fóruns
Microsoft Excel - 2...
Formulários
Ajuda com erro 424.
 
Notifications
Clear all

Ajuda com erro 424.

 
Formulários
7 Posts
3 Usuários
0 Reactions
1,249 Visualizações
RSS
 cthulhuu
(@cthulhuu)
Posts: 0
New Member
Topic starter
 

Estou tendo um problema com o erro 424 em um formulário do excel. É o segundo formulário que faço, estava tudo okay antes e do nada começou o erro.
Quando eu troco 

Private Sub UserForm_Initialize()

por 

Private Sub UserForm_Click()

.

A biblioteca MICROSOFT DAO 3.6 OBJECT LYBRARY está ativada e ainda assim dá esse erro. Aposto que deve ser um errinho bobo, mas estou no aguardo da ajuda de vocês.

Att

Cthulhuu.

frmcad.xlsm
 
Postado : 30/05/2014 6:48 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Seu metodo está incorreto.

Private Sub UserForm_Initialize()
    'txtFuncionario.Value = ""
    'txtCodigo.Value = ""
    'txtSalario.Value = ""
    'txtCarga.Value = ""
    'txtFuncao.Value = ""
    'txtAdmi.Value = ""
    'txtRemuneracao.Value = ""
    
    With cboRemuneracao
        .AddItem "Sim"
        .AddItem "Não"
    End With
    
    'cboDepartment.Value = ""
    'chkQuinqueno = False
    'chkInsalubridade = False
    'chkPericulosidade = False
    'chkProdutividade = False
    chkAnuenio.Visible = False '<-Correto
    'chkTrienio = False
    'chkGratificacao = False
    'chkAssiduidade = False
    'chkInsentivo = False
    'chkPTS = False
    'chkPremioTarefa = False
    'txtFuncionario.SetFocus

       
End Sub
 
Postado : 30/05/2014 7:11 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Bom Dia!

Você está tentando carregar, na procedure Initialize do formulário, o objeto "txtAdmi.Value" . Esse objeto não existe no seu formulário. Pelo menos com esse nome.

 
Postado : 30/05/2014 7:13 am
 cthulhuu
(@cthulhuu)
Posts: 0
New Member
Topic starter
 

Obrigado, amigos, foram de excelente ajuda. Onde marco como resolvido?

 
Postado : 30/05/2014 4:07 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Na parte superior direita da mensagem existem botões, ícones, etc. Perto do botão EDITAR existe um pequeno ícone com uma marca de verificação verde. Clique nela.

 
Postado : 30/05/2014 4:38 pm
 cthulhuu
(@cthulhuu)
Posts: 0
New Member
Topic starter
 

Porque tem que colocar o ' nas linhas do código alexandrevba?

 
Postado : 30/05/2014 10:58 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu coloquei o apostrofe - > ', porque você tem que editar o restante da rotina, eu fiz um como exemplo, faça para o restante.

Caso não tenha o apostrofe vai gerar erro.

Att

 
Postado : 31/05/2014 6:14 am
Forum Jump:
  Tópico Anterior
Próximo Tópico