Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
If MsgBox("Are you sure you want to assign " & Me.lstCName & " as chair of the " & [lstComName] & " committee?", vbYesNo + vbQuestion, strAppName) = vbYes Then DoCmd.RunSQL "UPDATE tblCommitteeDetail SET tblCommitteeDetail.Chair = True WHERE [CommitteeID] = " & Me.CommitteeID.Value fDisplayPopup "Success", [lstCName] & " has been added as chair of the " & [lstComName] & " committee.", 2 End If End Sub