Search results

The following "Open file dialog box" code allows a user to browse through the folder and save a file at the user specifed location. It works perfectly in MS Access 2003: Dim strInputFileName As String Dim strfilter As String strfilter = ahtAddFilterItem(strfilter, _ "Portable...

Here is the err description I'm getting: "Reserved error(-7711); there is no message for this error" Users are allowed to select client codes and run the report based on the code(s) they select. The report runs perfectly for all client codes submitted except for one particular code. When...

Hello, I'm experiencing a run-time error 3000. The following is an excerpt of the code that I'm using: If [report selection] = 3 Then DocName = "rptGrossFieldSummary" Set qdfList = db.QueryDefs("qrySp_GrossFieldSummary") strSQL = "exec sp_GrossFieldSummary'" & Application.CurrentUser & "','"...

Thanks SOS, your first suggestion worked. I walked thru the code using the debugger and confirmed that the strInputFileName variable will be "" if you cancel or close the form. The path, directory and filename will be set when the save button is clicked. Thanks.:)

Thanks for your response. In my sample code I'm using a default value for the filename: FileName:="Traditional Well", so when the strInputFileName variable gets returned, the default value will be returned if the user clicks Cancel or Close(which is ok). Wanted to know is there anyway to...

Hello, I'm using the following Open/Save Dialog Box function(code excerpt): Dim strInputFileName As String Dim strfilter As String strfilter = ahtAddFilterItem(strfilter, _ "Portable Doument Format (*.pdf)", "*.PDF") strInputFileName = ahtCommonFileOpenSave(Filter:=strfilter...

Hello, Could anyone provide some direction as to why I'm getting a 424 runtime error. The error occurs on the first line of the sub function(the 'set rep' statment). The following is the code that I'm using within a module, that causes the error whenever the module gets called, i.e...