Version =20
VersionRequired =20
Checksum =235407850
Begin Form
    PopUp = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    NavigationButtons = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =28020
    DatasheetFontHeight =10
    ItemSuffix =113
    Left =4830
    Top =4410
    Right =32730
    Bottom =18075
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xfb9639b5353fe440
    End
    RecordSource ="qry_TarifProv"
    Caption ="Kalkulation"
    OnOpen ="Mkr_KalkulationBeazeiten"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0xa0050000a0050000a0050000a005000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    PrtDevMode = Begin
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x010400069c00bc031fd30100010009009a0b3408640001000700580201000100 ,
        0x5802010000004134000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000010000000000000001000000 ,
        0x0200000001000000000000000000000000000000000000000000000050524956 ,
        0xe030000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000180000000000102710271027 ,
        0x000010270000000000000000e800bc0300000000000000000000000000000000 ,
        0x0000000000000000030000000000000000001000503403002888040000000000 ,
        0x000000000000000000000000000000000000000000000000cb0077d408000000 ,
        0x00000000010001000000ff000200000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x01000000000000000000000000000000e8000000534d544a000000001000d800 ,
        0x4100700070006c00650020004c00610073006500720057007200690074006500 ,
        0x72002000380035003000300000005265736f6c7574696f6e0036303064706900 ,
        0x4475706c6578004e6f6e650042697473506572506978656c004e6f6e6500536d ,
        0x6f6f7468696e670046616c7365005061676553697a65004c6574746572005061 ,
        0x6765526567696f6e0000496e707574536c6f74005374616e6461726443617373 ,
        0x6574746500547261795377697463680054727565000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000
    End
    PrtDevNames = Begin
        0x08001f005d000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000545330 ,
        0x303100
    End
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        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 TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin PageHeader
            DisplayWhen =1
            Height =0
            BackColor =16777164
            Name ="Seitenkopfbereich"
            GUID = Begin
                0xa6dce9f4389a9345887f4ece295a16a5
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =13379
            Name ="Detailbereich"
            GUID = Begin
                0xf4abc9c9b75aca43b23df82390ac447b
            End
            Begin
                Begin ListBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =60
                    Top =120
                    Width =9075
                    Height =7702
                    FontSize =10
                    Name ="Liste9"
                    RowSourceType ="Table/Query"
                    RowSource ="SELECT [qry_TarifProv].[Tarif] FROM [qry_TarifProv];"
                    ColumnWidths ="1440"
                    AfterUpdate ="[Event Procedure]"
                    FontName ="Arial"
                    GUID = Begin
                        0x0c63d352bb464741beb12bb97a160941
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =60
                    Top =7995
                    Width =9066
                    Height =300
                    FontSize =10
                    TabIndex =29
                    Name ="Tarif"
                    ControlSource ="Tarif"
                    FontName ="Arial"
                    GUID = Begin
                        0x191041a1a41f62479c96260ab05f779e
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =12018
                    Top =8006
                    Width =171
                    Height =285
                    TabIndex =30
                    Name ="ProvGesamt"
                    ControlSource ="ProvGesamt"
                    GUID = Begin
                        0x1b5d6aa250e4a5408192289defe10ac0
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =12243
                    Top =8006
                    Width =171
                    Height =285
                    TabIndex =31
                    Name ="ProvAD"
                    ControlSource ="ProvAD"
                    GUID = Begin
                        0x3f2ba8f4ee36b04c95a3dfe26868c6c5
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15312
                    Top =4980
                    Width =561
                    Height =285
                    TabIndex =32
                    BackColor =12632256
                    Name ="MonateGGBefreiung"
                    ControlSource ="GG_Befreiung_Monate"
                    GUID = Begin
                        0x7c2922509c47d9469b688bd8a7abae47
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    AllowAutoCorrect = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15984
                    Top =4985
                    Width =561
                    Height =285
                    TabIndex =33
                    BackColor =12632256
                    Name ="EinMonGGbefreiung"
                    ControlSource ="EinMonatGGbefreiung"
                    GUID = Begin
                        0x973bbea5d251234687a44f583b1a56b8
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13272
                    Top =750
                    Width =1875
                    Height =255
                    TabIndex =3
                    Name ="VertragsbeginnNeu"
                    Format ="Short Date"
                    ValidationRule ="=[VertragsbeginnNeu] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    GUID = Begin
                        0xab352b74b7465c469b1552cb294d6412
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =750
                            Width =1500
                            Height =240
                            Name ="Bezeichnungsfeld16"
                            Caption ="Vertragsbeginn Neu"
                            GUID = Begin
                                0xd54efc6a16f4e849b91f46c894bc55b3
                            End
                        End
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =15300
                    Top =4654
                    Width =1590
                    Height =210
                    Name ="Bezeichnungsfeld17"
                    Caption ="GG Befreiung möglich"
                    GUID = Begin
                        0x6203a1d8fa3e4146a487065c62a1a99f
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13272
                    Top =1078
                    Width =1875
                    Height =255
                    TabIndex =4
                    Name ="VertragsendeAlt"
                    Format ="Short Date"
                    ValidationRule ="=[VertragsendeAlt] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x7f70404410ec56488d911ee28e5afdb3
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =1078
                            Width =1290
                            Height =240
                            Name ="Bezeichnungsfeld19"
                            Caption ="Vertragsende Alt"
                            GUID = Begin
                                0x3cc127e8a83b0646a4ad4fd26a347930
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =1382
                    Width =1875
                    Height =255
                    TabIndex =5
                    BackColor =12632256
                    Name ="Restlaufzeit"
                    Format ="Standard"
                    GUID = Begin
                        0xdfe5c9d003ad014e9b54377816dad995
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9207
                            Top =1382
                            Width =930
                            Height =240
                            Name ="Bezeichnungsfeld21"
                            Caption ="Restlaufzeit"
                            GUID = Begin
                                0xd23e503e445a9b46b0f66bf3b3ab14ae
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =2996
                    Width =1875
                    Height =255
                    TabIndex =10
                    Name ="RestlaufzeitBisMoeglicherTW"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0xd73c17da7836c043b169fb0596c3528b
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =2976
                            Width =2175
                            Height =240
                            Name ="Bezeichnungsfeld23"
                            Caption ="Restlaufzeit bis möglicher TW"
                            GUID = Begin
                                0x603ae6fdf52a7c4aae5ab259c2003e17
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =3690
                    Width =1875
                    Height =255
                    TabIndex =13
                    BackColor =12632256
                    Name ="RestlaufzeitKleinstMoeglicherTarif"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0xc0cdef1ca920b34595cb845c16a8bd9b
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =3694
                            Width =2520
                            Height =240
                            Name ="Bezeichnungsfeld25"
                            Caption ="Restlaufzeit kleinst möglicher Tarif"
                            GUID = Begin
                                0x7f14fc06320b2e4f85711f1934d0ea9d
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13266
                    Top =1710
                    Width =1875
                    Height =255
                    TabIndex =6
                    Name ="GGalt"
                    Format ="Standard"
                    ValidationRule ="=[GGalt] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    GUID = Begin
                        0x765b8873a60991448f52b7f8683a605e
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =1710
                            Width =1110
                            Height =240
                            Name ="Bezeichnungsfeld27"
                            Caption ="GG alt / Monat"
                            GUID = Begin
                                0x2782e884fef83e458dffcd3b515c15c2
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13266
                    Top =2670
                    Width =1875
                    Height =255
                    TabIndex =9
                    Name ="GGKleinstMoeglich"
                    Format ="Standard"
                    ValidationRule ="=[GGKleinstMoeglich] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    GUID = Begin
                        0xb1e62505f0e9704587c80d4d1441317b
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =2670
                            Width =1350
                            Height =240
                            Name ="Bezeichnungsfeld29"
                            Caption ="GG kleinst möglich"
                            GUID = Begin
                                0x39b584d00670fd4d96c627e4f55c3773
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13266
                    Top =3345
                    Width =1875
                    Height =255
                    TabIndex =12
                    Name ="TarifwechselGebühr"
                    Format ="Standard"
                    ValidationRule ="=[TarifwechselGebühr] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    DefaultValue ="=0"
                    GUID = Begin
                        0x6cb05adbc6f5134f9e298c1207d4cec5
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =3345
                            Width =1545
                            Height =240
                            Name ="Bezeichnungsfeld31"
                            Caption ="Tarifwechsel Gebühr"
                            GUID = Begin
                                0x742967e052b8bc40851564dd3b20823d
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13284
                    Top =5812
                    Width =1875
                    Height =255
                    TabIndex =20
                    BackColor =12632256
                    Name ="GGaltKleinstmoeglichMitTWGebuehr"
                    Format ="Standard"
                    GUID = Begin
                        0x1c52414a044be14097935b686370ace3
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =5743
                            Width =3210
                            Height =240
                            Name ="Bezeichnungsfeld33"
                            Caption ="GG alt kleinstmöglich mit TW Gebühr gesamt"
                            GUID = Begin
                                0x977115523ea4ae43b37677527f20b746
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =6133
                    Width =1875
                    Height =255
                    TabIndex =21
                    BackColor =12632256
                    Name ="GGaltKleinstmoeglichMitTWGebuehrUndVVLgesamt"
                    Format ="Standard"
                    GUID = Begin
                        0x8a47448602745846a7ad7f8e31ab02d4
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =6133
                            Width =3825
                            Height =240
                            Name ="Bezeichnungsfeld35"
                            Caption ="GG alt kleinstmöglich mit TW Gebühr und VVL gesamt"
                            GUID = Begin
                                0x3702e2c6cbf4b14da39beb650865ef66
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =6461
                    Width =1875
                    Height =255
                    TabIndex =22
                    BackColor =12632256
                    Name ="KostenAltGesamt"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x1cc45b030447df4dbce4e53645ace33d
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9207
                            Top =6461
                            Width =2535
                            Height =240
                            Name ="Bezeichnungsfeld37"
                            Caption ="Kosten Alt vor Umstellung gesamt "
                            GUID = Begin
                                0x4d4fac95d0825341b1c9cee4a54f4665
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =6789
                    Width =1875
                    Height =255
                    TabIndex =23
                    BackColor =12632256
                    Name ="ErsparnisOhneAltlostenUeberLaufzeit"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x4da5f6f0f331184fb9c6d4cf45f69772
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =6789
                            Width =3060
                            Height =240
                            Name ="Bezeichnungsfeld39"
                            Caption ="Alt zu Neu über die Laufzeit"
                            GUID = Begin
                                0x40775a172889c54bb978f706d9a07b1f
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =7117
                    Width =1875
                    Height =255
                    TabIndex =24
                    BackColor =12632256
                    Name ="ErsparnisMitAltlostenUeberLaufzeit"
                    Format ="Standard"
                    GUID = Begin
                        0xbc57c1362b84e14d869d1ff5ae8a1af3
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9207
                            Top =7117
                            Width =2910
                            Height =240
                            Name ="Bezeichnungsfeld41"
                            Caption ="Ersparnis mit Altlosten über die Laufzeit"
                            GUID = Begin
                                0xa92765f8214e984c85bef2a5816301df
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =7445
                    Width =1875
                    Height =255
                    TabIndex =25
                    BackColor =12632256
                    Name ="ErsparnisMitAltlostenUeberLaufzeitmitVVL"
                    Format ="Standard"
                    GUID = Begin
                        0xa23e8becb06a7c4092f924c2259d3fbf
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =7445
                            Width =3465
                            Height =240
                            Name ="Bezeichnungsfeld43"
                            Caption ="Ersparnis mit Altlosten über die Laufzeit mit VVL"
                            GUID = Begin
                                0x5550fbc8eaa2654a854fd521afc69ebe
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =7773
                    Width =1875
                    Height =255
                    TabIndex =26
                    Name ="SubHW"
                    Format ="Standard"
                    ValidationRule ="=[SubHW] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    DefaultValue ="=0"
                    GUID = Begin
                        0x2ba0e91658839144a2a264b3b084d052
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =7768
                            Width =2010
                            Height =240
                            Name ="Bezeichnungsfeld45"
                            Caption ="Sub Hardware nicht Bundel"
                            GUID = Begin
                                0x8ac66ab3f8eb0c4b85e59740d94a1fcc
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13260
                    Top =4035
                    Width =1875
                    Height =255
                    TabIndex =14
                    BackColor =12632256
                    Name ="GGneu"
                    ControlSource ="GG"
                    Format ="Standard"
                    GUID = Begin
                        0xe89d909b4dd60b4083696a114a979eda
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13266
                    Top =120
                    Width =1875
                    Height =255
                    TabIndex =1
                    Name ="KD_NR"
                    ControlSource ="=[Forms]![frm_HauptTerminierungWV]![KD_NR]"
                    OnDblClick ="Mkr_KostenanalyseGeheHaupt"
                    GUID = Begin
                        0xcaacb7e948a66f4fb2d6d5fa19125603
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =120
                            Width =2370
                            Height =240
                            Name ="Bezeichnungsfeld48"
                            Caption ="Kundennummer / Statusnummer"
                            GUID = Begin
                                0xbd96c8cbfa2a7c449e3bc1f9f8cbaa4d
                            End
                        End
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =9184
                    Top =4025
                    Width =1200
                    Height =240
                    Name ="Bezeichnungsfeld51"
                    Caption ="GG neu / Monat"
                    GUID = Begin
                        0x0c425ae4110f0141975fc73bc1178aea
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =4985
                    Width =1875
                    Height =255
                    TabIndex =18
                    Name ="GGbefreiungMonate"
                    Format ="Standard"
                    ValidationRule ="=[GGbefreiungMonate] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    OnExit ="[Event Procedure]"
                    DefaultValue ="=0"
                    GUID = Begin
                        0x7efdc808266de24484b6fb564b5612c3
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =4989
                            Width =2520
                            Height =240
                            Name ="Bezeichnungsfeld54"
                            Caption ="GG Befreiung Monate"
                            GUID = Begin
                                0x80c163990e572244826e26556258cb27
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =5330
                    Width =1875
                    Height =255
                    TabIndex =19
                    BackColor =12632256
                    Name ="Vertragslaufzeit"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    DefaultValue ="=24"
                    GUID = Begin
                        0x4c4ab5002ffca646acbd6d363acc28f0
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =5334
                            Width =2520
                            Height =240
                            Name ="Bezeichnungsfeld56"
                            Caption ="Vertragslaufzeit"
                            GUID = Begin
                                0x7ac02fa843bff949ac0e569d42887b52
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13272
                    Top =8083
                    Width =1875
                    Height =255
                    TabIndex =27
                    Name ="SubGS"
                    Format ="Standard"
                    ValidationRule ="=[SubGS] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    DefaultValue ="=0"
                    GUID = Begin
                        0x75bd5f8d3c748b46b09b6b313af20165
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =8083
                            Width =2055
                            Height =240
                            Name ="Bezeichnungsfeld58"
                            Caption ="Sub Gutschrift  nicht Bundel"
                            GUID = Begin
                                0x8f4fcf345954f54e81c31f50db4f6408
                            End
                        End
                    End
                End
                Begin Subform
                    OverlapFlags =85
                    Left =60
                    Top =8445
                    Width =27907
                    Height =4200
                    TabIndex =34
                    Name ="qry_rent_unter"
                    SourceObject ="Form.frm_rent_unter"
                    GUID = Begin
                        0x8a905094216cde45bb4ae8f2ea7e0598
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =15300
                    Top =7903
                    Width =1590
                    Height =420
                    TabIndex =28
                    Name ="Befehl62"
                    Caption ="Ausführen"
                    OnClick ="MKr_SetzeRent"
                    GUID = Begin
                        0xb1044539fd725b418c03066f690d8326
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15360
                    Top =465
                    TabIndex =35
                    Name ="Sachbearbeiter"
                    ControlSource ="=[Forms]![frm_Anmeldung]![Benutzername]"
                    GUID = Begin
                        0x151fc40e2ac2874cadd4b1d3f0c69f49
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13272
                    Top =2031
                    Width =1875
                    Height =255
                    TabIndex =7
                    Name ="InnlandskostenAlt"
                    Format ="Standard"
                    ValidationRule ="=[InnlandskostenAlt] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x9bf558a2b5125648925bdb227ee80c45
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =2031
                            Width =1995
                            Height =240
                            Name ="Bezeichnungsfeld64"
                            Caption ="Innlandskosten alt / Monat"
                            GUID = Begin
                                0x2ec18ef269c45b47a334107a93100a05
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13272
                    Top =2340
                    Width =1875
                    Height =255
                    TabIndex =8
                    BackColor =12632256
                    Name ="GesamtkostenAlt"
                    Format ="Standard"
                    GUID = Begin
                        0xef9d3d92fb145f4db7e63d10245e0461
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =2340
                            Width =1995
                            Height =240
                            Name ="Bezeichnungsfeld66"
                            Caption ="Gesamtkosten alt / Monat"
                            GUID = Begin
                                0xb0afaaf898aba74e8a419ad1b81c9ab9
                            End
                        End
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    RowSourceTypeInt =1
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15354
                    Top =2985
                    Width =1221
                    Height =255
                    TabIndex =11
                    GUID = Begin
                        0xe2dbc5d374fb77438021373bf5889a72
                    End
                    Name ="VVLjanein"
                    RowSourceType ="Value List"
                    RowSource ="\"VVL Ja\";\"VVL Nein\""
                    ValidationRule ="=[VVLjanein] Is Not Null"
                    ValidationText =" Feld VVL Alttarif notwendig muss ausgefüllt werden"
                    OnGotFocus ="[Event Procedure]"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =15368
                            Top =2724
                            Width =1740
                            Height =210
                            Name ="Bezeichnungsfeld87"
                            Caption ="VVL Alttarif notwendig?"
                            GUID = Begin
                                0x3710637d14868e4ca0f8cd3e456083a7
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13266
                    Top =450
                    Width =1875
                    Height =255
                    TabIndex =2
                    Name ="Rufnummer"
                    GUID = Begin
                        0xbc654f2c624ea74fb164fe725da86d9d
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =450
                            Width =1185
                            Height =240
                            Name ="Bezeichnungsfeld93"
                            Caption ="Rufnummer"
                            GUID = Begin
                                0x07e9421ccda8c547b61047cfd21a7993
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15360
                    Top =4337
                    Width =1710
                    Height =270
                    TabIndex =17
                    BackColor =12632256
                    Name ="DifferenzGGAltNeuvorTW"
                    Format ="Standard"
                    GUID = Begin
                        0x8562a52f5a38374bab49d56d779fbc15
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =15420
                            Top =3795
                            Width =1635
                            Height =450
                            Name ="Bezeichnungsfeld98"
                            Caption ="Differnz Alt Neu GG vor Tarifwechsel"
                            GUID = Begin
                                0xa675c516f271e3408c3c6c68270f3cd5
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =165
                    Top =12750
                    Width =516
                    Height =516
                    TabIndex =36
                    Name ="Befehl90"
                    Caption ="Befehl90"
                    OnClick ="Mkr_KalkulationClose"
                    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
                        0xbe071c1333e4e649ac40b48ea12e2937
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15360
                    Top =120
                    Width =1710
                    Height =285
                    TabIndex =37
                    Name ="Status_Nr"
                    ControlSource ="=[Forms]![frm_HauptTerminierungWV]![subfrm_Terminierung].[Form]![Status_NR]"
                    GUID = Begin
                        0x53de211742341441a13d55c94217bf4d
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =13260
                    Top =4365
                    Width =1875
                    Height =255
                    TabIndex =15
                    BackColor =12632256
                    Name ="OptionskostenNeu"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    DefaultValue ="=0"
                    GUID = Begin
                        0xc87cd54ba2a17c4e93c1f2b75871b8a8
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =9184
                    Top =4365
                    Width =3615
                    Height =240
                    Name ="Bezeichnungsfeld104"
                    Caption ="Gesamtkosten Option neu / Monat"
                    GUID = Begin
                        0xf74703144220e446a0cbba06b07cf8ed
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13271
                    Top =4660
                    Width =1875
                    Height =255
                    TabIndex =16
                    BackColor =12632256
                    Name ="TarifUndOptionNeu"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x8a0f6ffdf73cdf4b8fa7661f42f40aa5
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =9195
                    Top =4650
                    Width =3075
                    Height =240
                    Name ="Bezeichnungsfeld106"
                    Caption ="Gesamtkosten Tarif + Option neu / Monat"
                    GUID = Begin
                        0x7637d6484aa6f84c968415215e618638
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =855
                    Top =12750
                    Width =1926
                    Height =516
                    TabIndex =38
                    Name ="Bericht Kostenanalyse Sachbearbeiter"
                    Caption ="Bericht Kostenanalyse Sachbearbeiter"
                    OnClick ="Mkr_KostenanalyseBericht"
                    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
                    EventProcPrefix ="Bericht_Kostenanalyse_Sachbearbeiter"
                    ControlTipText ="Berichtsvorschau"
                    GUID = Begin
                        0x6f8f607c34155e41878cc9f4f4047088
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2955
                    Top =12750
                    Width =1926
                    Height =516
                    TabIndex =39
                    Name ="Befehl108"
                    Caption ="Bericht Kostenanalyse  GF"
                    OnClick ="Mkr_KostenanalyseBerichtTeamleiter"
                    ControlTipText ="Berichtsvorschau"
                    GUID = Begin
                        0xf8d581dee843c6448036ed0db12d5055
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =12528
                    Top =7993
                    Width =171
                    Height =285
                    TabIndex =40
                    Name ="GGBefreiungGesamtbetrag"
                    ControlSource ="GGBefreiungGesamtbetrag"
                    GUID = Begin
                        0xa4d5ce3be44ba441ab3e4220ba5fec92
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =16950
                    Top =7905
                    Width =1590
                    Height =420
                    TabIndex =41
                    Name ="Befehl110"
                    Caption ="Ergebnis setzen"
                    OnClick ="Mkr_frmErgebnisKalkulationNeu"
                    GUID = Begin
                        0xbab6d14ae6914e4682e0d49da926c350
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =18585
                    Top =7890
                    Width =1590
                    Height =420
                    TabIndex =42
                    Name ="Befehl111"
                    Caption ="Ergebnis bearbeiten"
                    OnClick ="Mkr_frmErgebnisKalkulationBea"
                    GUID = Begin
                        0xf88bc5ba8da0084e84cac6c77885be9f
                    End
                End
                Begin Subform
                    TabStop = NotDefault
                    OverlapFlags =85
                    Left =17460
                    Top =60
                    Width =7605
                    Height =7755
                    TabIndex =43
                    Name ="qry_RentabilitaetErgebnis"
                    SourceObject ="Form.frmErgebnisKalkulationUnter"
                    GUID = Begin
                        0xe2138e27bc936c4aa7d3cb995f193432
                    End
                End
            End
        End
        Begin PageFooter
            DisplayWhen =1
            Height =0
            BackColor =16777164
            Name ="Seitenfußbereich"
            GUID = Begin
                0x276694bd263f034697fc30a4e0a805d6
            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 Liste3_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Tarif] = '" & Me![Liste3] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub ErsparnisOhneAltlostenUeberLaufzeit_Exit(Cancel As Integer)
