Eigentlich m.E. nichts besonderes.

Im Hauptformular gibt eine Checkbox und ein Textfeld, in dem steht was ausgeführt werden soll.

Setzt man nur den Haken in der Checkbox wird dieser vom Timer wieder auf 0 gesetzt.

Schon das funktioniert nicht mehr, wenn ein gebundenes Textfeld im Formularkopf des UFo steht.

Private Sub Form_Timer()

   On Error Resume Next
    
     Me.TimerInterval = 0   
      NB
     Me.TimerInterval = Me.Tag

Exit Sub

Private Function NB()
   
   On Error GoTo Err
   
Start:

    If Me.cbxInit Then
        GoTo Init
    ElseIf Me.txtflag Then
        GoTo flag
    Else
        GoTo Ende
    End If
    GoTo Ende
   
Init:

  Me.cbxInit = False

  Select case me.txtFlag

     Case "ergeignis1"

       'irgendetwas

     Case else

  End select

Ende:
    Me.txtflag = 0
    Exit Function
    
flag:
    Me.txtflag = 0
    GoTo Ende

Err:
    Select Case Err.Number
        Case Else
            DoCmd.Hourglass False
            MsgBox Err.Number & ": " & Err.Description, vbCritical
            Resume Ende
    End Select
    
    
End Function