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.
Sub MySQLBox()
On Error Goto ViewError
Dim strSQL as String
Do until strSQL = "q"
strSQL = inputbox("Enter the SQL to execute. q to Quit","SQL")
DoCmd.RunSQL strSQL
Loop
ProcExit:
Exit Sub
ViewErr:
Msgbox Err.Description
Resume Next
End Sub