Trying to edit a field after the record has been selected

[Mechele]

What is wrong with the following code?


Private Sub Memid_AfterUpdate()
Dim rs As Recordset
Dim StrSQL As String
Dim CurrentDB As Database

Set StrSQL = CurrentDB.OpenRecordset("Clinical")
rs = StrSQL
rs.FindFirst "[MemberName]='" & [Forms]![MembershipUpdateForm]![Combo16] & "'"
rs.Edit
Memid = Me!Memid
rs.Update
End Sub


I get an error message "Object Required" and it highlights Set STRSQL=

 

[antomack]

You haven't actually opened the recordset. Try the following

Private Sub Memid_AfterUpdate()
Dim rs As Recordset
Dim StrSQL As String
Dim db1 As Database

set db1 = currentdb
Set rs = db1.OpenRecordset("Clinical")
rs.FindFirst "[MemberName]='" & [Forms]!MembershipUpdateForm]![Combo16] & "'"
rs.Edit
Memid = Me!Memid
rs.Update
End Sub