My recordset has several fields, SurveyRecord (numeric), SurveyReminder (yes/no ckbox) and fkMemberID (text)
On my form I have a control, SurveyDate. I want to add code to SurveyDate's AfterUpdate event.
My code should look to the specified recordset and compare the fkMemberID to the forms fkMemberID. Once it finds a match a match it needs see what number is in SurveyRecord. If SurveyRecord's number is 0 (an Even number) it needs to set SurveyReminder to True.
I've spent several days trying to come up with the correct code to work but I can't seem to get it right. I'm hoping someone will take a look at it and give me some advice.
Dim sSQL As String
Dim nR As String
Dim nReminder As Integer
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
'Update Survey Record by 1
SurveyRecord = Nz(DMax("SurveyRecord", "tblSrvRspns", "[fkMemberID] = '" & nDemoID & "'"), 0) + 1