Recent content by Moxioron

Hello. Please see my SQL below. Everything is working fine, except I have to account for duplicates. What I want to do: If there are duplicate Member Number fields, then sequentially use L25 for the first one, L26 for the second, so on and so forth. Any ideas? Thanks. SELECT [tbl_Credit...

You are a genius my friend. So will the append query still bring in any records that are not duplicates? I ran it this morning and I did not receive the error message, but I had no new records so I can't tell if it will bring in new records. Thank you.

Hello. I am using the following code to run an append query on another table Dim db As DAO.Database Set db = DBEngine.Workspaces(0).OpenDatabase("R:\DEPT-BR\CONSUMER LENDING\Marketing Campaigns\2015\2015 Auto Prequal Campaigns\August 31 Mailing\Auto Loan Prequalification - August 31...

That was it. Thank you sir.

Hello. I copied some VBA from one database to another. I didn't change anything and I am able to run it fine in the first database. But in the DB I pasted it to, I am received a Compile Error message with the XlApp As Excel.Application area highlighted. What would be causing that? Thanks...

Hello. I use the following module to import data from a spreadsheet. Function ImportAutoCount() MySheetPath = "R:\DEPT-BR\CONSUMER LENDING\CONSUMER LENDING DATABASES\CRYSTAL AND LOANSPQ REPORTS\AUTO COUNT.xls" CreateObject ("Excel.Application") Set XlBook = GetObject(MySheetPath)...

Sweet.I just plugged in this to the front of my module and whala.MySheetPath = "R:\DEPT-BR\Public\PSCU Invoice\PSCU Invoice.xls"CreateObject ("Excel.Application")Set XlBook = GetObject(MySheetPath)Thank you sir.

Hello. I have a module that is relatively straight forward: Function PSCUInvoiceImport() DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "tbl_PSCU Invoice", "R:\DEPT-BR\Public\PSCU Invoice\PSCU Invoice.xls", True, "GL TOTALS!B7:P50000" End Function The fields in the tbl_PSCU...

What is really weird is if I open the file up, save it, and close it, it imports without an issue....

Hello. I have a pretty eas y Module that worked fine until yesterday. Now I am getting the 'Run-Time Error '3673: This table contains cells that are outside the range of cells defined in this spreadsheet'. However, if I open the Excel file and run the module, it works. is there any way around...

Hello. I have a pretty basic TransferSpreadsheet module that works well except that if the Zip code has the four digit extention, it's not importing. Option Compare Database Dim myCheck Function MeridianLinkFileImport() DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9...

Hello. I want to prompt the user to enter a merchant name, but want the results to return close matches. I know how to use the wildcard in the Criteria field of the query, but I want to use brackets. I know that "*Southwest*" Will return Southwest Airlines. So I tried *[Southwest...

Thank you. That was it.

Hello. I am stumped as to why an expression I put together isn't working. Basically I am taking this expression: =(Sum([SumOfCredit Line Amount])-Sum(IIf([Status Description]="Charged-Off",[SumOfCredit Line Amount])))-(Sum([SumOfAccount Balance Total Amount])-Sum(IIf([Status...

I rebuilt the query and did what I have been told 1,000 times, but never seem to do .... build a little, test a little. Thanks for responding.