Search results

  1. F

    Calling public function to backup/compact the back end

    Ya know, I'd considered that the string didn't have quotes, but figured since it had been declared as a string that Access would treat it as one. That appears to have solved my problem. I say appears because I now have the *.BCK that I was expecting. However, is there a reasonable way to see...
  2. F

    Calling public function to backup/compact the back end

    I commented out the error handler. (thanks for that suggestion!) I first received a Run Time 424 'Object Required' error. To cope with that one, I added the following to the module: Dim db As DAO.Database Set db = CurrentDb Now I'm receiving a Run Time 3265 'Item not found in this collection'...
  3. F

    Calling public function to backup/compact the back end

    I have the following function that I found online. Unfortunately I can't remember where I got it since I've had it for a little while. Today, when I tried to actually put it to use it didn't work. I'm calling it from a form as follows: CompactDB (tblHotword) tblHotword is just a random table...
  4. F

    SetWarnings False but still showing "Not In List" message

    Just had another thought. Apparently your issue is stuck in my head. Any possibility that you can populate that combobox using another source that doesn't have a separate primary key? Not sure what your whole setup looks like, but maybe the primary key can be dropped from that table or you can...
  5. F

    SetWarnings False but still showing "Not In List" message

    I tried :( Hope you find an answer
  6. F

    SetWarnings False but still showing "Not In List" message

    Ah, I see that now. I just played around a bit and this appears to work: Change the order of the two fields in the Row Source so that your bound field is second and the one you want them to select is first. Change the Bound Column to 2 Set the width of your first Column to match the width of...
  7. F

    SetWarnings False but still showing "Not In List" message

    How about Column Widths: 0.0007";1" I just tried that and the first column is completely undetectable.
  8. F

    SetWarnings False but still showing "Not In List" message

    I've dealt with the "first visible column isn't equal to the bound column" recently. If I recall correctly, my fix was to set the bound column to 0.5", make my changes and then set the bound column back to 0"
  9. F

    Time Format

    ?TimeValue("00:12:26") 12:12:26 AM ?Format(TimeValue("00:12:26"), "hh:nn:ss") 00:12:26 I didn't follow what you're asking in the second post about chat times.
  10. F

    maintaining the backend

    I've spent the last two days searching for answer to this one and all I've really found is enough ideas to come up with the code below. My environment is a split database with a few different front ends connecting to the same back end. Only one of the front ends will be used for data...
  11. F

    Report View: white dead-space below footer

    what a simple solution :banghead: thank you.
  12. F

    Report View: white dead-space below footer

    I have a report that will only be used in Report View. It pulls data from a table via a query. The number of records it will display is varied. The problem I have is that I've changed the Back Color to 'other than white', but I have several inches of the "report" section below the report...
  13. F

    Get all values for field in query

    Everything verified as working. Completed code follows so others can see complete solution: Private Sub Form_Timer() 'timer set to fire once per minute Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() 'AutoPurge old records (>7yrs) and take action if Hotword...
  14. F

    Get all values for field in query

    touche strMessage = strMessage & rs!NANUnumber & " and " and strMessage = Left(strMessage, Len(strMessage) - 5) should solve that. I'll know in 7 more minute when it fires again... Thanks for the help!
  15. F

    Get all values for field in query

    Does this look right? I'll be testing it shortly. I still used the DCount = 1 and DCount > 1 due to plurality changes (NANU vs NANUs and it has vs they have). I also switched your ", " for "and " since it's very unlikely to ever be three results. Its actually pretty unlikely to get two, but I...
  16. F

    Get all values for field in query

    I've got the following code on a form. The entirety of the sub is listed just in case. The relevant portion is below. Private Sub Form_Timer() 'timer set to fire once per minute 'AutoPurge old records (>7yrs) and take action if Hotword and/or NANU expire Dim Minute As String Minute...
  17. F

    DoCmd.OpenForm with a filter AND a where condition?

    well, that last bit was easier than I expected it to be. Private Sub cboSelectYear_AfterUpdate() Me.cboSelectEmail.Requery Me.Filter = "[EmailID] = " & DMax("EmailID", "tblEmails", "year([receiveddate]) = " & cboSelectYear) Me.FilterOn = True Me.cmdClose.SetFocus End Sub Looks...
  18. F

    DoCmd.OpenForm with a filter AND a where condition?

    Correct: One form with three ways to open it. Regarding the rest of your reply, I'll be honest. I couldn't follow it. However, I've made progress. What I've done is create two queries. The first one grabs all the ReceivedDate entries from my table and turns them into year(ReceivedDate). The...
  19. F

    DoCmd.OpenForm with a filter AND a where condition?

    Well, I tried DoCmd.OpenForm "frmViewEmail", acNormal, "Year([ReceivedDate]) = " & Year(Date), _ "[EmailID] = " & DMax("EmailID", "tblEmails", "year([receiveddate]) = " & Year(Date)) and the combobox is still displaying EmailID's from previous years, so it looks like this method is a bust...
  20. F

    DoCmd.OpenForm with a filter AND a where condition?

    I have a form that allows a user to view every record in the database (one at a time) via a combobox. The combobox displays a 'recordID' which is not the primary key and can (will) therefore have duplicates. The 'recordID' is reset back to 1 every calendar year. There are 3 different ways to...
Back
Top Bottom