Common Dialog needs to be manually coded

[hendrixharrison]

My microsoft access doesnt have license to use the microsoft common dialog control and hence I am forced to code it manually.

Using the code down below, I somehow forgot how and where should I declare these objects.

http://www.tek-tips.com/faqs.cfm?fid=2484

this code line needs to be declared

Dim cmdlgOpenFile As New clsCommonDialog

dim clsCommonDialog as ?

I just couldnt remember this at the moment and need help.

So does anyone know how to fix this?

 

[VBslammer]

If you pasted the class module code in a class module and named it "clsCommonDialog" then you're ready to use it from a form. Put a button on the form and set it's OnClick property to [Event Procedure], then in the code window:

Private Sub cmdGetFile_Click()
  Dim cmdlgOpenFile As New clsCommonDialog
  Dim FileName As String    'full file name
  Const clngFilterIndexAll = 5

  cmdlgOpenFile.Filter = "Text Files (*.txt)|*.txt|DBF Files (DBF)|*.dbf|All Files (*.*)|*.*"
  cmdlgOpenFile.FilterIndex = clngFilterIndexAll
  'this is where the dialog opens
  [blue]cmdlgOpenFile.ShowOpen[/blue]

  'returns your full file name.
  FileName = cmdlgOpenFile.FileName

  'hence no len, no name...
  If Len(FileName) = 0 Then Exit Sub

  'do stuff with the filename here....
End Sub

The blue line opens the dialog. When you're coding, as soon as you type [tt]cmdlgOpenFile.[/tt] the methods and properties of the class will appear on the intellisense help.

VBSlammer

"You just have to know which screws to turn." - Professor Bob