OBJECT WAS UNLOADED
Boa tarde,
Estou tentando chamar um Form e esta dando o seguinte erro: Run-Time error [ô]364[ô] Object was unloaded....
Não tem nada de errado no fonte, pois estava funcionando e eu não alterei nada.
Segue o fonte:
Private Sub TimerCall_Timer()
Dim rsTable As ADODB.Recordset
Set rsTable = New ADODB.Recordset
rsTable.Open [Ô]SELECT * FROM MsgConversa WHERE lido =[ô]n[ô] AND Usuario<>[ô][Ô] & vUsuarioLogado & [Ô][ô] AND contato =[ô][Ô] & vUsuarioLogado & [Ô][ô][Ô], ADOconn
If rsTable.EOF Then Exit Sub
FormCallUser.Show
vTop = Screen.Height - 1750
vLeft = Screen.Width - 3000
FormCallUser.Left = vLeft
FormCallUser.Top = vTop
End Sub
Alguém já teve este problema antes? Alguma sugestão?
Obrigado.
Estou tentando chamar um Form e esta dando o seguinte erro: Run-Time error [ô]364[ô] Object was unloaded....
Não tem nada de errado no fonte, pois estava funcionando e eu não alterei nada.
Segue o fonte:
Private Sub TimerCall_Timer()
Dim rsTable As ADODB.Recordset
Set rsTable = New ADODB.Recordset
rsTable.Open [Ô]SELECT * FROM MsgConversa WHERE lido =[ô]n[ô] AND Usuario<>[ô][Ô] & vUsuarioLogado & [Ô][ô] AND contato =[ô][Ô] & vUsuarioLogado & [Ô][ô][Ô], ADOconn
If rsTable.EOF Then Exit Sub
FormCallUser.Show
vTop = Screen.Height - 1750
vLeft = Screen.Width - 3000
FormCallUser.Left = vLeft
FormCallUser.Top = vTop
End Sub
Alguém já teve este problema antes? Alguma sugestão?
Obrigado.
Verifique se o seu formulário foi carregado . Normalmente o erro só ocorre após a compilação.Em desenvolvimento não acusa.
Veirifque no FOrm_Load ou Form_Activate
Abraços.
Veirifque no FOrm_Load ou Form_Activate
Abraços.
A falha estava no Form_Load mesmo, eu achei estranho pq a linha que deu erro foi a FormCallUser.Show...
Mas agora que funcionou ta blz, Obrigado pela dica
Mas agora que funcionou ta blz, Obrigado pela dica
Tópico encerrado , respostas não são mais permitidas