Error 424: Object Required - Option Buttons in If statements

[TheDadliestDad]

Hello!

I want to say I'm missing something very small here, but I could be wrong, haha. Basic backstory here is that I am trying to build a Kanban system for our machine parts. I'm building a skeleton of the logic to get the proof of concept across to my team, but I'm running into a weird issue at my first ElseIf statement.

Here is what my GUI looks like that I've created:

Here is my VBA Code:

Private Sub ExecuteButton_Click()
    
    Dim database As ListObject
    Dim FoundBin As Range
    Dim LookupBin As String
    
    Worksheets("Database").Activate
    
    Set database = ActiveSheet.ListObjects("Database")

    If optTakingPart.Value Then
    
        'do taking a part logic
        MsgBox "You are Taking a Part"
    
    ElseIf optAddingPart.Value Then
    
        'do adding a part logic
        MsgBox "You are Adding a Part"
    
    ElseIf optFindMyPart.Value Then
    
        'do finding a part logic
        MsgBox "You are Finding a Part"
    
    End If

    Worksheets("GUI").Activate
    TextBox1.Text = ""
End Sub

For this proof of concept I'm trying to just get a different message to display when each radio button is selected and the go button is clicked. As an example:

The above message box displays when I have the first radio button selected, but when I have either of the other two selected I get an error shown below...

If anyone can help I would greatly appreciate it. I'm not unfamiliar with vba in excel, but it's been a little while since I used it last.

Thank you!

 

[Wookiee]

Can I suggest doing a check of which options are checked before proceeding? Something like this:

Dim lngSelections As Long

If optTakingPart Then lngSelections = lngSelections + 1
If optAddingPart Then lngSelections = lngSelections + 1
If optFindMyPart Then lngSelections = lngSelections + 1

If lngSelections < 1 Then

   MsgBox "You must select an action!", _
      vbCritical + vbOKOnly, "No, yo"
   Exit Sub
   
End If

If lngSelections > 1 Then

   MsgBox "You can only select ONE action to perform!", _
      vbCritical + vbOKOnly, "No, yo"
   Exit Sub
   
End If

 

[TheDadliestDad]

Hi Wookiee!

Thanks so much for your prompt reply. What you had suggested worked just fine, but it had set me on the right path to figuring out what was wrong with the first method. Your method initially wasn't working either for the second option of adding a part to the database, so I looked and found that the name was not exactly correct on my code. I had referenced the option button in my code as optAddingPart, but it should've been optAddingParts. I fixed that and it works beautifully. I'm sorry I didn't notice it sooner, but I'm glad your method help me find what was wrong!

Thanks so much!

 

[Wookiee]

That's awesome! I'm glad I was able to help.