Errore di Runtime 28

Errore di Runtime '28'
Spazio dello Stack Esaurito

Ciao vi scrivo il codice che mi da questo errore


Private Sub CmbPagina_Click(Index As Integer)

CmbPagina(1).Text = CmbPagina(0).Text

End Sub

Vi spiego meglio, con questo codice ho l'intenzione di selezionare automaticamente il valore selezionato dalla prima Combo(0) all'altra combo(1), premetto che i valori sono identici per entrambe le Combo. Insomma scritto così non esce mai dalla Sub, ma il valore nell'altra Combo la seleziona. Dove sbaglio? Dove devo modificare?

Hai scritto codice in altri eventi della combobox?

si ma facendo il debug quindi passo a passo vedo che non va a chiamare altre procedure ma continua a girare sempre nella stessa.

Al Momento ho risolto così

Private Sub CmbPagina_Click(Index As Integer)

If Index = 1 Then Exit Sub

CmbPagina(1).Text = CmbPagina(Index).Text

End Sub

Faccio così perchè quando premo sulla prima combo, index vale 0 e quando il ciclo continua vedo che index vale 1 e per evitare che mi continui ad andare in ciclo finchè non raggiunge il valore Max dello Stack, ho impostato di uscire quando Index vale appunto 1.

Fatemi sapere se in questo modo può andare e se esiste un altro metodo.

La linea che hai scritto nell'evento non da' problemi in se' ... probabilmente la "colpa" e' del codice inserito in altri eventi che, a sua volta, chiama l'evento click.

Puoi rimediare cosi' come hai fatto oppure modificando il codice degli altri eventi ... ma non sapendo qual e' ...