Ayuda!!Espacio de pila insuficiente

[erbuson]

Hola, este error según creo, se te produce porque estas metiendo el programa en un bucle interminable:

Private Sub TextAñosServicio_Change()
Dim variable As Integer
If CDate(Form3.TextDiaHoy.Text) < CDate(Form3.TextNuevoAñoServicio.Text) Then
Data1.Recordset.Edit
variable = Form3.TextAñosServicio.Text
Form3.TextAñosServicio.Text = variable - 1
Data1.Recordset.Update
End If
End Sub

Dentro del evento Change, estas cambiando la misma variable que produce el evento, son lo cual se convierte en un cambio continuo que agota el espacio de pila.

El calculo deberías efectuarlo en otro evento o pulsando un boton.

Saludos