Dim EmAk As Double
Dim EmAkVVL As Double

If Me.GGaltKleinstmoeglichMitTWGebuehr <> "" Then

 EmAk = Me.ErsparnisOhneAltlostenUeberLaufzeit - Me.GGaltKleinstmoeglichMitTWGebuehr
Me.ErsparnisMitAltlostenUeberLaufzeit = EmAk
Else
If Me.GGaltKleinstmoeglichMitTWGebuehrUndVVLgesamt <> "" Then

EmAkVVL = Me.ErsparnisOhneAltlostenUeberLaufzeit - Me.GGaltKleinstmoeglichMitTWGebuehrUndVVLgesamt
Me.ErsparnisMitAltlostenUeberLaufzeitmitVVL = EmAkVVL

End If
End If

End Sub

Private Sub GGbefreiungMonate_Exit(Cancel As Integer)
Dim Vertragslfz As Integer

If Me.GGbefreiungMonate > 2 Then
Vertragslfz = 36

Me.Vertragslaufzeit = Vertragslfz
End If
End Sub

Private Sub GGneu_Exit(Cancel As Integer)

Dim DifGGaltNeu As Double

DifGGaltNeu = (Me.GGalt - Me.GGneu) * Me.RestlaufzeitBisMoeglicherTW

Me.DifferenzGGAltNeuvorTW = DifGGaltNeu



