Version =20
VersionRequired =20
Checksum =-1140131555
Begin Form
    AutoResize = NotDefault
    PopUp = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    NavigationButtons = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    DataEntry = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =9020
    DatasheetFontHeight =10
    ItemSuffix =10
    Left =300
    Top =4110
    Right =11475
    Bottom =12885
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xe7c51325b055e440
    End
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    Moveable =0
    AllowDatasheetView =0
    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 TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin FormHeader
            Height =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x1a2d17ac71190a44b51c049cb81ad639
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =6973
            Name ="Detailbereich"
            GUID = Begin
                0x62faa91bf0355a48a633defcc9e590fb
            End
            Begin
                Begin TextBox
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =3117
                    Top =476
                    Width =5841
                    Height =270
                    FontSize =10
                    TabIndex =1
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Laufzeit"
                    FontName ="Arial"
                    GUID = Begin
                        0x6c364cf6b57b2148bd66b906a2870008
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =120
                            Top =476
                            Width =855
                            Height =285
                            FontSize =10
                            BackColor =-2147483633
                            ForeColor =-2147483630
                            Name ="Bezeichnungsfeld33"
                            Caption ="Laufzeit"
                            FontName ="Arial"
                            GUID = Begin
                                0x29199360910d664bafc750687e63f791
                            End
                        End
                    End
                End
                Begin TextBox
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =3120
                    Top =1188
                    Width =5841
                    Height =270
                    FontSize =10
                    TabIndex =3
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="KD_NR"
                    FontName ="Arial"
                    GUID = Begin
                        0x5e695fe08c43fd4aa411c9a1bba938ba
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =285
                    Top =6360
                    Width =576
                    Height =576
                    TabIndex =6
                    Name ="Befehl4"
                    Caption ="Befehl4"
                    OnClick ="[Event Procedure]"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadada000000000000ad000ffffffffff0d000 ,
                        0x0fffffff0000700d0ffffff0788707da0fffff0788e770ad0fffff08888780da ,
                        0x0fffff08e88780ad0fffff07ee8770da0ffffff078870dad0fffffff0000dada ,
                        0x0ffffffffff0adad0fffffff0000dada0fffffff080dadad0fffffff00dadada ,
                        0x000000000dadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Berichtsvorschau"
                    GUID = Begin
                        0x4debc5dd295c2e468a33ae93057b5bcd
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =8325
                    Top =6360
                    Width =576
                    Height =576
                    TabIndex =7
                    Name ="Befehl5"
                    Caption ="Befehl5"
                    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
                        0x099d52f769d374498e3f3177196dead2
                    End
                End
                Begin ComboBox
                    RowSourceTypeInt =1
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =3117
                    Top =120
                    Width =5841
                    Height =300
                    FontSize =10
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    GUID = Begin
                        0xc2b137ab88931f4e8ac8b12dcb5e3dd5
                    End
                    Name ="Art"
                    RowSourceType ="Value List"
                    RowSource ="\"Ablösekonzept\";\"Doppelportierung\""
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =120
                            Top =120
                            Width =2310
                            Height =285
                            FontSize =10
                            BackColor =-2147483633
                            ForeColor =-2147483630
                            Name ="Bezeichnungsfeld31"
                            Caption ="Ablöse / Doppelportierung"
                            FontName ="Arial"
                            GUID = Begin
                                0xb9c9829ce3fc8c4c94c948e62e0d8e1d
                            End
                        End
                    End
                End
                Begin ComboBox
                    RowSourceTypeInt =1
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =3120
                    Top =832
                    Width =5841
                    Height =300
                    FontSize =10
                    TabIndex =2
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    GUID = Begin
                        0xc133c6660418294687d57d552aca909a
                    End
                    Name ="Kosten"
                    RowSourceType ="Value List"
                    RowSource ="10;20"
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =120
                            Top =825
                            Width =1410
                            Height =285
                            FontSize =10
                            BackColor =-2147483633
                            ForeColor =-2147483630
                            Name ="Bezeichnungsfeld35"
                            Caption ="Kosten / Monat"
                            FontName ="Arial"
                            GUID = Begin
                                0x7a7afd93445fa849ae382bc47c26cb54
                            End
                        End
                    End
                End
                Begin Subform
                    OverlapFlags =85
                    Left =120
                    Top =1980
                    Width =8850
                    Height =4275
                    TabIndex =5
                    Name ="frmAbloeseberechnungTarif"
                    SourceObject ="Form.frmAbloeseberechnungTarif"
                    GUID = Begin
                        0x9633ef7379f7524d8246f7580681e8a7
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =120
                    Top =1140
                    Width =1440
                    Height =285
                    FontSize =10
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Bezeichnungsfeld7"
                    Caption ="Kundennummer"
                    FontName ="Arial"
                    GUID = Begin
                        0xe2cb35c48e28e841b1a8ad31620b8a22
                    End
                End
                Begin TextBox
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =3120
                    Top =1533
                    Width =5841
                    Height =270
                    FontSize =10
                    TabIndex =4
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Rufnummer"
                    FontName ="Arial"
                    GUID = Begin
                        0x2ed5a2d2be648540a89ce00ca7ce3f40
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =120
                    Top =1485
                    Width =1440
                    Height =285
                    FontSize =10
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Bezeichnungsfeld9"
                    Caption ="Rufnummer"
                    FontName ="Arial"
                    GUID = Begin
                        0x1ef4a2a293fb3545a7c7a869d09a1c07
                    End
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x5e66fe49b1128947a233a193dd53ed4e
            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 Befehl4_Click()
On Error GoTo Err_Befehl4_Click

    Dim stDocName As String

    stDocName = "qry_Abloeseberechnung"
    DoCmd.OpenReport stDocName, acPreview

Exit_Befehl4_Click:
    Exit Sub

Err_Befehl4_Click:
    MsgBox Err.Description
    Resume Exit_Befehl4_Click
    
End Sub
Private Sub Befehl5_Click()
On Error GoTo Err_Befehl5_Click


    DoCmd.Close

Exit_Befehl5_Click:
    Exit Sub

Err_Befehl5_Click:
    MsgBox Err.Description
    Resume Exit_Befehl5_Click
    
End Sub