Public Sub ARAUYARI()
On Error Resume Next
For Each objeler In Form.Controls
    If objeler.ControlType = 106 Then 'Nesne bir checkboxsa
        say = say + 1
        If objeler.Value = 1 Then Exit Sub
    End If
Next objeler
Select Case say
    Case 1
        Me.Etiket29.Caption = "Müşteri İsmine Göre Arama..."
    Case 2
        Me.Etiket29.Caption = "Müşteri Koduna Göre Arama..."
    Case 3
        Me.Etiket29.Caption = "Tarihe Göre Arama..."
    Case 4
        Me.Etiket29.Caption = "TC Numarasına Göre Arama..."
End Select
End Sub
 
Private Sub Onay1__GotFocus()
Call ARAUYARI
End Sub
.
.
.

Private Sub Form_load() 
If Me.chkNesnesi= True Then  'Eğer işaretliyse
msgbox "İşaretlendi"
else
If Me.chkNesnesi= FalseThen  'Eğer işaretli değilse
msgbox "İşaretlenmedi"
End If