End Sub

Private Sub InnlandskostenAlt_Exit(Cancel As Integer)
If IsNull(Me.GGalt) Then
MsgBox ("Bitte GG Altvertrag angeben")
Else
If IsNull(Me.InnlandskostenAlt) Then
MsgBox ("Bitte Innlandskosten Altvertrag angeben")
Else

Dim GKalt As Double
GKalt = Me.GGalt + Me.InnlandskostenAlt
Me.GesamtkostenAlt = GKalt
End If
End If
End Sub

Private Sub KostenAltGesamt_Exit(Cancel As Integer)

Dim EoAk As Double

If Me.GGbefreiungMonate > 0 Then

EoAk = Me.KostenAltGesamt - ((Me.TarifUndOptionNeu * Me.Vertragslaufzeit) - (Me.GGBefreiungGesamtbetrag * Me.GGbefreiungMonate))
End If
 
If Me.GGbefreiungMonate = 0 Then


EoAk = Me.KostenAltGesamt - (Me.TarifUndOptionNeu * Me.Vertragslaufzeit)

End If
Me.ErsparnisOhneAltlostenUeberLaufzeit = EoAk

End Sub

Private Sub Liste9_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Tarif] = '" & Me![Liste9] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub OptionskostenNeu_Exit(Cancel As Integer)
Dim GGuOption As Double
GGuOption = Me.GG + Me.OptionskostenNeu
Me.TarifUndOptionNeu = GGuOption
End Sub

