no caso acima tente usar call

 

call Text1_LostFocus(i)

ED CLARETT,

 

Você não quer pôr alguns trechos do seu código aqui, para melhor analisarmos?

 

 

Joseph Solvay
Técnico em Informática, programador e futuro filósofo
São Paulo/SP
<jsff77@hotmail.com>

Private Sub MdimnuGravar_Click()
    Dim i As Integer
    For i = 29 To form1.Text1.UBound
        form1.Text1_LostFocus (i) 'da erro aqui
    Next i

End

 

Public Sub Text1_LostFocus(Index As Integer)

    Text1(Index).Text = Format(Text1(Index), "0.00")

End Sub

ED CLARETT,

 

Caso não tenha encontrado uma solução para o seu problema, tente fazer o seguinte:

 

--------------------------------------------
Private Sub MdimnuGravar_Click()
    Dim i As Integer
    For i = 29 To form1.Text1.UBound
           Form1.SuaRotina i '<---
    Next i
End
 
'--- No Form1 ---
Public Sub Text1_LostFocus(Index As Integer)
      SuaRotina Index '<---   
End Sub

 

Public Sub SuaRotina(i As Integer)
     Text1(i).Text = Format(Text1(i).Text, "0.00")
End Sub
--------------------------------------------

 

Porque talvez seja o fato de se estar chamando, a partir de um 'form', o evento de um objeto que está em outro 'form' a causa do erro.

 

O uso de uma sub-rotina já havia sido sugerido pelo ghost_jlp. Vale tentar.

 

 

o erro tá acontecendo, pq vc está chamando um Evento como se fosse um procedure....

se nada der certo aí, experimente Criar um sub por ex

Public Sub Text1perdeofoco  '(observe q é diferente do seu Public Sub Text1_LostFocus(Index As Integer))

'daí vc manda o foco para outro controle qualquer fazendo desta forma com q o Foco realmente saia do 'seu text1