Clearing Checkbox

[Jim May]

I'm running code that Fills a Dataform <<and all fields are working fine
except for the last two items which are checkboxes: the final step should
fill in one of the two separate checkboxes on my frmPOReq, but right now
the frmPOReq is showing in some cases BOTH checkboxes checked, with one or
the other greyed out
on the form... Can someone tell me what I'm doing wrong here?

....Code before,,
If Target.Offset(0, 17).Value = "No" Then
frmPOReq.ChkNo = True
frmPOReq.ChkYes = ""
End If
If Target.Offset(0, 17).Value = "Yes" Then
frmPOReq.ChkYes = True
frmPOReq.ChkNo = ""
End If
frmPOReq.Show
End Sub

 

[Norman Jones]

Hi Jim,

Change:

frmPOReq.ChkYes = ""

to

frmPOReq.ChkYes = False

Similarly, change:

frmPOReq.ChkNo = ""

to

frmPOReq.ChkNo = False

 

[Bob Phillips]

Jim,

I don't know what is causing the problem, there must be some code we aren't
seeing. But ...

You don't need two checkboxes. If you think about it, a checkbox is just a
switch, it is either True (checked) or not True (unchecked). Yes and no are
also different switch statuses, so use one checkbox to indicate Yes
(checked) or No (unchecked)

frmPOReq.chkYesNo = (Target.Offset(0, 17).Value = "Yes")
frmPOReq.Show
End Sub

 

[Jim May]

Norman,, You nailed-it; (that was the prob)
Tks,
Jim

 

[Tom Ogilvy]

First try

If Target.Offset(0, 17).Value = "No" Then
frmPOReq.ChkNo = True
frmPOReq.ChkYes = False
End If
If Target.Offset(0, 17).Value = "Yes" Then
frmPOReq.ChkYes = True
frmPOReq.ChkNo = False
End If
frmPOReq.Show
End Sub

 

[Jim May]

Right On !! - Tks Tom

First try

If Target.Offset(0, 17).Value = "No" Then
frmPOReq.ChkNo = True
frmPOReq.ChkYes = False
End If
If Target.Offset(0, 17).Value = "Yes" Then
frmPOReq.ChkYes = True
frmPOReq.ChkNo = False
End If
frmPOReq.Show
End Sub