Private Sub Restlaufzeit_Exit(Cancel As Integer)

If 9 = 0 Then

Dim RLZTW As Integer
RLZTW = Me.Restlaufzeit - Me.RestmonateVorTW
If (RLZTW > 0) Then Me.RestlaufzeitBisMoeglicherTW = RLZTW
If (RLZTW <= 0) Then Me.RestlaufzeitBisMoeglicherTW = 0
End If
End Sub

Private Sub RestlaufzeitBisMoeglicherTW_Exit(Cancel As Integer)
If IsNull(Me.RestlaufzeitBisMoeglicherTW) Then
MsgBox ("Restlaufzeit bis möglicher TW eingeben")
Else
Dim RLZKT As Double
RLZKT = Me.Restlaufzeit - Me.RestlaufzeitBisMoeglicherTW
Me.RestlaufzeitKleinstMoeglicherTarif = RLZKT
End If
End Sub

Private Sub RestlaufzeitKleinstMoeglicherTarif_Exit(Cancel As Integer)
If IsNull(Me.GGKleinstMoeglich) Then
MsgBox ("Kleinst mögliche GG Altvertrag eingeben")
Else

Dim GGaltTW As Double
Dim GGaltTWVVL As Double

If Me.VVLjanein = "VVL Nein" Then

