Common Dialog

[fiber81]

Premetto di aver inziato da poco a programmare con VB.
Sto lavorando su un database e ho bisogno di caricare un file, allora ho installato MS common dialog control, però non riesco a farla funzionare.
Riporto il codice che ho scritto, qualcuno mi può dare una mano??

Dim apri As CommonDialog
apri.Filter = "All files (*.*)|*.*"
apri.DialogTitle = "Apri file"
apri.ShowOpen

Grazie

[Gigi84]

prima di accedere a metodi e proprietà devi istanziare l'oggetto!

con:

Set apri = New CommonDialog

Ciao!!

[fiber81]

Ma se prima di tutto istanzio l'oggetto nella compilazione mi dice dichiarazione doppia nell'area di validità corrente, mentre se metto solo set apri = new commondialog mi dice Il componente ActiveX non è in grado di creare l'oggetto.
Non capisco dove sta il problema
Grazie

[Gigi84]

ma scusa..
adesso che ci penso non credo ti serva creare una commondialog così..

non potresti fare Progetto->Componenti->Microsoft Common Dialog

così inserisci l'oggetto nel form e lo usi subito!

[fiber81]

Ma scusa un attimo, io uso il vb in access e progetto->com... non ce l'ho!!

[Gigi84]

ahh.. in VBA non sono il messimo esperto..

non riesci a fare una
apri = createobject("commonDialog")->non so cosa ci vuole dentrodi preciso

ciao!

[fiber81]

Credo di aver individuato il prblema ma leggendo nei vecchi post non ho trovato risposta, mi dice che l'activeX non ha la licenza,io ho provato a registare con regsvr32 scaricando migliaia di comdlg32.ocx però non mi funziona. Ho trovato su sito della microsoft che questo è un bug e c'è un programma che corregge questi bug ma è solo per visual studio 6 mentre io uso il vb di access, chi mi può dare una mano??
Sto impazzendo!!!
Grazie

[ladyBlu]

[supersaibal]Originariamente inviato da fiber81
Premetto di aver inziato da poco a programmare con VB.
Sto lavorando su un database e ho bisogno di caricare un file, allora ho installato MS common dialog control, però non riesco a farla funzionare.
Riporto il codice che ho scritto, qualcuno mi può dare una mano??

Dim apri As CommonDialog
apri.Filter = "All files (*.*)|*.*"
apri.DialogTitle = "Apri file"
apri.ShowOpen

Grazie [/supersaibal]

prova a togliere l'istruzione Dim apri As CommonDialog.

[fiber81]

stessa cosa, il fatto è che quando inserisco nella maschera l'oggetto activex common dialog control.. mi dice che non ho la licenza