Search results

  1. G

    Is there a better way to write this?

    *AuditWorkSheet' Was returned
  2. G

    Is there a better way to write this?

    is there a way to add a trim to the code as it looks like the SQL db is adding spaces DoCmd.RunMacro var, , ""
  3. G

    Is there a better way to write this?

    Under Macros I have AuditWorkSheet In the table I have AuditWorkSheet not "AuditWorkSheet" or "AuditWorkSheet' or 'AuditWorkSheet'
  4. G

    Is there a better way to write this?

    The line that causes the error is: DoCmd.RunMacro var, , "" var = "AuditWorkSheet' I typed how it was displayed Markk I will try the other way once I get my head around this way. However I am very new to VBA and I am now changing my macros to VBA.
  5. G

    Is there a better way to write this?

    Using this code I get a run-time error 2485 MS Access cannon find the object 'AuditWorkSheet Inside openexcelParameter i have the macro name AuditWorkSheet Private Sub LindasWS_Click() Dim var var = DLookup("openexcelParameter", "dbo_tblUser", "UserName = '" & Forms!AIR_DetailsB.UserName &...
  6. G

    Is there a better way to write this?

    This code takes the data and puts in a temp table DoCmd.OpenQuery "tblProcedureAppend", acViewNormal, acEdit DoCmd.OpenQuery "tblDiagnosisAppend", acViewNormal, acEdit DoCmd.OpenQuery "LDISTINCTCDC", acViewNormal, acEdit DoCmd.OpenQuery "LDISTINCTDC", acViewNormal, acEdit This...
  7. G

    Is there a better way to write this?

    Only difference between Tammy and Donna is the url location of their folder in the directory.
  8. G

    Is there a better way to write this?

    markk is openexcelParameter where i store DoCmd.RunMacro "openexcelDonna", , ""
  9. G

    Is there a better way to write this?

    I dont see a flaw and I am getting the last message, it just doesn't export.
  10. G

    Is there a better way to write this?

    I have 10 users and each have their own location to export the file too. So each if will run the Marco that holds their location.
  11. G

    Is there a better way to write this?

    This code gets the data ready in temp tables to export DoCmd.OpenQuery "tblProcedureAppend", acViewNormal, acEdit DoCmd.OpenQuery "tblDiagnosisAppend", acViewNormal, acEdit DoCmd.OpenQuery "LDISTINCTCDC", acViewNormal, acEdit DoCmd.OpenQuery "LDISTINCTDC", acViewNormal, acEdit...
  12. G

    Is there a better way to write this?

    Is there a better way to write this, this is what I get when I convert from macro to vb in access 2010. It runs but doesnt export the files. Private Sub LindasWS_Click() On Error GoTo LindasWS_Err DoCmd.SetWarnings False DoCmd.OpenQuery "tblProcedureAppend", acViewNormal, acEdit...
  13. G

    Looping error on last row of table :banghead:

    Wish I could find the same great help with an excel issue I am having, that I posted to excelforum...
  14. G

    Looping error on last row of table :banghead:

    Thank you Moving the update to inside the loop fixed the issue Loop ' Remove leading comma and space from concatenated string ' and update temporary table with the string strDiag = Mid(strDiag, 2) rstTemp![Charge_Amount] = strDiag rstDiag.Close...
  15. G

    Looping error on last row of table :banghead:

    vbaInet How do you do that? I am really new and managed to make different scripts work to get this far.
  16. G

    Looping error on last row of table :banghead:

    Hi There, I have a looping error on this code. It all works fine until the very last row, on the last row it brings over the Claim_Number and the FacID, but leaves the Paid_Amount blank. If I have 10 or 10,000 rows, its always leaves the Paid_Amount on the last row blank. Can you help...
  17. G

    Help - add a format to the Sql select for currency

    It is returning the correct strings without formatting with this code So if my data was as follows: 201 144 10 It is returning 201 144 10 I need it to be $201 $144 $10 ' Concatenate Charge_Amount in a string SQL = "Select [Charge_Amount] from [QrytblProcedure]" & _ " where...
  18. G

    Help - add a format to the Sql select for currency

    I am getting an Compile error: Expected: end of statement when I use "Currency" and Compile error: Invalid character when I use "$0.00" ' Concatenate Charge_Amount in a string SQL = "Select Format([Charge_Amount],"Currency") as [Charge_Amount] from [QrytblProcedure]" & _ "...
  19. G

    Help - add a format to the Sql select for currency

    This never fixed the issue :(
  20. G

    Help - add a format to the Sql select for currency

    So like this: SQL = "Select Format([tblProcedure]![Charge_Amount],"Currency") AS [Charge_Amount] from [tblProcedure]" & _ " where [Claim_Number]='" & rstUplo![Claim_Number] & "'"
Back
Top Bottom