GGaltTW = (Me.RestlaufzeitBisMoeglicherTW * Me.GGalt) + (Me.RestlaufzeitKleinstMoeglicherTarif * Me.GGKleinstMoeglich) + Me.TarifwechselGebühr

Me.GGaltKleinstmoeglichMitTWGebuehr = GGaltTW

Else
If Me.VVLjanein = "VVL Ja" Then
GGaltTWVVL = (Me.RestlaufzeitBisMoeglicherTW * Me.GGalt) + (24 * Me.GGKleinstMoeglich) + Me.TarifwechselGebühr
Me.GGaltKleinstmoeglichMitTWGebuehrUndVVLgesamt = GGaltTWVVL

End If
End If
End If

End Sub

Private Sub RestmonateVorTW_Exit(Cancel As Integer)
If IsNull(Me.GGKleinstMoeglich) Then
MsgBox ("Kleinst mögliche GG Altvertrag eingeben")
Else

Dim GGaltTW As Integer
Dim GGaltTWVVL As Integer

If Me.VVLjanein = "VVL Nein" Then

GGaltTW = (Me.RestlaufzeitBisMoeglicherTW * Me.GGalt) + (Me.RestlaufzeitKleinstMoeglicherTarif * Me.GGKleinstMoeglich) + Me.TarifwechselGebühr

