Ayuda urgente, por favor
Andr?
08 de Septiembre del 2003
Tengo un programa en VB bastante desarrollado, pero todavía no esta acabado, el problema es el siguiente.
la BD Acces contiene ya un total de 3500 registros y el programa al ejecutar la siguiente instrucción me da el error, Espacio de pila insuficiente y solo llega al registro 1608.
Function SumarHorasObra()
'On Error Resume Next
If Not tabla21.EOF Then
N = tabla21.Fields("LINEA")
If mes = Month(tabla21.Fields("fecha")) And año = Year(tabla21.Fields("fecha")) Then
HORASOBRA = HORASOBRA + tabla21.Fields("cantidad")
End If
tabla21.MoveNext
SumarHorasObra
End If
End Function
Agradecería mucho vuestra ayuda, saludos y gracias.
la BD Acces contiene ya un total de 3500 registros y el programa al ejecutar la siguiente instrucción me da el error, Espacio de pila insuficiente y solo llega al registro 1608.
Function SumarHorasObra()
'On Error Resume Next
If Not tabla21.EOF Then
N = tabla21.Fields("LINEA")
If mes = Month(tabla21.Fields("fecha")) And año = Year(tabla21.Fields("fecha")) Then
HORASOBRA = HORASOBRA + tabla21.Fields("cantidad")
End If
tabla21.MoveNext
SumarHorasObra
End If
End Function
Agradecería mucho vuestra ayuda, saludos y gracias.