Ciao Antagonista. Ritengo che per "Aprire" un file del DB non serva il controllo CommonDialog. Comunque posto un esempio del predetto controllo, poi vedi tu ...
Progetto>Componenti MS Common Controls, poi seleziona e metti il controllo sulla Frm
In un modulo o nel modulo della stessa Frm:
codice:With FrmTua.CommonDialog1 .CancelError = True ' Imposta CancelError su True On Error GoTo ErrHandler .Filter = "File di programma (*.csv)|*.csv|Documenti di Testo (*.Txt)|" .FilterIndex = 1 .DefaultExt = "csv" .Flags = cdlOFNNoChangeDir Or cdlOFNFileMustExist Or cdlOFNNoReadOnlyReturn .InitDir = App.Path & "\DATI\TuoFile\" .DialogTitle = "Selezionare il file da aprire" .FileName = FrmTua.CommonDialog1.FileName .ShowOpen ErrHandler: If Err.Number = 32755 Then ' E' stato scelto Annulla boolErrAnnCO1 = True Exit Sub Else: boolErrAnnCO1 = False End If ... .... ... Codice per Aprire il File![]()
Chiaramente questo è un esempio, che devi adattare alla tua realtà.

Rispondi quotando