Version =20
VersionRequired =20
Checksum =1451288612
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    NavigationButtons = NotDefault
    CloseButton = NotDefault
    AllowDesignChanges = NotDefault
    ScrollBars =2
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =11338
    DatasheetFontHeight =10
    ItemSuffix =32
    Left =390
    Top =9750
    Right =20640
    Bottom =17235
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x8bf43f97db5de440
    End
    RecordSource ="qry_PLZMengeNeuneu2"
    Caption ="bcs group PLZ Menge"
    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 =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0xa30aa62afc11474a8c1733095f1a006f
            End
            Begin
                Begin Label
                    OverlapFlags =85
                    TextAlign =2
                    Left =59
                    Top =225
                    Width =966
                    Height =285
                    FontSize =9
                    FontWeight =700
                    Name ="PLZ_Bezeichnungsfeld"
                    Caption ="PLZ"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xdba4dd531e88054890665e23f1204773
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =2
                    Left =1133
                    Top =225
                    Width =855
                    Height =285
                    FontSize =9
                    FontWeight =700
                    Name ="Bezeichnungsfeld25"
                    Caption ="Menge"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x76c321db6b89e440a3df264f55709a36
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =2
                    Left =2043
                    Top =225
                    Width =2196
                    Height =285
                    FontSize =9
                    FontWeight =700
                    Name ="Ort"
                    Caption ="Ort"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x49ed8a21ad40d944b9bfc25c8cc747fe
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =2
                    Left =4350
                    Top =225
                    Width =4725
                    Height =285
                    FontSize =9
                    FontWeight =700
                    Name ="Bezeichnungsfeld29"
                    Caption ="Stadtteil / Routeninfo"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x8ec610fc9f06c5458a59dff0cef88ca3
                    End
                End
            End
        End
        Begin Section
            Height =689
            Name ="Detailbereich"
            GUID = Begin
                0xbf3ca85f6c65754e83a248a9a8b5aea3
            End
            Begin
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OldBorderStyle =0
                    BorderWidth =3
                    OverlapFlags =85
                    TextAlign =2
                    BackStyle =0
                    IMESentenceMode =3
                    Left =56
                    Top =57
                    Width =966
                    Height =270
                    ColumnWidth =3000
                    FontSize =9
                    Name ="PLZ"
                    ControlSource ="PLZ"
                    FontName ="Arial"
                    GUID = Begin
                        0xa49ded12400e73408cd9ba3fc19e4586
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OldBorderStyle =0
                    BorderWidth =3
                    OverlapFlags =85
                    TextAlign =2
                    BackStyle =0
                    IMESentenceMode =3
                    Left =1148
                    Top =57
                    Width =816
                    Height =270
                    FontSize =9
                    TabIndex =1
                    Name ="Text26"
                    ControlSource ="AnzahlvonPLZ"
                    FontName ="Arial"
                    GUID = Begin
                        0xcfb7e75244b57f42b8cfbcb7f39320f1
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OldBorderStyle =0
                    BorderWidth =3
                    OverlapFlags =85
                    TextAlign =2
                    BackStyle =0
                    IMESentenceMode =3
                    Left =2040
                    Top =57
                    Width =2196
                    Height =270
                    FontSize =9
                    TabIndex =2
                    Name ="Text28"
                    ControlSource ="Ort"
                    FontName ="Arial"
                    GUID = Begin
                        0x20bf8246c5f94d4f840a48dcbe974161
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =9195
                    Top =60
                    Width =1881
                    Height =315
                    TabIndex =4
                    Name ="Befehl31"
                    Caption ="Routeninfo einfügen"
                    OnClick ="[Event Procedure]"
                    ObjectPalette = Begin
                        0x0003000100000000bf00000000bf0000bfbf00000000bf00bf00bf0000bfbf00 ,
                        0xc0c0c000c0dcc000a4c8f0000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x00000000000000000000000000000000000000000000000000000000fffbf000 ,
                        0xa0a0a40080808000ff00000000ff0000ffff00000000ff00ff00ff0000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Abfrage ausführen"
                    GUID = Begin
                        0xf0a19c6b88e7164b81e9f1152c0fa120
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    RowSourceTypeInt =1
                    SpecialEffect =0
                    OldBorderStyle =0
                    BorderWidth =3
                    OverlapFlags =85
                    TextAlign =2
                    IMESentenceMode =3
                    Left =4365
                    Top =57
                    Width =4686
                    Height =285
                    FontSize =9
                    TabIndex =3
                    GUID = Begin
                        0xf895b902b4f33b4e8562e112baacd249
                    End
                    Name ="Routeninfo"
                    RowSourceType ="Value List"
                    RowSource ="\"Route 1\";\"Route 2\";\"Route 3\";\"Route4\";\"Route 5\";\"Route 6\""
                    FontName ="Arial"
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x22ec6ac7a9e117439202c0289c5550c3
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =56
                    Top =56
                    Width =516
                    Height =456
                    Name ="Befehl12"
                    Caption ="Befehl12"
                    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
                        0xcf5b5483b95b3e46ba6a2339d165f13c
                    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 Befehl12_Click()
On Error GoTo Err_Befehl12_Click


    DoCmd.Close

Exit_Befehl12_Click:
    Exit Sub

Err_Befehl12_Click:
    MsgBox Err.Description
    Resume Exit_Befehl12_Click
    
End Sub
Private Sub Befehl13_Click()
On Error GoTo Err_Befehl13_Click

    Dim stDocName As String

    stDocName = "Mkr_AgentAnlegen"
    DoCmd.RunMacro stDocName

Exit_Befehl13_Click:
    Exit Sub

Err_Befehl13_Click:
    MsgBox Err.Description
    Resume Exit_Befehl13_Click
    
End Sub
Private Sub Befehl31_Click()
On Error GoTo Err_Befehl31_Click

    Dim stDocName As String

    stDocName = "qry_Routeninfo2"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Befehl31_Click:
    Exit Sub

Err_Befehl31_Click:
    MsgBox Err.Description
    Resume Exit_Befehl31_Click
    
End Sub