Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub Command175_Click() Dim varResponse As Variant Dim strMenu As String strMenu = "1. Tow-away form Preview" & vbCr & vbCr strMenu = strMenu & "2. Print Tow-away form (1 copy) " & vbCr & vbCr strMenu = strMenu & "3. Exit" varResponse = "" Do While Len(varResponse) = 0 Or varResponse < 1 Or varResponse > 3 varResponse = InputBox(strMenu, "Tow-away form print options", 1) Loop Select Case varResponse Case 1 Dim oApp As Object Dim strDocName As String strDocName = DLookup("TowAwayFormLocation", "tblCompanyInformation", "[CompanyID] = 1") Set oApp = CreateObject("Word.Application") oApp.Visible = True oApp.Documents.Open strDocName Case 2 Dim WordObj As Object Set WordObj = CreateObject("Word.Application") WordObj.Documents.Open DLookup("TowAwayFormLocation", "tblCompanyInformation", "[CompanyID] = 1") WordObj.PrintOut Background:=False WordObj.Quit Set WordObj = Nothing Case 3 Exit Sub End Select End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|How to show the Record Number on a Sub-Form just like Running Sum In a Report?||17||60|
|Opening an Excel file on sharepoint updating its links and then saving and closing it||7||39|
|how to modify the VBScript so that it plays sound via Shell command default available player.||7||34|
|Using Access multi Listbox to pass criteria to a query||9||29|