assuming the listbox has ID as the bound field
Code:
sub listBox_DoubleClick()
docmd.SetWarnings false
docmd.OpenQuery "qaSet1EditRecTrue
docmd.openform "fEdit1Rec", , ,"[id]=" & lstBox
docmd.SetWarnings true
end sub
qaSet1EditRecTrue sql would be like: update table set [editFlag]=true where [id]=" & lstBox
then when done editing the record, and form is closed:
Code:
Private Sub Form_Unload(Cancel As Integer)
DoCmd.SetWarnings False
DoCmd.OpenQuery "qaSet1EditRecFalse"
DoCmd.SetWarnings True
End Sub
qaSet1EditRecFalse sql would be like: update table set [editFlag]=false where [id]=" & me.ID