G'day Len

Seems to be a problem with FoodTimeText seconds?

I changed it to minutes and that works.

FoodDateTime
2025/11/03 11:06:00 PM
2025/11/03 11:07:00 PM
2025/11/03 11:08:00 PM
2025/11/03 11:09:00 PM
2025/11/03 11:10:00 PM
2025/11/03 11:11:00 PM

I'm looking into it.

The seconds are not incrementing

FoodDateTime
2025/11/03 11:06:00 PM
2025/11/03 11:06:01 PM
2025/11/03 11:06:01 PM
2025/11/03 11:06:01 PM
2025/11/03 11:06:01 PM

Which will not be sorted in descending order and only counting two records instead of 5?

Trying to find a fix.

Richard might have a solution.

G'day to you Darrin
I went back to August. Got the same result plus as the 9th was a blank day I decided to add an item, it posted it to the previous day! Well confused!

Hi Len

Try this let me know if it works

You need to change: Public Function SafeFoodDateTime(ByVal D As Date) As String

Should find this in the GlobalMod just change Date to String as above.

Len

In the FoodLogF Code you need to change FoodTimeText to FoodDateTime.

Private Sub HasEaten_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

"ORDER BY FoodTimeText DESC") to "ORDER BY FoodDateTime DESC")

Hope this helps.

Hi Darrin
My thanks again. I did the alteration as per your first post, but it made no difference. In the FoodLogF code my Order By was already FoodDateTime DESC.
So, I deleted everything from FoodLogT and started again on the 26th of September. All worked as should until the 30th (checkbox stops working) From the 1st all entries are fine (except for checkbox) until the 9th anything entered on the 9th goes to the 8th.
On the 10th all reverts back to normal. See attached. Surely someone else must have the same issue, it can’t just be me. Or can it! Do I HAVE to set my system to ISO

Well thats not good len

This code from post a while ago now should have fixed that 9th to 8th

FoodLogF
Private Sub UpdateFilter()
    Dim strSQL As String
    strSQL = "FoodDateTime >= #" & Format(LogDate, "yyyy-mm-dd") & "# AND " & _
        "FoodDateTime < #" & Format(LogDate + 1, "yyyy-mm-dd") & "#"
    Filter = strSQL
    FilterOn = True
End Sub

You can try ISO Date, you can always change back from ISO date if things don't go well

Still not good Darrin
I seemed to have missed that code. Have now altered UpdateFilter but has made no difference. I tried to manually enter into the 9th as soon as I start to type it jumps to the 8th... I'm going to switch my system to ISO, will let you know

Ok Len

Would be good if I could see your code?

Take care

Well I've done it. Changed to ISO and guess what. Everything is working as it should. It's made a right mess of one of my other databases however, its telling me I have pension due from 25-Jul-02. Should be simple to fix. Thanks again for your time and help, I do appreciate it. Be lucky!