@Picavbg
In effetti avevo anch'io pensato a questa eventualità ed avevo perciò provato a sostituire la tua variabile con la mia
n_mese ricevendo di rimando l'errore che ho riportato nel precedente mio post.
ma fatemi capire un attimo
: Mi state suggerendo di inserire le due righe dell'amico Picavbg nel mio listato che riporto sotto
Repeat
If n_mese < 10 Then
rif_mese$ = "0" & n_mese
Else
rif_mese$ = n_mese
Endif
name$ = "DDT" & codice$ & "@" & rif_mese$
test_file = Exist(_base & name$ & ".dbl")
If test_file = True
ListBoxMesi[n_mese].Selected = True
Endif
n_mese = n_mese + 1
Until n_mese > 12
ora n_mese viene determinato dal controllo sul file
test_file = Exist(_base & name$ & ".dbl")
If test_file = True
se il mese in esame possiede un file registrato il rispettivo mese nella ListBox si evidenzia, l'unico problema che ho riscontrato è che evidenziando un mese viengono de-evidenziati quelli precedenti, ora a quanto capisco dovrei modificare il controllo in questo modo
If test_file = True
n_mese = ListBoxMesi.Index
ListBoxMesi[n_mese].Selected = True
Endif
in questo caso però comprometterei il controllo perchè la variabile
n_mese verrebbe sovrascritta dal valore di
ListBoxMesi.index e mi bloccherebbe del tutto il ciclio
Repeat, a meno che l'istruzione inserita non serva solo a non lasciar deselezionare i vari item, al che mi basterebbe scaricare il valore in una variabile fittizia, come uso io
buffer$ ed il gioco sarebbe fatto.
Che ne dite?
@Picavbg
le variabili con il trattino sono una reminiscenza del vecchio programma ove il sottolinea non aveva nessuna valore, potrei quindi traformare le variabili in questo modo.....
n_mese ===>
nMese.
Grazie a tutti.
Se non inserisco altri post..... auguri di buon capodanno a tutti.