tblmissedtransactions.ChkNo = [ChkNo]="Next_Custom_Counter"
WHERE (((tblmissedtransactions.EventID)=[Forms]![frmmissedeventsListBox]![EventID]))
these are two of your problems
In the first you are setting ChkNo to be a string that is '[ChkNo]="Next_Custom_Counter"' which I don't think is what you want
Secondly, this what I said before, you can't run your update from a static query if you use a list box you have to cycle through the values in the list box that are selected, create your SQL statement based on the value of the bound column of the list box then execute the SQL statement. So if you use the itemselected set of code I gave you your SQL statement WHERE clause would be something like:
Code:
dim sSQL as string
dim db as database
set db = currentdb
sSQL = "UPDATE tblmissedtransactions SET "
ssql = ssql & "tblmissedtransactions.enter = True, "
ssql = ssql & "tblmissedtransactions.misselect = False, "
ssql = ssql & "tblmissedtransactions.MYDte = #" & Date() & "#, "
ssql = ssql & "tblmissedtransactions.dteentered = #" & Date() & "#, "
ssql = ssql & "tblmissedtransactions.dtemod = #" & Date() & "#, "
ssql = ssql & "tblmissedtransactions.tmemod = #" & Time() & "#, "
ssql = ssql & "tblmissedtransactions.lastmodified = #" & Now() & "#, "
ssql = ssql & "tblmissedtransactions.ChkNo = #FIX THIS PART OF YOUR STATEMENT
ssql = ssql & "tblmissedtransactions.missev = False, "
ssql = ssql & "tblmissedtransactions.missdte = Null "
"WHERE (((tblmissedtransactions.EventID)= " & PK & "))"
db.execute sSQL
db.close
you would put the sql statement string building inside the loop of items selected and run the thing whenever you wanted to perform an update, for instance in the ON CLICK event or ON DOUBLE CLICK event of the list box or have a separate button if you wanted to do your multi select first