Either/Or Button

[ortizimo]

Basically what I need is a button to select one or the other option. Like on and off but when ON is selected if will clear OFF and viceversa. I thought this was what I needed but it won't work.

Private Sub InCollection_Click()
If InCollection = True Then
[Wishlist] = Null
Else
If Wishlist = True Then


[InCollection] = Null
End Sub

Thanks.

[pbaldy]

Have you looked at using a single field, with an option group to select which option?

[ranman256]

This looks like 2 different IFs, but your statement shows 1. Different logic.
is the [wishlist] a field on a form?
or did you want to run a query on all records?

If txtInCollection = True Then    txtWishlist = Null

if txtWishlist = True Then txtInCollection = Null

[ortizimo]

Have you looked at using a single field, with an option group to select which option?

not yet...this is my first time trying something like this and didn't knew there was a group option...thnx.

[ortizimo]

This looks like 2 different IFs, but your statement shows 1. Different logic.
is the [wishlist] a field on a form?
or did you want to run a query on all records?

If txtInCollection = True Then    txtWishlist = Null

if txtWishlist = True Then txtInCollection = Null

yes their both fields on the same form. I'm looking to have the buttons not to accept both at the same time. it has to be either InCollection and not allow the Wishlist to be checked at the same time or the other way.

[ortizimo]

Ok I did use an option group and it sorts between the two options I want the only issue is that if I click in one option the selected option is NOT checked (checkbox) or highlighted (button) even when the filtering macro does the job. I have to click twice so the option selected reflects on screen. I used the following macro...

if framStatus=1 then
ApplyFilter WHERE Condition = Incollection = true
Else
if framStatus=2 then
ApplyFilter WHERE Condition = Wishlist = true
End Sub

[pbaldy]

What event is it in? I'd use the after update event of the frame.

[ortizimo]

Solved it!

Private Sub InCollection_Click()
If InCollection.Value = True Then
Wishlist.Value = False
Else
Wishlist.Value = True
End If
End Sub

Private Sub Wishlist_Click()
If Wishlist.Value = True Then
InCollection.Value = False
Else
InCollection.Value = True
End If
End Sub

[pbaldy]

For fun, each can be done with a single line, like:

Wishlist.Value = Not InCollection.Value

[ssanfu]

I agree with Paul. Although a little harder to read, I would use

Private Sub InCollection_Click()
    Me.Wishlist = not Me.InCollection
End Sub

Private Sub Wishlist_Click()
    Me.InCollection = not Me.Wishlist
End Sub

I am guessing that Wishlist and InCollection are control on a form...... hence the "Me." ........