Version =20
VersionRequired =20
Checksum =-46175094
Begin Form
    PopUp = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    TabularFamily =0
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =14683
    DatasheetFontHeight =10
    ItemSuffix =10
    Left =1575
    Top =2295
    Right =25335
    Bottom =19710
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xb4e992c5f2c4e440
    End
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin FormHeader
            Height =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x8050dbadb8371649814109c2b444775e
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =11340
            Name ="Detailbereich"
            GUID = Begin
                0xc61ce91700f41e4095df3d88d4f46167
            End
            Begin
                Begin Subform
                    OverlapFlags =85
                    Left =283
                    Top =56
                    Width =4605
                    Height =11280
                    Name ="qry_PlzPrio"
                    SourceObject ="Form.frmPLZprio"
                    GUID = Begin
                        0xff103085d0459a419ebd0ff53f55d549
                    End
                End
                Begin Subform
                    OverlapFlags =85
                    Left =5100
                    Top =60
                    Width =4485
                    Height =11280
                    TabIndex =1
                    Name ="qry_PLZprioKunden_WVaktiv_AnzahlPLZ Unterformular"
                    SourceObject ="Form.qry_PLZprioKunden_WVaktiv_AnzahlPLZ Unterformular"
                    EventProcPrefix ="qry_PLZprioKunden_WVaktiv_AnzahlPLZ_Unterformular"
                    GUID = Begin
                        0x5c5533caf9de974389d5354d80ecfafb
                    End
                End
                Begin Subform
                    OverlapFlags =85
                    Left =9870
                    Top =60
                    Width =4605
                    Height =1080
                    TabIndex =2
                    Name ="qry_PLZprioKunden_WVaktiv_AnzahlGesamt Unterformular"
                    SourceObject ="Form.qry_PLZprioKunden_WVaktiv_AnzahlGesamt Unterformular"
                    EventProcPrefix ="qry_PLZprioKunden_WVaktiv_AnzahlGesamt_Unterformular"
                    GUID = Begin
                        0x2da3eaa716b5d84eaf9708bdcae6f3ad
                    End
                End
                Begin Subform
                    OverlapFlags =85
                    Left =9870
                    Top =1485
                    Width =4605
                    Height =1065
                    TabIndex =3
                    Name ="qry_PLZprioKunden_WVaktivJetzGesamt Unterformular"
                    SourceObject ="Form.qry_PLZprioKunden_WVaktivJetzGesamt Unterformular"
                    EventProcPrefix ="qry_PLZprioKunden_WVaktivJetzGesamt_Unterformular"
                    GUID = Begin
                        0x2983c4a4897e3a48a907029c069d3596
                    End
                End
            End
        End
        Begin FormFooter
            Height =626
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x2455b1c0cf0993449d049fbb1360aa0c
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =165
                    Top =60
                    Width =2670
                    Height =510
                    Name ="Befehl2"
                    Caption ="WV priorisieren alle WV Datum vorlegen auf HEUTE"
                    OnClick ="[Event Procedure]"
                    GUID = Begin
                        0x6ba2f68e312d77459ea80f5003e4856c
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =6015
                    Top =60
                    Width =2670
                    Height =510
                    TabIndex =2
                    Name ="Befehl3"
                    Caption ="WV Prio zurücksetzen"
                    OnClick ="[Event Procedure]"
                    GUID = Begin
                        0xb77ee6349023024099a35168c1d7e86e
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =11850
                    Top =60
                    Width =2670
                    Height =510
                    TabIndex =3
                    Name ="Befehl5"
                    Caption ="aktualieren"
                    OnClick ="Mkr_FilterEntfernen"
                    GUID = Begin
                        0x25246d30ce24de43a096a9654f7aeef8
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3060
                    Top =60
                    Width =2670
                    Height =510
                    TabIndex =1
                    Name ="Befehl9"
                    Caption ="WV priorisieren nur WV bis HEUTE aktiv"
                    OnClick ="Mkr_qry_PLZprioKunden_WVaktiv2_nurbisheute"
                    GUID = Begin
                        0xe5bc699dd55a194e9532ef866b7b29ee
                    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 Befehl2_Click()
On Error GoTo Err_Befehl2_Click

    Dim stDocName As String

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

Exit_Befehl2_Click:
    Exit Sub

Err_Befehl2_Click:
    MsgBox Err.Description
    Resume Exit_Befehl2_Click
    
End Sub
Private Sub Befehl3_Click()
On Error GoTo Err_Befehl3_Click

    Dim stDocName As String

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

Exit_Befehl3_Click:
    Exit Sub

Err_Befehl3_Click:
    MsgBox Err.Description
    Resume Exit_Befehl3_Click
    
End Sub