Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Private Sub cmdApproval_Click() Dim xlApp As Excel.Application Dim xlwb As Excel.Workbook Dim xlws As Excel.Worksheet Dim xlrng As Excel.Range Dim DB As DAO.Database Dim strSQL As String Dim strRecipient As String Dim strBodyText As String Dim rstQuote As DAO.Recordset Dim vaTmp() As String Dim vaNew As Variant Dim strExportFile As String Dim strVersion As String On Error GoTo cmdApproval_Err DoCmd.Save Set DB = CurrentDb() DoCmd.SetWarnings False Me.Contract_Admin.SetFocus Me.tabOpportunity.SetFocus 'MsgBox ("This quote is to be emailed to only your Manager for approval purposes.") Set xlApp = New Excel.Application Set xlwb = xlApp.Workbooks.Open("C:\Quote Templates\Application Files\Quote Template Export.xls") 'xlApp.Visible = "True" 'Delete out all data on Equipment Worksheet in template and copy in new data strSQL = "Select * from tbl_Quote_Equipment where QuoteNo = '" & Me.txtQuoteNo & "';" Set rstQuote = DB.OpenRecordset(strSQL, dbOpenDynaset) Set xlws = xlwb.Sheets("Equipment") xlws.Rows("2:65536").ClearContents Set xlrng = xlws.Range("A2") xlrng.CopyFromRecordset rstQuote
|MS Access Product Inventory Movement Transfer Form With Separate Records Combined Into one Form||55||43|
|How to Autofill Across to next value||3||21|
|Create a button that will give it a hyperlink function and that on cell would display the total amount of file that the hyperlink has||20||11|
|Conditional Formatting Rule in Excel 2007||5||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!