Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
if not ysnRunSQL
Function ysnRunSQL(ByVal pstrSQL As String) As Boolean
On Error GoTo Err_ysnRunSQL
' Comments : Runs a SQL string action query
' : Note: SetWarnings is set to True by this function
' Parameter : strSQL - SQL string to execute
' Returns : True if successful, False otherwise
'
DoCmd.SetWarnings False
If ysnQueryExists(pstrSQL) Then
DoCmd.OpenQuery pstrSQL, acViewNormal
Else
DoCmd.RunSQL pstrSQL, True
End If
ysnRunSQL = True
Exit_ysnRunSQL:
DoCmd.SetWarnings True
Exit Function
Err_ysnRunSQL:
ysnRunSQL = False
Resume Exit_ysnRunSQL
End Function