Version =20
VersionRequired =20
Checksum =1410189770
Begin Form
    PopUp = NotDefault
    AutoCenter = NotDefault
    AllowDeletions = NotDefault
    AllowAdditions = NotDefault
    OrderByOn = NotDefault
    AllowDesignChanges = NotDefault
    TabularFamily =48
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =12816
    DatasheetFontHeight =10
    ItemSuffix =25
    Left =1575
    Top =1905
    Right =30060
    Bottom =14790
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x98ec6346f0b7e440
    End
    RecordSource ="qry_ADistTaetig"
    Caption ="qry_ADistTaetig"
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    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 =354
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x53e3f6e1701628409f4908776980ca8b
            End
            Begin
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =57
                    Top =57
                    Width =2085
                    Height =225
                    Name ="AD_Bezeichnungsfeld"
                    Caption ="AD"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xfe5f1c2c4013254cb2b4ad62b5db6612
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =2265
                    Top =57
                    Width =1353
                    Height =225
                    Name ="taetig_von_Bezeichnungsfeld"
                    Caption ="taetig_von"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x954eb903fe2e094ea4c04ef00353c471
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =3750
                    Top =57
                    Width =1638
                    Height =225
                    Name ="taetig_bis_Bezeichnungsfeld"
                    Caption ="taetig_bis"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x46abdfbe7339484fad331842121ec713
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =5490
                    Top =57
                    Width =1038
                    Height =225
                    Name ="verkaeufertyp_Bezeichnungsfeld"
                    Caption ="verkaeufertyp"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x30e7e40eb11fe649abedc84f1341a9e0
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =6630
                    Top =57
                    Width =2166
                    Height =225
                    Name ="letzter vereinbarter Termin_Bezeichnungsfeld"
                    Caption ="letzter vereinbarter Termin"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="letzter_vereinbarter_Termin_Bezeichnungsfeld"
                    GUID = Begin
                        0xf6d303daeb227f4dabe0b4394ec251bd
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =8895
                    Top =60
                    Width =1140
                    Height =225
                    Name ="Bezeichnungsfeld18"
                    Caption ="Anzahl AD:"
                    GUID = Begin
                        0x7b44974d6bcb3c4a91c916d5f203a504
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =10260
                    Top =60
                    Width =1140
                    Height =225
                    Name ="Bezeichnungsfeld22"
                    Caption ="Unit"
                    GUID = Begin
                        0xa4bc802423dedd428d544cdcd55d43f5
                    End
                End
            End
        End
        Begin Section
            Height =453
            Name ="Detailbereich"
            GUID = Begin
                0xee8d7cfcaf4e374b9c049bb40dcd5f73
            End
            Begin
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =60
                    Top =117
                    Width =2085
                    ColumnWidth =2310
                    TabIndex =1
                    Name ="AD"
                    ControlSource ="AD"
                    GUID = Begin
                        0x536a23a4218631418bbbc60252a216bf
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2268
                    Top =117
                    Width =1353
                    ColumnWidth =1035
                    TabIndex =2
                    Name ="taetig_von"
                    ControlSource ="taetig_von"
                    GUID = Begin
                        0x0955e0cc2434ef4d913b5986c72cc455
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =3753
                    Top =117
                    Width =1638
                    ColumnWidth =1035
                    TabIndex =3
                    Name ="taetig_bis"
                    ControlSource ="taetig_bis"
                    GUID = Begin
                        0x942e71182b67c34e8f76116afafd53a3
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =5493
                    Top =117
                    Width =1038
                    ColumnWidth =900
                    TabIndex =4
                    Name ="verkaeufertyp"
                    ControlSource ="verkaeufertyp"
                    GUID = Begin
                        0x1e9d54c9c7b03d4f8f23d3b5311d4694
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =6633
                    Top =117
                    Width =2166
                    ColumnWidth =1035
                    TabIndex =5
                    Name ="letzter vereinbarter Termin"
                    ControlSource ="letzter vereinbarter Termin"
                    EventProcPrefix ="letzter_vereinbarter_Termin"
                    GUID = Begin
                        0x81f7b867d195dc46b67a5b851303c842
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =8898
                    Top =120
                    Width =1206
                    Height =225
                    TabIndex =6
                    Name ="Anzahl AD"
                    ControlSource ="Anzahl AD"
                    EventProcPrefix ="Anzahl_AD"
                    GUID = Begin
                        0xeed9a9d11faa0242a2bcb5fbba9b46ee
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =12063
                    Top =60
                    Width =351
                    Height =351
                    Name ="Befehl20"
                    Caption ="Befehl20"
                    OnClick ="[Event Procedure]"
                    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
                        0x1b9a46348839e24f97133a014e9d1f82
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =10263
                    Top =120
                    Width =1206
                    Height =225
                    TabIndex =7
                    Name ="Text23"
                    ControlSource ="name_mef"
                    GUID = Begin
                        0x620f474c6ba9a84ebc05700e6e25c941
                    End
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x312519297ede5044a277f015c0a53916
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =11055
                    Top =60
                    Height =343
                    Name ="Befehl19"
                    Caption ="Alle ausdrucken"
                    OnClick ="Mkr_AlleADausdrucken"
                    GUID = Begin
                        0x3e7614380d9c624cada4cf29630ac154
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =120
                    Top =60
                    Width =456
                    Height =456
                    TabIndex =1
                    Name ="Befehl21"
                    Caption ="Befehl21"
                    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
                        0x0431fbb6891973488d6a33766e469e8c
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3118
                    Top =56
                    Width =2437
                    Height =397
                    TabIndex =2
                    Name ="Befehl24"
                    Caption ="AD in Excel ausgeben"
                    OnClick ="Mkr_qry_ADistTaetig"
                    GUID = Begin
                        0x795eb27536b44345a4c1517c99952291
                    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 Befehl20_Click()
On Error GoTo Err_Befehl20_Click

    Dim stDocName As String

    stDocName = "Mkr_24Terminedruck1Ansicht"
    DoCmd.RunMacro stDocName

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


    DoCmd.Close

Exit_Befehl21_Click:
    Exit Sub

Err_Befehl21_Click:
    MsgBox Err.Description
    Resume Exit_Befehl21_Click
    
End Sub