Version =20
VersionRequired =20
Checksum =1205458157
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    NavigationButtons = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    ScrollBars =2
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =16440
    DatasheetFontHeight =10
    ItemSuffix =33
    Left =4335
    Top =2370
    Right =20775
    Bottom =10455
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x3662c9aeb985e440
    End
    RecordSource ="qry_ADAktivneu"
    Caption ="bcs group Termine versenden an AD"
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    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 =680
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x2bf4ce9b0cb77b43a9ab7204da59bcbe
            End
            Begin
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =60
                    Top =285
                    Width =1083
                    Height =240
                    FontWeight =700
                    Name ="AD_Bezeichnungsfeld"
                    Caption ="AD"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x9f98b46665a7f647bb41d86a9aa9df38
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =1200
                    Top =285
                    Width =2589
                    Height =240
                    FontWeight =700
                    Name ="Email_Bezeichnungsfeld"
                    Caption ="Email"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x654e3f601bbede429329d291fb69070c
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =3855
                    Top =285
                    Width =921
                    Height =240
                    FontWeight =700
                    Name ="Anrede_Bezeichnungsfeld"
                    Caption ="Anrede"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x792a76522f68fb40852844ed66cd38e9
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =4833
                    Top =285
                    Width =2115
                    Height =240
                    FontWeight =700
                    Name ="Vorname_Bezeichnungsfeld"
                    Caption ="Vorname"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x84f65dd20b1cf1439a04a22efdba5c1f
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =7074
                    Top =285
                    Width =2697
                    Height =240
                    FontWeight =700
                    Name ="Name_Bezeichnungsfeld"
                    Caption ="Name"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xd536b6dedefa1949b3f7fc2034b166e0
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =2
                    Left =14026
                    Top =165
                    Width =780
                    Height =465
                    FontWeight =700
                    Name ="Bezeichnungsfeld24"
                    Caption ="Terminesenden\015\012"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xa44c4c5a3416a843b129bfd151e3c46e
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =2
                    Left =14866
                    Top =165
                    Width =1110
                    Height =465
                    FontWeight =700
                    Name ="Bezeichnungsfeld25"
                    Caption ="Auswertung\015\012senden"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x0f78825117ae604e81d6f02bd7ee7cad
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =2
                    Left =13096
                    Top =165
                    Width =870
                    Height =465
                    FontWeight =700
                    Name ="Bezeichnungsfeld26"
                    Caption ="Termine\015\012Vorschau"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xebb26891ebded04e93ba1d6a4c37acbd
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =2
                    Left =9870
                    Top =285
                    Width =780
                    Height =240
                    FontWeight =700
                    Name ="Bezeichnungsfeld27"
                    Caption ="Termine"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x795d8290ea1efe4bb733289696c0b15e
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =10771
                    Top =285
                    Width =2142
                    Height =240
                    FontWeight =700
                    Name ="Bezeichnungsfeld30"
                    Caption ="Struktur"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x1132696d7cb41d4caba9f1a3f43380ec
                    End
                End
            End
        End
        Begin Section
            Height =566
            Name ="Detailbereich"
            GUID = Begin
                0xa2195683e8585140bcbe7a3191d64add
            End
            Begin
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =60
                    Top =117
                    Width =1083
                    Height =255
                    ColumnWidth =2310
                    Name ="AD"
                    ControlSource ="AD"
                    FontName ="Arial"
                    GUID = Begin
                        0x2c4bbbbe296dff4b964394a6a0eb0e8f
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =1200
                    Top =117
                    Width =2589
                    Height =255
                    ColumnWidth =3000
                    TabIndex =1
                    Name ="Email"
                    ControlSource ="Email"
                    FontName ="Arial"
                    GUID = Begin
                        0x17ff5d04682f784b82b4c918dc193096
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =3855
                    Top =117
                    Width =921
                    Height =255
                    ColumnWidth =900
                    TabIndex =2
                    Name ="Anrede"
                    ControlSource ="Anrede"
                    FontName ="Arial"
                    GUID = Begin
                        0x0777dac2bba14e4e97d45640d6a5d989
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =4833
                    Top =117
                    Width =2115
                    Height =255
                    ColumnWidth =3000
                    TabIndex =3
                    Name ="Vorname"
                    ControlSource ="Vorname"
                    FontName ="Arial"
                    GUID = Begin
                        0xcaaeba079acccb45b23d1f567faff762
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =7074
                    Top =117
                    Width =2697
                    Height =255
                    ColumnWidth =3000
                    TabIndex =4
                    Name ="Name"
                    ControlSource ="Name"
                    FontName ="Arial"
                    GUID = Begin
                        0x43e43ce013fe364c947e869ab846ead8
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =14241
                    Top =56
                    Width =456
                    Height =456
                    TabIndex =6
                    Name ="Terminesenden"
                    Caption ="Befehl19"
                    OnClick ="Mkr_TermineSenden"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadaddad000000000dada ,
                        0xad03838380780dadda0fbfbfb0000adaada0fbfbfb0dadaddad0bfbfbf0adada ,
                        0xadad0fbfbfb0adaddada03838380dadaadada07777780daddad0000000070ada ,
                        0xada0fbfbfb070daddada00000000dadaadadadadadadadaddadadadadadadada ,
                        0xadadadadadadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Makro ausführen"
                    GUID = Begin
                        0x6370a6cf28476441b5d9cdf22de15f74
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =13334
                    Top =56
                    Width =456
                    Height =456
                    TabIndex =5
                    Name ="TermineVorschau"
                    Caption ="Befehl21"
                    OnClick ="Mkr_Terminausdruckvorschau"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadada000000000000ad000ffffffffff0d000 ,
                        0x0fffffff0000700d0ffffff0788707da0fffff0788e770ad0fffff08888780da ,
                        0x0fffff08e88780ad0fffff07ee8770da0ffffff078870dad0fffffff0000dada ,
                        0x0ffffffffff0adad0fffffff0000dada0fffffff080dadad0fffffff00dadada ,
                        0x000000000dadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Berichtsvorschau"
                    GUID = Begin
                        0x4d269204eb7d6f4894432a2731459c6c
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =15316
                    Top =60
                    Width =456
                    Height =456
                    TabIndex =7
                    Name ="Auswertungsenden"
                    Caption ="Auswertungsenden"
                    OnClick ="Mkr_AuswertungSenden"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadaddad000000000dada ,
                        0xad03838380780dadda0fbfbfb0000adaada0fbfbfb0dadaddad0bfbfbf0adada ,
                        0xadad0fbfbfb0adaddada03838380dadaadada07777780daddad0000000070ada ,
                        0xada0fbfbfb070daddada00000000dadaadadadadadadadaddadadadadadadada ,
                        0xadadadadadadadad
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Makro ausführen"
                    GUID = Begin
                        0xe81b04c5d376e94e9be1e09cb036e9fa
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =2
                    IMESentenceMode =3
                    Left =9864
                    Top =117
                    Width =783
                    Height =255
                    TabIndex =8
                    Name ="Terminmenge"
                    ControlSource ="AnzahlvonStatus"
                    FontName ="Arial"
                    GUID = Begin
                        0xa03e87450bf12941aa4d7cc9c4f37c1b
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =10771
                    Top =117
                    Width =2142
                    Height =255
                    TabIndex =9
                    Name ="Struktur"
                    ControlSource ="Struktur"
                    FontName ="Arial"
                    GUID = Begin
                        0x5aeeba79e6a2ff438965a29d2a53a4fc
                    End
                End
            End
        End
        Begin FormFooter
            Height =585
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0xb965678c5d62bf4e8edbe8e610b54da1
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =15300
                    Top =30
                    Width =516
                    Height =516
                    Name ="Befehl20"
                    Caption ="Befehl20"
                    OnClick ="[Event Procedure]"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadad0dadadadadaadad00adadadadaddad030dadadadada ,
                        0xad0330adadadadad0033300000000adaa03330ff0dadadadd03300ff0adad4da ,
                        0xa03330ff0dad44add03330ff0ad44444a03330ff0d444444d03330ff0ad44444 ,
                        0xa0330fff0dad44add030ffff0adad4daa00fffff0dadadadd00000000adadada ,
                        0xadadadadadadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Formular schließen"
                    GUID = Begin
                        0x73a4b35ed4711c4cac5018cd23508dbe
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =855
                    Top =30
                    Width =2697
                    Height =516
                    FontSize =12
                    FontWeight =700
                    TabIndex =1
                    Name ="TerminDatum"
                    ControlSource ="MinvonDatum"
                    Format ="Short Date"
                    FontName ="Arial"
                    GUID = Begin
                        0xd90b559bf6a14e4abc11edb205172cf0
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =9870
                    Top =30
                    Width =783
                    Height =510
                    FontSize =12
                    FontWeight =700
                    TabIndex =2
                    Name ="Text29"
                    ControlSource ="=Sum([AnzahlvonStatus])"
                    FontName ="Arial"
                    GUID = Begin
                        0xa8d2ebb38773e64b865607019bda41fe
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Width =783
                    Height =510
                    FontSize =12
                    FontWeight =700
                    TabIndex =3
                    Name ="Text32"
                    ControlSource ="=Count([AD])"
                    FontName ="Arial"
                    GUID = Begin
                        0xf0f334245fae8d4da0e0195fa8ad012c
                    End
                End
            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 Alle_Termine_senden_Click()
