Version =20
VersionRequired =20
Checksum =-651726299
Begin Form
    AutoResize = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    NavigationButtons = NotDefault
    AllowDeletions = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowAdditions = NotDefault
    AllowEdits = NotDefault
    AllowDesignChanges = NotDefault
    ViewsAllowed =1
    BorderStyle =0
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =4478
    ItemSuffix =33
    Left =-1530
    Top =9420
    Right =2955
    Bottom =19065
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x43318c465bafe340
    End
    RecordSource ="qryAgentOnline"
    Caption ="bcs group Agent Online"
    DatasheetFontName ="Arial"
    Moveable =0
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            BackColor =-2147483633
            ForeColor =-2147483630
        End
        Begin Rectangle
            SpecialEffect =3
            BackStyle =0
            Width =850
            Height =850
        End
        Begin Line
            Width =1701
        End
        Begin Image
            BackStyle =0
            OldBorderStyle =0
            PictureAlignment =2
            Width =1701
            Height =1701
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin OptionButton
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin CheckBox
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin OptionGroup
            SpecialEffect =3
            Width =1701
            Height =1701
        End
        Begin BoundObjectFrame
            SpecialEffect =2
            OldBorderStyle =0
            BackStyle =0
            Width =4536
            Height =2835
            LabelX =-1701
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
            AsianLineBreak =255
        End
        Begin ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin UnboundObjectFrame
            SpecialEffect =2
            OldBorderStyle =1
            Width =4536
            Height =2835
        End
        Begin ToggleButton
            Width =283
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin Tab
            BackStyle =0
            Width =5103
            Height =3402
        End
        Begin FormHeader
            Height =396
            Name ="Formularkopf"
            GUID = Begin
                0x9d71b960cc3d7a4d938066a48beb0403
            End
            Begin
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =120
                    Top =90
                    Width =1140
                    Height =255
                    Name ="KD_NR_Bezeichnungsfeld"
                    Caption ="Mitarbeiter "
                    FontName ="Arial"
                    GUID = Begin
                        0xdba01a271cbd274a8d265799ea6b01cc
                    End
                End
                Begin CommandButton
                    TabStop = NotDefault
                    OverlapFlags =85
                    Left =4035
                    Top =60
                    Width =351
                    Height =306
                    Name ="Befehl32"
                    Caption ="Befehl12"
                    OnClick ="MkrFilterSortierungEntfernen"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadaddad0d0d0d0dadada ,
                        0xadadadada00dadaddadadadad000dadaadadadada0b70daddadadadad0b80ada ,
                        0xadadadadad0b70addada000ada0b80daadad060dada0b70ddada080adad0b00a ,
                        0xadad080dadad0110dad08860dada000aad0888860dadadadd06ff88860dadada ,
                        0x00000000000dadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Makro ausführen"
                    GUID = Begin
                        0x183cfd850b05f841a4d25b99ac2fc3e7
                    End
                End
            End
        End
        Begin Section
            Height =340
            BackColor =16777164
            Name ="Detailbereich"
            GUID = Begin
                0x11d34695158b254289629ad3ee81d81b
            End
            Begin
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =120
                    Top =30
                    Width =2430
                    Height =255
                    ColumnWidth =810
                    BackColor =16777164
                    ForeColor =0
                    Name ="Benutzername"
                    ControlSource ="Benutzername"
                    FontName ="Arial"
                    ConditionalFormat = Begin
                        0x0100000096000000010000000100000000000000000000001a00000001000000 ,
                        0xff000000ccffff00000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x5b005300740061007400750073005d003d00220049006e002000420065007300 ,
                        0x7000720065006300680075006e006700220000000000
                    End
                    GUID = Begin
                        0x850048710f648a44900cfaa05b21f84d
                    End
                End
                Begin CommandButton
                    TabStop = NotDefault
                    OverlapFlags =85
                    Left =4020
                    Top =30
                    Width =351
                    Height =306
                    TabIndex =1
                    Name ="Befehl12"
                    Caption ="Befehl12"
                    OnClick ="MkrNachrichtSendenOeffnen"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadaddadadadadadadada ,
                        0x000000000000000d0fffffffffffff0a0ffff44444ffff0d0fffffffffffff0a ,
                        0x0ffff444444fff0d0fffffffffffff0a0ffffffffff11f0d0f0000fffff11f0a ,
                        0x0fffffffffffff0d000000000000000aadadadadadadadaddadadadadadadada ,
                        0xadadadadadadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Makro ausführen"
                    GUID = Begin
                        0xad377854e2d13344babb666a71c0a936
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2655
                    Top =30
                    Width =1245
                    Height =255
                    TabIndex =2
                    BackColor =16777164
                    ForeColor =0
                    Name ="Status"
                    ControlSource ="=IIf([Online]=1,\"Online\",\"In Besprechung\")"
                    FontName ="Arial"
                    ConditionalFormat = Begin
                        0x0100000096000000010000000100000000000000000000001a00000001000000 ,
                        0xff000000ccffff00000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x5b005300740061007400750073005d003d00220049006e002000420065007300 ,
                        0x7000720065006300680075006e006700220000000000
                    End
                    GUID = Begin
                        0x9e0349b0c6425f4693d79fd0d8110d7b
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2580
                    Top =60
                    Width =51
                    Height =60
                    TabIndex =3
                    Name ="Online"
                    ControlSource ="Online"
                    GUID = Begin
                        0x6ec3f07993630c4e88739383a7599228
                    End
                End
            End
        End
        Begin FormFooter
            Height =0
            BackColor =-2147483633
            Name ="Formularfuß"
            GUID = Begin
                0xdedb68600df8ce43838e4c25cdd670a2
            End
        End
    End
End
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database

Private Sub KD_NR_Click()

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_HauptTerminierungWV"
    
    stLinkCriteria = "[KD_NR]=" & Me![KD_NR]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_WV_ansteuern_Click:
    Exit Sub
    
     

Err_WV_ansteuern_Click:
    MsgBox Err.Description
    Resume Exit_WV_ansteuern_Click


    
End Sub

Private Sub Status_Click()
On Error GoTo Err_Befehl24_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_HauptTerminierungWV"
    
    stLinkCriteria = "[Status]=" & "'" & Me![Status] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Befehl24_Click:
    Exit Sub

Err_Befehl24_Click:
    MsgBox Err.Description
    Resume Exit_Befehl24_Click


End Sub

Private Sub Status_Enter()
 Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_HauptTerminierungWV"
    
    stLinkCriteria = "[Status]=" & "'" & Me![Status] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Befehl24_Click:
    Exit Sub

Err_Befehl24_Click:
    MsgBox Err.Description
    Resume Exit_Befehl24_Click
    
End Sub