Working with Objects

[SeaHag]

Why does this give me a runtime error 424 ... object required

Public Sub Opt(chkbox As CheckBox)
If chkbox.Value = False Then
    chkbox.Caption = "Add"
ElseIf chkbox.Value = True Then
    chkbox.Caption = "Option"
End If
 
End Sub

Seahag

[plenderj]

This works for me ...

Option Explicit
 
 
Public Sub Opt(chkbox As CheckBox)
    If Not chkbox.Value = 0 Then
        chkbox.Caption = "Box was not ticked"
    Else
        chkbox.Caption = "Box was ticked"
    End If
End Sub
 
 
Private Sub CheckBox1_Click()
    Opt CheckBox1
End Sub

[mlewis]

Are you passing it a true object box?

Also, at the beginning of the code where that routine is (form/module/etc) put this line if its not already there:

Option Explicit

This will help debug your code.