On Error GoTo Err_Alle_Termine_senden_Click

    Dim stDocName As String

    stDocName = "Mkr_TermineSenden"
    DoCmd.RunMacro stDocName

Exit_Alle_Termine_senden_Click:
    Exit Sub

Err_Alle_Termine_senden_Click:
    MsgBox Err.Description
    Resume Exit_Alle_Termine_senden_Click
    
End Sub

Private Sub Termine_senden_Click()

End Sub
Private Sub Befehl19_Click()
On Error GoTo Err_Befehl19_Click

    Dim stDocName As String

    stDocName = "Mkr_TermineSenden"
    DoCmd.RunMacro stDocName

Exit_Befehl19_Click:
    Exit Sub

Err_Befehl19_Click:
    MsgBox Err.Description
    Resume Exit_Befehl19_Click
    
End Sub
Private Sub Befehl20_Click()
On Error GoTo Err_Befehl20_Click


    DoCmd.Close

Exit_Befehl20_Click:
    Exit Sub

Err_Befehl20_Click:
    MsgBox Err.Description
    Resume Exit_Befehl20_Click
    
End Sub
Private Sub Befehl21_Click()
On Error GoTo Err_Befehl21_Click

    Dim stDocName As String

    stDocName = "rpt_TerminausdruckAutosenden"
    DoCmd.OpenReport stDocName, acPreview

Exit_Befehl21_Click:
    Exit Sub

Err_Befehl21_Click:
    MsgBox Err.Description
    Resume Exit_Befehl21_Click
    
End Sub