Me.GGaltKleinstmoeglichMitTWGebuehr = GGaltTW

Else
If Me.VVLjanein = "VVL Ja" Then
GGaltTWVVL = (Me.RestlaufzeitBisMoeglicherTW * Me.GGalt) + (24 * Me.GGKleinstMoeglich) + Me.TarifwechselGebühr
Me.GGaltKleinstmoeglichMitTWGebuehrUndVVLgesamt = GGaltTWVVL

End If
End If
End If
End Sub

Private Sub TarifUndOptionNeu_Exit(Cancel As Integer)
Dim DifGGaltNeu2 As Double

DifGGaltNeu2 = (Me.GGalt - Me.TarifUndOptionNeu) * Me.RestlaufzeitBisMoeglicherTW

Me.DifferenzGGAltNeuvorTW = DifGGaltNeu2
End Sub

Private Sub TarifwechselGebühr_Exit(Cancel As Integer)
Dim GGaltTW As Integer
Dim GGaltTWVVL As Integer

GGaltTW = (Me.RestlaufzeitBisMoeglicherTW * Me.GGalt) + (Me.RestlaufzeitKleinstMoeglicherTarif * Me.GGKleinstMoeglich) + Me.TarifwechselGebühr

Me.GGaltKleinstmoeglichMitTWGebuehr = GGaltTW

