Gerardo Garcia
16 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