MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Sub invAuto() Dim wbk As excel.Workbook 'Getting Error here wbk = openInvDoc wbk.Close False End Sub Function openInvDoc() As excel.Workbook Dim xlApp As excel.Application Dim wks As excel.Worksheet Dim wbk As excel.Workbook Dim path As String path = "C:\Weatherization\WX Inventory\1611 WX Materials Inventory\1611 WX Materials Inventory.xls" If Dir(path) = "" Then path = whereInvReport() End If If path = "" Then MsgBox "File not found or operation cancelled", vbInformation, "Operation Cancelled" Exit Function End If Set xlApp = CreateObject("excel.application") Set wbk = xlApp.Workbooks.Open(path) xlApp.Visible = True 'Set wks = wbk.Worksheets("rptContractorSchedule") openInvDoc = wbk End Function
|Unprotect for adding content within a Text Box||2||32|
|Access database - adding a calculate column in Full Data table||4||13|
|Access Creating a report using a date range||11||13|
|tab to another sub form||4||17|