prima di iniziare il ciclo di Do Loop devi settare la proprietà Max della progressbar altrimenti ti genera errore, e per maggiore serenità ti consiglio di risettargli pure la Min:
codice:Sub CiclaRecordset() ... ProgressBar1.Value = 0 ProgressBar1.Min = 0 ProgressBar1.Max = Recordset.RecordCount Recordset.MoveFirst Do Until Recordset.EOF ProgressBar1.Value = ProgressBar1.Value + 1 Recordset.MoveNext Loop ... End Sub![]()


Rispondi quotando
