Common Control Dialog

[A[L]C]

Ive given a button the action:

Private Sub Command49_Click()
ActiveXCtl48.ShowOpen

MsgBox "Filename: " & _
ActiveXCtl48.FileTitle
MsgBox "Path: " & Left$(ActiveXCtl48.FileName, _
Len(ActiveXCtl48.FileName) - Len(ActiveXCtl48.FileTitle))

MsgBox "Filename: " & _
ActiveXCtl48.FileName
End Sub

which works perfectly fine (the msgbox's are just for verification)

I have a text box called "txtDocPath". When the user chooses the file after clicking the button, I want this text box to be updated with the path and filename (with extension) of the chosen file.

Any help will be greatly appreciated.

Regards
Paul

BTW this is in msaccess 97.

[peet]

Private Sub Command49_Click() 
ActiveXCtl48.ShowOpen 
 
MsgBox "Filename: " & _ 
ActiveXCtl48.FileTitle 
MsgBox "Path: " & Left$(ActiveXCtl48.FileName, _ 
Len(ActiveXCtl48.FileName) - Len(ActiveXCtl48.FileTitle)) 
 
MsgBox "Filename: " & _ 
ActiveXCtl48.FileName 
 
txtDocPath.Text = ActiveXCtl48.FileName
End Sub

[A[L]C]

Thanks, but i get a run time error:


Run Time error '2185'
You can't reference a property or method for a contol unless the control has the focus

Regards
paul

[A[L]C]

oh dont worry, sorted it...

needed to add
Forms!frmImportApp3!txtDocPath.SetFocus

thanks a lot for your help

Paul

[A[L]C]

you can help me further on it tho plz....

I need to set the default path for the open box, and also make only .xls files visible (think its called a filter)

thanks a lot

[peet]

ActiveXCtl48.InitDir = "C:\"
ActiveXCtl48.Filter = "Excel (*.xls)|*.xls"