Search results

  1. L

    Error 48 - Error in Loading DLL

    Hi, Here is the line of code that seems to be causing the issue: Set olns = ol.GetNamspace("MAPI")
  2. L

    Error 48 - Error in Loading DLL

    Hi Guys Sorry for not replying sooner. I didn't receive any notification emails. Anyway, here are my answers: 1. I have carefully checked the references on both PC's and they are exactly the same. Both PC's are running 64bit Windows 10 Home and the same 2007 environment. 2. I've done some...
  3. L

    Error 48 - Error in Loading DLL

    Hi guys, I have an error that I am having trouble tracking down. I have a Microsoft 2007 environment (Word, Outlook and of course Access) running happily on a Windows 10 (Home edition) of a desktop PC. I want to move the entire environment onto a laptop running Windows 10 (home edition). I...
  4. L

    Run a stored(saved) Select Query and Sum a few columns

    Hi guys I just figured it out! The following is all that I needed to do... Payments = DSum("[Total Payments]", "qAll Valid Workorders Money Owing_01") Cheers Greg
  5. L

    Run a stored(saved) Select Query and Sum a few columns

    Hi guys, I have many existing saved Select Queries that are attached to either a form or report. If they are attached to a Form, I have a text box with the following in the Control Source to total a column: =Sum("[Parts Total]-nz([Total Payments])") All of this works well and these queries...
  6. L

    Display valid on top of Command Button

    Hi Gasman, You are correct in that you do not need to have the intermediate variables. I initially ran into some issue and I used them to help me figure out what was going on. Here is the correct format: Me!tThanksCount = DCount("*", "qAll Valid Workorders Money Not Owing - Thanks")...
  7. L

    Display valid on top of Command Button

    Hi guys I figured it all out and its working fine! Thanks for your help pointing me in the right direction. This is what I have in the On Load event: Dim ThanksCount As Variant Dim SOHNotUpdated As Variant Dim RodsWOs As Variant ThanksCount = DCount("*", "qAll Valid Workorders Money Not...
  8. L

    Display valid on top of Command Button

    Thanks for the replies and comments guys! Firstly, I incorrectly said that each button executes a report...this is wrong. Each button triggers a Form that display the data in Continuous Form mode. The data source is a query. Pat, I understand some of what you are suggestion. I don't understand...
  9. L

    Display valid on top of Command Button

    Hi guys I hope I can explain this correctly as I am a bit of a newby. I have a form that has a number of Command Buttons on it (I call it a Dashboard). I have attached a screen shot. Each button executes a report. All of this works fine. I have a text box in the Form header of each report...
  10. L

    Using Dao Object In Query In VBA - How?

    I have spent a lot of time looking to see if you can add to the fields that are available via the linked method without any luck...
  11. L

    Using Dao Object In Query In VBA - How?

    Thanks for the clarification....I cross posted as I am desperate for a solution to this issue... The reason that I am not linking the folder is that I want to be able to display the emails on a form, double click it and display the actual email natively in Outlook. In order to do this I need...
  12. L

    Using Dao Object In Query In VBA - How?

    Thanks Dave, Yes I have seen this before but I think that I am very close to getting my code to work. i will definitely look again at the link to see if it can help. Cheers Greg
  13. L

    Using Dao Object In Query In VBA - How?

    Hi guys, I'm a newbie to Access and VBA so please be patient as I try to explain what I am doing and trying to do. I have a simple Access application that I am using DAO to connect directly the Outlook Inbox in order to import email information into a table so that I can query it. I am not...
  14. L

    Read/Open Outlook Email incorrectly in new instance

    Hi mate, I noticed that after the post and removed the second one, ran a test but with same results....any other ideas? I also edited the original post to remove it.
  15. L

    Read/Open Outlook Email incorrectly in new instance

    Hi Guys I have figured out how to do what I want and I need to solve one issue that has me pulling my hair out before I post the entire solution here. Here is the code that I have found and massaged to provide me with the functionality that I want: Sub ImportInboxFromOutlook() ' This...
  16. L

    Read/Open Outlook Email incorrectly in new instance

    Thanks for this code but I don't know how to implement it within my existing code.... I have subsequently found the solution...it was to simply comment out/remove the following bit of code: 'myFolder.Display problem solved Thanks Cheers Greg
  17. L

    Read/Open Outlook Email incorrectly in new instance

    Solved: Read/Open Outlook Email incorrectly in new instance Hi guys I am trying to have the ability to open/read an email from Access 2007 and have the following VBA code working. Private Sub Command395_Click() ' This code finds the 3rd email in the Inbox and displays it in a new Outlook...
  18. L

    Manually deleting all records in a table via the BE produces different to FE

    ahh!. I just deleted the records from the FE and then opened the BE which is set to compact automatically and then re ran the import and the Autonumber field was reset.... Thanks for your help. Cheers Greg
  19. L

    Manually deleting all records in a table via the BE produces different to FE

    Hi guys I hope I can explain this. I have a split application (BE/FE). I have a table called "Web_Orders" that contains a number of records. If I look at them, the ID (Unique) field # is 6888000. This is due to the fact that each time the app is started, I run a number of imports...
  20. L

    Sorting a Continuous Form by a column in a combobox

    Sorry, Here is the code that I am using that sorts the actual SupplierID field. If Me.OrderBy = "[fStocktakeUpdate_05].[Parts.SupplierID]" Then Me.OrderBy = "[fStocktakeUpdate_05].[Parts.SupplierID] DESC" Else Me.OrderBy = "[fStocktakeUpdate_05].[Parts.SupplierID]" End If...
Back
Top Bottom