I'm trying to filter by option group

[Delta729]

I'm just trying to learn a little bit of information after suffering a stroke that left me pretty much disabled. I started working on the a few years ago while at a job I had already moved to, and as of a few day ago, I've picked up my attempts again. So, please be nice, lol.



In the attached database I'm working on in the form [RegionPOFrm], I had it working when I had not included the option group, and had just put a "false" like the following:

SELECT PurchaseOrderTbl.PuhaseOrderID, PurchaseOrderTbl.PurchaseOrder, PurchaseOrderTbl.Inactive, PurchaseOrderTbl.StartDate, PurchaseOrderTbl.EndDate, PurchaseOrderTbl.Region, PurchaseOrderTbl.Vendor
FROM PurchaseOrderTbl
WHERE (((PurchaseOrderTbl.Inactive)=False));

However, I realized that I could give the user the selection option if I put in a option group, by selecting "Active", "Inactive", or both. I've turned myself completely around and got more confused than I a normally. Could someone let me know how to fix this? I hope that made sense.

[CJ_London]

Just use a check box which will use true or false. Option groups use 1, 2, 3 etc so you can use that with something like

Where inactive = forms!myform!myoptiongroup - 2 or forms!myform!myptiongroup=3

Assumes you have assigned 1 to active and 2 to inactive and 3 to both

[Delta729]

Something like:

SELECT PurchaseOrderTbl.PuhaseOrderID, PurchaseOrderTbl.PurchaseOrder, PurchaseOrderTbl.Inactive, PurchaseOrderTbl.StartDate, PurchaseOrderTbl.EndDate, PurchaseOrderTbl.Region, PurchaseOrderTbl.Vendor
FROM PurchaseOrderTbl
WHERE (((PurchaseOrderTbl.Inactive)=[forms]![RegionPOFrm]![Frame1]));

That doesn't do anything, so I'm sure I'm messing this up.

[Bob Fitz]

Perhaps something like this:

[Delta729]

Perfect! Thank you so much. I see how the changes work and what I was wrong.
Thanks again.

[ssanfu]

Here is (IMHO) better code for moving Previous/Next:

Private Sub cmdPrior_Click()
    On Error GoTo HandleIt

    DoCmd.GoToRecord , , acPrevious

cmdPrior_Click:
    Exit Sub

HandleIt:
    If Err.Number = 2105 Then
        MsgBox "You are at the first Region - for Entering Puchase Orders!"
        DoCmd.GoToRecord , , acFirst
    End If
    Resume cmdPrior_Click
End Sub

Private Sub cmdNext_Click()
    On Error GoTo HandleIt
    
    DoCmd.GoToRecord , , acNext
    
cmdNext_Click:
    Exit Sub

HandleIt:
    If Err.Number = 2105 Then
        MsgBox "You are at the last Region - for Entering Puchase Orders!"
        DoCmd.GoToRecord , , acLast
    End If
    Resume cmdNext_Click
End Sub

Also, I think most developers steer away from using Navigation Forms because they are very limiting. It is much easier to just use normal forms and create your own "Navigation" system.

[Delta729]

I definitely agree with that info about the Navigation forms, I'm a complete novice and I figured that out. LOL

I'm just getting my Navigation form to work, so I'll come back to try this again with creating my own Navigation system. I have no idea how to do that, but sounds like fun. I didn't even think about he code for the next and prior buttons. I see that you are referring to error code 2105. I'll have to look that up to see what that's for.

Thanks,
Daniel

[Micron]

I see that you are referring to error code 2105. I'll have to look that up to see what that's for.

I LIKE that attitude/approach!!

[ssanfu]

I am in total agreement...