Gerardo Garcia
19 de Julio del 2004

Este es Procedimiento y me marca este error Run-timer error '28' Out of stack space como lo puedo correjirlo gracias...


Sub Buscar()
rspresupuestos.FindNext "nombre Like '" & txtnombredis.Text & "*'"
If rspresupuestos.NoMatch Then
Exit Sub
Else
txtnombredis.Visible = False
lstdatos.AddItem rspresupuestos.Fields("iddist") & " - " & rspresupuestos.Fields("nombre") & " - " & rspresupuestos.Fields("Presupuesto") & " - " & rspresupuestos.Fields("orden")
Buscar
End If
End Sub

semperfimxl
19 de Julio del 2004

Esa ultima instruccion "Buscar" que aparece en tu codigo (justo antes del End If) esta provocando este error...

Cuando ocurre este error significa que la misma funcion ha sido llamada en numerosas ocasiones provocando que la memoria se llene ...

En tu caso, la primera vez que se ejecuta este sub BUSCAR, si encuentra la informacion se agrega a tu lstdatos el item con los campos que indicas y despues se ejecuta de nuevo la funcion BUSCAR, lo que provoca que todo se repita en un ciclo sin-fin... bueno, el fin lo encuentra cuando te marca el error "out of stack" ...