'Safe' Functions

Wraps various built-in functions, suppressing annoying error messages and handling them more gracefully. This allows use of the functions without the distraction or ON ERROR RESUME NEXT blocks.

Public Sub CleanCloseForm(FormName As String)

Close form, turning echo off before the close and re-enabling it afterwards to avoid flickering.


Public Sub HideNavigationBar()

Hide the navigation bar in Access 2007

Public Function RecordConfirmIsOn() As Boolean

Is the preference setting 'Confirm Record Changes' on ?

Public Function Safe_OpenForm(FormName As String, Optional View As Integer = acNormal, Optional FilterName As String = "", Optional WhereCondition As String = "", Optional DataMode As Integer = acFormPropertySettings, Optional WindowMode As Integer = acWindowNormal, Optional OpenArgs As String = "", Optional SuppressError As Boolean = False) As Long

Open report, fail silently if error occur.
See DoCmd.OpenForm for details on the parameters.


Public Function Safe_OpenReport(ReportName As String, DisplayMode As Integer, Optional FilterName As String = "", Optional WhereCondition As String = "") As Long

Open report, fail silently if '2501 - OpenReport action was canceled' error occurs. This error occurs if you hit the cancel button.
See DoCmd.OpenReport for details on the parameters.


Public Function SafeDir(s As String, Optional Attributes As VbFileAttribute = vbNormal) As String

wraps the VBA 'Dir' function, suppressing any error message and returning an empty string if there is an error. While calling Dir with a nonexistent path does not cause an error, calling it with a nonexistent drive letter does.
See Dir function for use.
This is only for the initial call: if getting the next path use Dir().


Public Function SafeKillFile(FilePath As String) As Long

Delete file, ignoring errors (does not exist, locked, etc).
Returns the error number if the file existed but could not be deleted

Public Function SafeShell(PathName As String, Optional WindowStyle As VbAppWinStyle = vbMinimizedFocus, Optional ThrowError As Boolean = False) As Integer

wraps the VBA 'Shell' function, suppressing any error message.
See Shell function for use.


Public Function ShellWithWait(CommandString As String, FlagFileDir As String, TimeoutSecs As Integer, Optional FlagTimeout As Boolean = True, Optional AddlWaitMilliSec As Long = 0) As String

As the shell command is asynchronous, put the command in a batch file and generate a flag file at completion so we can wait for it. Assumes hourglass is set prior to function entry.