ERROR 28: OUT OF STACK SPACE

USUARIO.EXCLUIDOS 10/01/2005 21:59:58
#59890
Muito estranho esse erro, indicando a seguinte mensagem de erro no Data1.Refresh:
Run-time error 28: OUT OF STACK SPACE

Private Sub Data1_Reposition()
Data1.RecordSource = "select * from tabela1 order by codigo asc"
Data1.Refresh
End Sub

Tem até um exemplo igualzinho no help!!!
Alguém já viu esse erro?
LCSD 10/01/2005 22:10:55
#59891 Resposta escolhida
Fernando

Eu posso estar errado, mas o Evento Reposition vai entrar em um Loop Infinito!
[s55]

Tem certeza que o código não está no local errado?

Private Sub Data1_Reposition()   
    Data1.RecordSource = "select * from tabela1 order by codigo asc" 
    Data1.Refresh 
End Sub


Você não deveria estar disparando uma nova consulta DENTRO do mesmo componente.
[s95]
IVOFABIANO 11/01/2005 08:44:23
#59924
A mensagem de erro"Run-time error 28: OUT OF STACK SPACE " corrobora com o que o colega KPELLAJR disse. O loop provoca o estouro da pilha em memória.

Abs.
Tópico encerrado , respostas não são mais permitidas
Voltar