GGaltTWVVL = (Me.RestlaufzeitBisMoeglicherTW * Me.GGalt) + (24 * Me.GGKleinstMoeglich) + Me.TarifwechselGebühr
Me.GGaltKleinstmoeglichMitTWGebuehrUndVVLgesamt = GGaltTWVVL

End Sub

Private Sub VertragsendeAlt_Exit(Cancel As Integer)
If IsNull(Me.RufNummer) Then
MsgBox ("Bitte Rufnummer Altvertrag eingeben")
Else
If IsNull(Me.VertragsendeAlt) Then
MsgBox ("Bitte Vertragsende Altvertrag eingeben")
Else
If IsNull(Me.VertragsbeginnNeu) Then
MsgBox ("Bitte Vertragsbeginn Neuvertrag eingeben")
Else

Dim RLZ As Integer
RLZ = DateDiff("m", Me.VertragsbeginnNeu, Me.VertragsendeAlt)
Me.Restlaufzeit = RLZ
End If
End If
End If
End Sub

Private Sub Vertragslaufzeit_Exit(Cancel As Integer)
Dim KAG As Double
KAG = Me.Vertragslaufzeit * Me.GesamtkostenAlt
Me.KostenAltGesamt = KAG
End Sub

Private Sub VVLjanein_GotFocus()
 Me!VVLjanein.DropDown
End Sub
Private Sub Befehl90_Click()
On Error GoTo Err_Befehl90_Click


    DoCmd.Close

Exit_Befehl90_Click:
    Exit Sub

Err_Befehl90_Click:
    MsgBox Err.Description
    Resume Exit_Befehl90_Click
    
End Sub
Private Sub Bericht_Kostenanalyse_Sachbearbeiter_Click()
On Error GoTo Err_Bericht_Kostenanalyse_Sachbearbeiter_Click

    Dim stDocName As String

    stDocName = "qry_KostenanalyseBericht"
    DoCmd.OpenReport stDocName, acPreview

Exit_Bericht_Kostenanalyse_Sachbearbeite:
    Exit Sub

Err_Bericht_Kostenanalyse_Sachbearbeiter_Click:
    MsgBox Err.Description
    Resume Exit_Bericht_Kostenanalyse_Sachbearbeite
    
End Sub