Hi guys!
I am using a code from one of Roger's Access Sample Databases & I am getting the error: Object Required
Code:
Private Sub cmdBrowse_Click()
On Error GoTo Err_cmdBrowse_Click
Dim strFilter As String
Dim lngFlags As Long
strFilter = ahtAddFilterItem(strFilter, "Comma Delimited (*.csv)", "*.CSV")
'MsgBox "You selected: " &
Me.txtPath = ahtCommonFileOpenSave(InitialDir:="C:\", _
Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
DialogTitle:="Hello! Open Me!")
txtToDirectory.Visible = True
Exit_cmdBrowse_Click:
Exit Sub
Err_cmdBrowse_Click:
MsgBox Err.Description
Resume Exit_cmdBrowse_Click
End Sub
where ahtCommonFileOpenSave is the popular code by Ken Getz
How can I get ride of this error?