Search results

Thank you. I think I've gotten it figured out. The only problem I'm running into now is getting over-payments added to the amortization schedule. Amortization Schedule SQL: SELECT IndexTbl.AccountNumber, ExNums.InstNo, IndexTbl.PaymentAmount AS Installment...

Hey all! I'm trying to create an amortization schedule query that will create the schedule in a table. The amortization schedule will need to factor in over-payments and allow me to stub in principal balance adjustments (the over payments). Does anyone know if there is working code out there...

And that's exactly what I did :) After I added in all the variables to the strWhereQuery, I did this: If Me.PrintOptionFrame = 1 Then CurrentDb.QueryDefs("QueryResults").SQL = "select * from SummaryQuery where " & strWhereQuery DoCmd.RunMacro "SaveReportMacro" Instead of filtering a report, I...

This is fixed. I ended up just sending the results to a query and exporting the query to Excel.

And just to test out to see if this mattered, I set Else to: Else strWhereOffice = "*" End If And this still gave me the Run-time error: "Syntax error (missing operator) in query expression 'VP IN() And RVP IN(*) And RD IN(*) And AAM IN(*) And [Rep BDR Territory] IN(*) And RepName IN(*)"

Works perfect! Thanks! One more thing - what if the user omits selecting an option in from the listbox? I have it handling where it skips it where I define the strWhere string, but when it goes to filter the report, it will error out: Example of my strWhere definition: Set ctl =...

Hey all, I'm using pbauldy's code to filter a report by a multi-select listbox. The only issue is..how do I include more (7 to be exact) listboxes to the code? It seems the OpenReport vba is only allowing 1 where clause? Dim strWhere As String Dim ctl As Control Dim varItem As Variant 'add...

Actually - this works perfectly! http://www.fontstuff.com/access/acctut11.htm

Hey all! I'm having some issues getting this to work. I have 7 multi-select list boxes, which I want the user to be able to select multiple items and have it filter a subform by what is selected. The subform will not be visible, so if there is an easier way with a query, please let me know...

Hey all, I'm looking for a way to email query results. Here is the setup I have. I have a list of accounts and account information, and the email address of the account manager. I'm trying to find a way where I can email out account lists to account managers individually so it includes just...

Got it. :) Surprised how easy that one was. I think I'm catching on to VBA LOL. Thanks again Gina!! ApXL.Sheets("Sheet3").Select ApXL.DisplayAlerts = False ApXL.ActiveSheet.Delete ApXL.DisplayAlerts = True

One last thing (its minor, I promise).. Is there a way to delete sheet 3 in the VBA, since it will not be used? :)

:) You were missing this for the second tab: For Each fld In rst2.Fields ApXL.ActiveCell = fld.Name ApXL.ActiveCell.Offset(0, 1).Select Next It seems to be working now. Thank you!! :) Edit: I also added to the function parameters and added the second sheet name to...

I attached something I threw together very quickly. Unfortunately, I cannot send my file as it contains some sensitive work data. Each form in the attached database exports to the Excel file. The ALL button does not work, as this would be a good place to have all the other subforms combined into...

I tried adding to that function, allowing me to pass two subforms, but it would not work. I'm somewhat new to VBA. Thanks for playing around with it! The original code works splendidly and we have been using it for a few years.

Yes. The script I have shown above does that. It opens a brand new Excel file, transfers the contents of the subform I pass to it, and shows it to the user. There is no need to save the information, at least not for the reasons we are using it.

The goal is to not have a saved version, as not all our users have access to a shared drive. When it opens, its automatically named Book1.xlsx.

It creates a new workbook, not one that already exists.

I'm not certain how that would work. I've tried using the following, but it crashes everytime I attempt to use it... Option Compare Database Public Function Send2ExcelMultiple(frm As Form, Optional strSheetName As String, Optional frm2 As Form, Optional strSheetName2 As String) ' frm is the...

Hey all, I have a main form with two subforms. I'm trying to get my code so that it allows me to put 1 subform on one tab and the other spreadsheet on the other tab. Heres my code: Option Compare Database Public Function Send2Excel(frm As Form, Optional strSheetName As String) ' frm is the...