I've put similar code into the click event of my 1st program and I get the following run-time error:
-----------------------------------------------
run-time error '3020'
Update or CancelUpdate without AddNew or Edit
-----------------------------------------------
Code I used is:
-------------------------------------------------------
Private Sub listNotSelected_Click()
Dim rst As DAO.Recordset
Dim sql As String
sql = "Select req From tblMemberOftest Where [tblMemberOftest].[contactid] = '" & listNotSelected.Value & "'"
Set rst = CurrentDb.OpenRecordset(sql, dbOpenDynaset)
rst![Req] = True
' listNotSelected.Requery
End Sub
--------------------------------------
tblMemberOftest is the source Table.
Any ideas why this won't work?
Shane Shane Brennan
'-----------------------
' ICQ#125948839
' Emails: sab149@icqmail.com
' shanebrennan@postmaster.co.uk
' Personal ICQ Comms. Centre: wwp.icq.com/125948839
'
' Personal WebPage: