Recent content by acarterczyz

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.