'Klick_Ereignis der Checkbox abfragen
Private Sub Check1_Click()
 
  'Wenn gedrückt, dann "OK", wenn nicht, dann "hmmpf"
  If Me.Check1.Value = 1 Then
      MsgBox "ok"
  Else
      MsgBox "hmmpf"
  End If
 
End Sub

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.