called "Risk" (label) , "Risk1" (label) , " Risktext" (text box) , "Risk1text" (text box) , "RiskButton" (button).
This is an example of the code I am trying to use
Private Sub RiskAssesment_AfterUpdate()
Set db = CurrentDb
Set rs = db.OpenRecordset("Membership Database", dbOpenDynaset)
If vbFalse(rs![RiskAssesment]) Then
Me.Risk.Visible = False
ElseIf vbTrue(rs![RiskAssesment]) Then
Me.Risk.Visible = True
End If
End Sub
but I get the error "expected array"
I have tried
If me.RiskAssesment = False Then me.Risk.Visible = False ElseIf me.RiskAssesment = True Then me.Risk.Visible = True
but it updates all records.
Please help me fix this.

New Topic/Question
Reply


MultiQuote





|