OpenRecordset Where problem
Posted on 2006-05-04
I am trying to test to to make sure that a candidate has attended an orientation. If they have move forward... If not, Stop... give a message. I can get it to work for all candidates Attended or not. Or I can get it to work for none. Any Ideas?
varDone = "[Orient_Status] <> 'Attended'"
Set rst4 = DBEngine(0)(0).OpenRecordset("Select * From tblOrientation WHERE " & varDone)
If rst4.RecordCount <> 0 And Me.Status.Value = "Accepted" Then
MsgBox "A Orientation Date has not been entered for " & Me.First_Name & varDone, vbInformation, "Job Order"
Me.Status = Me.Status.OldValue