on the click event of the button:
Private Sub dmdOpenRptMonthlySales_Click()
If Me.cboMonthYearStart.ListIndex < 0 Then
MsgBox "Please select starting Year and Month from the combobox"
Me.cboMonthYearStart.SetFocus
Exit Sub
End If
If...
Do While Not rs.EOF
If rs!Emailsent7day = False Then
rs.Edit
rs!Emailsent7day = True
rs.Update
... <move your email code here>
End If
rs.Move
Loop
...
...
the only thing left to do is it's responsiveness.
when you hover very fast, it somehow lose track of which
menu item to select (specially when the cursor is in the center of the pie).
you can also create same menu, using a form and command buttons and just make the form transparent.
also it would be challenging if you can show a semi-transparent circle with those menu buttons around, mimicking
most smartphones and other apps.
when you hover inside the circle menu, the...
almost similar to my demo:
https://www.access-programmers.co.uk/forums/threads/creating-a-snapshot-bmp-image-from-any-rectangular-area-of-the-screen-demo.333829/
you have Requery somewhre in your code.
that means Current Event will fire again and GetLastImage will get called again.. and the cycles continues again and again.. endlessly!
with this code:
..
Me.frmImageFiles.SourceObject = "sfrmImages" 'name of the form to load in sfrmSubform2 control
your comment suggests that the subform name is sfrmSubform2? why use frmImageFile?
i think that you would need to carry the db (accdb/mdb) with you.
you should have a copy at home and copy with you.
if there is need for some enhancement request, you work on the mdb, then later
convert it to runtime.
i added modListSort module.
i change the code in Move2 function of the form.
also the lstSelected as 4 columns now, 3 are hidden.
the same with query, zzQuerySelectedFlds and zzQueryBlank.