Search results

  1. M

    Sequence Numbers in Access Query

    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...
  2. M

    Run-time error '3022' - Suppress it?

    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.
  3. M

    Run-time error '3022' - Suppress it?

    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...
  4. M

    Compile Error: User-defined type not defined

    That was it. Thank you sir.
  5. M

    Compile Error: User-defined type not defined

    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...
  6. M

    Trim a Column

    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)...
  7. M

    Import only Works if Excel Worksheet is Open

    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.
  8. M

    Import only Works if Excel Worksheet is Open

    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...
  9. M

    Run Time Error 3673 - This table contains cells that are ...

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

    Run Time Error 3673 - This table contains cells that are ...

    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...
  11. M

    Zip Code Not Importing with Extention

    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...
  12. M

    Wild Card Searches with Brackets

    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...
  13. M

    Expression Not Working

    Thank you. That was it.
  14. M

    Expression Not Working

    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...
  15. M

    This Expression is Typed incorrectly

    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.
  16. M

    This Expression is Typed incorrectly

    Hello. I have a query that has several queries fed into it. I have a form that I use to select the dealership from a combo box. The SQL like this works fine. No issues when I select a name from the dealership drop down. HAVING ((([tbl_Dealership Name].[Dealership Name])=[Forms]![frm_Auto...
  17. M

    No Column Headers in Excel

    Hello. I am trying to import an Excel spreadsheet into an Access table and running into a snag. Since the spreadsheet doesn't have column headers, I keep getting Run-time error '2391' - Field '0000000' doesn't exist in the destination table ... my table name. How can I import the data from...
  18. M

    Form is Blank if No Data

    Thank you for passing along the thread. Where would you place the expression? If DCount("*", "QueryName") > 0 Then
  19. M

    Form is Blank if No Data

    Hello, I have form that is tied to a query. When I enter criteria that matches what i have in the table, it returns the infromation on another form fine. However, if there is no data for the criteria I am entering, I get a blank form. Is there anyway to have the fields of the form show...
  20. M

    Display Looks Different on Newer Versions

    Hello. I have a database in Access 2007 - 2010 that I push out to a couple of different co-wokers. One of my co-workers is using MS Office 2013 and the buttons I have on the forms and reports look inflated. Is there anyway to prevent this in Design mode so what I see in my version is the...
Top Bottom