Search results

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

is this the same question you asked here: https://www.access-programmers.co.uk/forums/threads/how-get-lid-of-domain-function-and-replace-them-with-opening-recordset-in-ms-access-vba.334880/

it is hanging on my pc (BE) when started the server.

here you may try to test. It is not the modern chart's fault. it is because it is creating an Endless loop.

you can even shorten the control source on the main form to: =[F10Test_1]![F3]

SELECT YourTable.DateField, [DateField]-(Select Top 1 T.DateField From YourTable As T Where T.DateField < YourTable.DateField Order By T.DateField Desc) AS Diff FROM YourTable ORDER BY YourTable.DateField DESC;

Version 2. Resize the Msgbox form (made it shorter). Make the Icons much bigger. Add background color to the detail section and also background color of the IE webbrowser control consistent with the MsgType.

on design view, click on the subform, and on it's Property:

still using the old IE webbrowser control to have an annimated icons and to quickly catch the attention on the message.

maybe add On Error Resume Next: f Me.PriceListItemsPicked.ItemsSelected.Count = 0 Then MsgBox "MUST SELECT @ LEAST 1 ITEM" Exit Sub End If On Error Resume Next Set ctl = Me.PriceListItemsPicked For Each varItem In ctl.ItemsSelected rs.AddNew rs!CustomersID = Me.CustomersID rs!Customers =...

it's too late, just in case. please try this.