Recent content by kevnaff

  1. K

    Query to select max value from multiple entries per month

    Thanks all for your help. I have now got the data that I need with the max for each field as seen below in a continuous form. It shows the last 12 months data in order. This is what was used for the query in the end: SELECT Format([DateStamp],"yyyy") AS [Year] Format([DateStamp],"mmm") AS...
  2. K

    Query to select max value from multiple entries per month

    Hi CJ. I would not be looking for a record but rather the 2 highest values from each field. So the query would look at the data in the LSA field and would select 10 and then 10 from ASA field too. Hopefully this makes senses. Maybe it would be best for 2 queries instead of one for this as I...
  3. K

    Query to select max value from multiple entries per month

    Hi All. I have a table called PPMTarget that stores our planned preventative maintenance performance targets, when a command button is clicked. A click of the command button stores the below information: TargetID Date LifeSupportTarget LifeSupportSpread AcuteSupportTarget AcuteSupportSpread...
  4. K

    * Filter does not work in numbers field

    Hi All. Just in the past week on my database I have found that I cannot use the * filter in a numbers field. I get an invalid syntax message when trying to do so. I have used the * filter in a numbers field for years and have not changed anything in the database. I have changed the field to a...
  5. K

    Auto Number has lost it's position

    Hi All. I have copied a table in my database with the structure of it staying the same. I have then appended data from another table in to this new table. Now when trying to add a new record I receive a message that this would create duplicate values in the index key. If I was to create a new...
  6. K

    Lookup Criteria returning #Error

    Thanks for your help. However, the unbound text box is now showing #Name? instead of #Error. I will look in to why this is.
  7. K

    Lookup Criteria returning #Error

    Hello All I have a continuous subform called ContractsReadSubform, that is based on a query called QueryContractsSubform. One of the fields in the query is called CodeNo, which relates to the unique equipment number of a device. Every CodeNo has a serial number which is stored in the...
  8. K

    Null to be highest value

    Hi All. I have a query that is ordered to order the [Date Out] field in descending order. The [Date Out] field is the last to be completed on a record. So until a record (job in this case) is completed, the date out has a null value, which means it shows at the bottom of the records. I have...
  9. K

    Upgrade .mdb to .accdb

    @arnelgp @Gasman Hi Both, I always archived the .mdw file with the .mdb As it will be painful getting IT to reinstall the older version, I will get hold of an old copy on my personal PC and try it there. Thanks for your help.
  10. K

    Upgrade .mdb to .accdb

    Hello All, At the end of every financial year, a copy of our front end and back end are stored in an archive folder. Up until 2020, they were all in .mdb and .mde format. The old database used a System file for user login and security. Since upgrading to Office 365 in mid 2020, all of our...
  11. K

    Solved Export Single Record Report to PDF

    Thanks sonic8, I've added the following code and now it's working perfectly: Dim reportName As String Dim criteria As String Dim MSG As String Dim O As Outlook.Application Dim M As Outlook.MailItem Dim FolderPath As String, fileName As String DoCmd.Save...
  12. K

    Solved Export Single Record Report to PDF

    Hello All, I have created a command button on my form to create a report and save this as a PDF, which works perfectly using the code below: Dim FolderPath As String, FileName As String 'Exports report as PDF to Folder Path with Code Number as the file name FolderPath =...
  13. K

    Open .exe without Shell

    Hi Moosak, I've given this a go and I'm not sure that I've copied the code to the correct places. I created a new module and copied the top section of code. I then copied OpenHyperlink "H:\QA90PRO32\QA90PRO.exe" in to the on click event of my command button. When clicking the command button...
  14. K

    Open .exe without Shell

    Hi theDBguy, I used the following code: Dim myPath As String myPath = "H:\QA90PRO32\QA90PRO.exe" Application.FollowHyperlink myPath and got this message: When clicking OK I get this: When clicking debug the following is highlighted:
  15. K

    Open .exe without Shell

    Hello All. Our IT Department has blocked us from using the cmd shell meaning that we can no longer open .exe using the code we used to below: Dim stAppName As String Dim stHomepath As String Dim myPath As String myPath = "H:\QA90PRO32\QA90PRO.exe" Call Shell(myPath, 1)...
Top Bottom