Fjern focus

Option Compare Database
Option Explicit

Private Sub IndsaetTirsdag_Click()
If Form_Listeform.RestMedarbejdereTirsdag <> " " Then
    If IsNull(Me.Tirsdag) Then      'Fra kombiboks til subform
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE listemedarbejderdag SET tirsdagbox = false WHERE tirsdagmedarbnr=" & Form_Listeform.RestMedarbejdereTirsdag.Column(0)
    Me.Tirsdag = Form_Listeform.RestMedarbejdereTirsdag.Column(1)
    Me.TirsdagKKB = Form_Listeform.RestMedarbejdereTirsdag.Column(8)
    Me.TirsdagMnr = Form_Listeform.RestMedarbejdereTirsdag.Column(0)
    Form_Listeform.RestMedarbejdereTirsdag.Requery
    Else                            'Fra kombiboks til subform og fra subform til liste
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE listemedarbejderdag SET tirsdagbox = true WHERE tirsdagmedarbnr=" & Me.TirsdagMnr
    Me.Tirsdag = Form_Listeform.RestMedarbejdereTirsdag.Column(1)
    Me.TirsdagKKB = Form_Listeform.RestMedarbejdereTirsdag.Column(8)
    Me.TirsdagMnr = Form_Listeform.RestMedarbejdereTirsdag.Column(0)
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE listemedarbejderdag SET tirsdagbox = false WHERE tirsdagmedarbnr=" & Form_Listeform.RestMedarbejdereTirsdag.Column(0)
    Form_Listeform.RestMedarbejdereTirsdag.Requery
    Form_Listeform.ListeTirsdag.Requery
    End If
Else
    If IsNull(Form_Listeform.ListeTirsdag.Column(0)) Then
        If IsNull(Me.Tirsdag) Then  'intet valgt
            MsgBox "Der er ikke valgt nogen medarbejder", , "Tholstrup Cheese A/S"
        Else                        'Medarbejder valgt i subform
            DoCmd.SetWarnings False
            DoCmd.RunSQL "UPDATE listemedarbejderdag SET tirsdagbox = true WHERE tirsdagmedarbnr=" & Me.TirsdagMnr
            Form_Listeform.ListeTirsdag.Requery
            Me.Tirsdag = Null
            Me.TirsdagKKB = Null
            Me.TirsdagMnr = Null
        End If
    Else
        If IsNull(Me.Tirsdag) Then  'Medarbejder valgt på listen
            Me.Tirsdag = Form_Listeform.ListeTirsdag.Column(1)
            Me.TirsdagKKB = Form_Listeform.ListeTirsdag.Column(2)
            Me.TirsdagMnr = Form_Listeform.ListeTirsdag.Column(0)
            DoCmd.SetWarnings False
            DoCmd.RunSQL "UPDATE listemedarbejderdag SET tirsdagbox = false WHERE tirsdagmedarbnr=" & Form_Listeform.ListeTirsdag.Column(0)
            Form_Listeform.ListeTirsdag.Requery
        Else                        'Medarbejder valgt på listen og i subformen
            DoCmd.SetWarnings False
            DoCmd.RunSQL "UPDATE listemedarbejderdag SET tirsdagbox = true WHERE tirsdagmedarbnr=" & Me.TirsdagMnr
            Me.Tirsdag = Form_Listeform.ListeTirsdag.Column(1)
            Me.TirsdagKKB = Form_Listeform.ListeTirsdag.Column(2)
            Me.TirsdagMnr = Form_Listeform.ListeTirsdag.Column(0)
            DoCmd.SetWarnings False
            DoCmd.RunSQL "UPDATE listemedarbejderdag SET tirsdagbox = false WHERE tirsdagmedarbnr=" & Form_Listeform.ListeTirsdag.Column(0)
            Form_Listeform.ListeTirsdag.Requery
        End If
    End If
End If
End Sub

Med andre ord hvis jeg har valgt noget i kombinationsboksen og flyttet det til subformen, det går fint. Hvis jeg så vil flytte noget fra listen, så stopper koden i den afdeling hvor Form_Listeform.RestMedarbejdereTirsdag <> " " men der er ikke markeret noget i Form_Listeform.RestMedarbejdereTirsdag?

Ok jeg prøver på en anden måde...