Recent content by arnelgp

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?

just a thought, don't close the Currentdb (db.Close). just set it to Nothing.

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.

Filtering the recordset is much slower than creating a "subset" of a recordset.

you need to coy again Arnelgp Module and module SQLParser.

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.

on normal Round() function, the second parameter is an Integer (not a fraction). so if you are just rounding on 2 decimal places: ' Round Up - always rounds away from zero Public Function RoundUp(ByVal Value As Double, ByVal DecimalPlaces As Integer) As Double Dim factor As Double...

if you can post a strip version of the db, someone or i can help it understand better.

in my case, I set it's Max (or Min) by: Me.ScrollBarName.Object.Max = somevalue