|
|
Postada em 28/01/2008 12:52 hs
o erro ocorre qdo vou ler ou carregar controles, os valores são inteiros... txt_cad(1).tex = "" txt_cad(2).tex = "" txt_cad(3).tex = "" esta sequencia é executado normalmente na 1 vez... mas qdo se fecha o form e abre novamente apresenta o erro de controle não encontrado. creio que o form esteja com algum problema ao ser despejado da memoria e ao ser recarregado da erro nos controles. haveria alguma forma de de destruir o form alem do Unload ? este tipo de erro ocorre ocasional. |
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 28/01/2008 12:58 hs
tenta fechando desta forma Private Sub Form_Unload (Cancel As Integer)
Dim Form As Form
For Each Form In Forms
If Form Is Me Then
Set Form = Nothing
Exit For
End If
Next Form
End Sub
|
|
|
|
|
|
Postada em 28/01/2008 13:46 hs
vou testar e posto o resultado... obrigado |
|
|
|
|
|
Postada em 28/01/2008 15:51 hs
o erro perciste..... num é problema do form... |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 28/01/2008 16:03 hs
quando você inicia esta sequência você está zerando a mesma posta pra nós o codigo completo com suas funções é mais fácil porque sabe o que está precendo é o seguinte exempo você inicia o form com o load e lá está numero=0 então existe um código que faz a contagem destes campos mais ou menos assim text1(numero).text numero=numero+1 se esse numero não não for zerado ele vai continuar de onde parou mastenta postar todo seu código é mais fácil diagnosticar o problema |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 29/01/2008 09:42 hs
private sub CMD_Novo_click() acao =1 limpa_Txt txt_cad(1).setfocus ' quando movo com o mouse o cursor lá do limpa txt o erro repete aki end sud sub Limpa_TXT dim i% for i = 1 to 20 txt_cad(i).text = "" ' o erro inicia aki... next i end sub e mesmo que eu mova manualmente há momentos que não acha nenhum... oque me deixa encafifado.. e que o erro é exporadico... |
|
|
|
