ME AJUDEM RUN-TIME ERROR 28 OUT OF STACK SPACE

MADMAX 03/02/2010 15:03:14
#333515

Você deve ter feito algum loop infinito , ou chamada recursiva infinita ... posta o codigo ... ai da para tentar ajudar...

JOERBETH 12/02/2010 13:06:01
#334267

Isso, desculpa a demora pela resposta, é que estava sem net...

Sim, a parte do código é esse:

Dim User_id As Double
Dim i As Double
Dim v_Sql, v_Sql2 As String
Dim v_Foto
Dim v_DataSistema
Dim v_Codigo, v_Faixa, v_ManhaInicio, v_ManhaFim, v_AlmocoInicio
szTextEncodeFIR = [Ô][Ô]
User_id = 1
objExtraction.WindowStyle = NBioAPI_WINDOW_STYLE_POPUP
objExtraction.WindowOption(NBioAPI_WINDOW_STYLE_NO_FPIMG) = False
objExtraction.WindowOption(NBioAPI_WINDOW_STYLE_NO_TOPMOST) = False
objExtraction.WindowOption(NBioAPI_WINDOW_STYLE_NO_WELCOME) = False
Call objDevice.Open(NBioAPI_DEVICE_ID_AUTO_DETECT)
Call objExtraction.Capture
If objExtraction.ErrorCode = [Ô]515[Ô] Then
Call objDevice.Close(NBioAPI_DEVICE_ID_AUTO_DETECT)
Call InciarDigital
ElseIf objExtraction.ErrorCode = [Ô]513[Ô] Then
If MsgBox([Ô]Deseja sair do programa[Ô], vbQuestion + vbYesNo, [Ô]Aviso ao Usuário[Ô]) = vbYes Then
Call objDevice.Close(NBioAPI_DEVICE_ID_AUTO_DETECT)
End
Else
Unload Me
FRM_Login.Show 1
End If
Else
TXT_Digital.Text = objExtraction.TextEncodeFIR
Call objDevice.Close(NBioAPI_DEVICE_ID_AUTO_DETECT)
If objExtraction.ErrorCode <> NBioAPIERROR_NONE Then
MsgBox objExtraction.ErrorDescription & [Ô] [[Ô] & objExtraction.ErrorCode & [Ô]][Ô]
Call objDevice.Close(NBioAPI_DEVICE_ID_AUTO_DETECT)
Exit Sub
End If
Call objDevice.Close(NBioAPI_DEVICE_ID_AUTO_DETECT)
szTextEncodeFIR = objExtraction.TextEncodeFIR
User_id = 0
Call objIndexSearch.IdentifyUser(szTextEncodeFIR, 8)

*******************************************************************************
Dae, tenho esse timer:
Private Sub Timer1_Timer()
Cls
Print Time$
End Sub
**************************************************************************
ele fica aqui o intervalo e depois, chama o CALL da sub acima, se deixa um tempo, dá o erro citado no post.

Valeu pessoal

Joerbeth

MADMAX 19/02/2010 13:44:48
#334799

O tempo do timer não esta muito pequeno , e ai chama o call antes de ter terminado de processar o primerio , assim fica acumulando ate dar pau ???

JOERBETH 22/02/2010 11:42:21
#335021

Vou ver o timer, vc acha que poder ser isso mesmo?

Me fez uma pergunta? perguntando até dar pau?, num entendi

Falows

Joerbeth

JOERBETH 25/02/2010 10:12:44
#335313

Como faço para desabilitar o timer enquanto chamo a rotina????

Valeu

MICROSCHEME 25/02/2010 21:01:00
#335402 Resposta escolhida

Para desabilibitar um timer:

Timer1.enabled = false

Para habilitar:

Timer1.enabled = true

. . .