INVALID PROCEDURE CALL OR ARGUMENT

XWILLIANSS 04/09/2009 11:04:35
#321940 
Private Sub Combo1_Click()
    Select Case Combo1
        Case Is = [Ô]CPF CLIENTE[Ô]
            Text1.SetFocus
    End Select
End Sub

Galera estou com ess código acima... por que ta dando esse erro?:

INVALID PROCEDURE CALL OR ARGUMENT
LEANDRO 04/09/2009 11:06:38
#321942
que hora da o erro ?
ASHKATCHUP 04/09/2009 11:09:23
#321943


Citação:

XWILLIANSS escreveu:

Private Sub Combo1_Click()
    Select Case Combo1
        Case Is = [Ô]CPF CLIENTE[Ô]
            Text1.SetFocus
    End Select
End Sub

Galera estou com ess código acima... por que ta dando esse erro?:

INVALID PROCEDURE CALL OR ARGUMENT



Tenta colocar:

Select Case Combo1.Text
LEANDRO 04/09/2009 11:50:00
#321951 
Private Sub Combo1_Click()
    Select Case Combo1
        Case Is = [Ô]CPF CLIENTE[Ô]
            Text1.SetFocus
    End Select
End Sub


Cara tem outra opção tambem,

If Combo1.Text = [Ô]CPF CLIENTE[Ô] then
            Text1.SetFocus
end if
RCMRO 04/09/2009 17:17:34
#321995
Cara,

A SINTAXE do CASE está errada.

é só tirar o [Ô]IS =[Ô]. Fica assim:

  Private Sub Combo1_Click()
    Select Case Combo1.text
        Case [Ô]CPF CLIENTE[Ô]
            Text1.SetFocus
    End Select
End Sub
WHELLNET 04/09/2009 17:34:27
#321997 Resposta escolhida
O case está correto, não há necessidade de altera-lo
Esse erro ocorre por que você está tentando dar foco em um componente indisponivel (visible = false ou enabled = false) ou ainda não preparado

Geralmente ocorre quando no form load do forma, vc alimenta essa combo. E posteriormente deve selecionar um por padrão. Isso vai disparar o evento Click da combo... o como o componente ainda não foi preparado (estamos do form load ainda) ele vai dar esse erro.

Soluções
1a.
Jogar, se possível, os codigos do evento form_load no form_activate()
Detalhe:
Private Sub Form_Activate()
If Me.Tag <> [Ô][Ô] Then Exit Sub
Me.Tag = [Ô]Ok[Ô]
[ô]seu codigo
End Sub

Isso evita que ele seja executado mais vezes...
2a.
Private Sub Combo1_Click()
On error Resume Next
Select Case Combo1.text
   Case [Ô]CPF CLIENTE[Ô]
      Text1.SetFocus
End Select
End Sub
XWILLIANSS 05/09/2009 19:21:28
#322125
Valeu galera, resolvido. Obrigado a todos vocês.
Tópico encerrado , respostas não são mais permitidas
Voltar