HELP! problem sa Application.FileDialog !!!Imam jedan problemčić u Accessu, naime postavio sam jedno dugme, za koje hoću da kad ga pritisnem, prikaže File dialog, gde mogu da biram fajl. Kod:
Code:
Option Compare Database
Option Explicit
Private Sub Command0_Click()
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog( FileDialogType:=msoFileDialogOpen)
With dlgOpen
.AllowMultiSelect = True
.Show
End With
End Sub
Option Compare Database
Option Explicit
Private Sub Command0_Click()
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog( FileDialogType:=msoFileDialogOpen)
With dlgOpen
.AllowMultiSelect = True
.Show
End With
End Sub
Ali neće i kao poruku mi prikaže:
Compile error. User defined type not defined.
... i označi ovaj deo: Dim dlgOpen As FileDialog
Inače, tu sam foru "pokupio" delom iz helpa, delom iz Northwind baze, forma "Employes". Verovatno je neki glup razlog što neće da funkcioniše, ali zašto?
Probao sam i sa:
Code:
With Application.FileDialog(msoFileDialogFilePicker)
....
end With
With Application.FileDialog(msoFileDialogFilePicker)
....
end With
Ali mi javi grešku tipa:
Compile error. Variable not defined.
I pokaže mi na msoFileDialogFilePicker
Verovatno je problem sa Application objektom, ali koji? Bas, bas mi nije jasno. Help!
Bolje 100 godina biti milioner nego nedelju dana siromašak
(c) Alan ford
(c) Alan ford
