Version =20
VersionRequired =20
Checksum =-550897619
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    Cycle =1
    GridY =10
    Width =12529
    DatasheetFontHeight =10
    ItemSuffix =145
    Left =3750
    Top =8985
    Right =19380
    Bottom =18690
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xec7e285b76cde340
    End
    RecordSource ="qry_HandypreislisteNichtHandy"
    Caption ="bcs group Geräteliste andere Distributionen"
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0xa0050000a0050000a0050000a005000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    PrtDevMode = Begin
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x010406039c003c091fd30100010009009a0b3408640001000700580201000100 ,
        0x5802010000004134000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000010060b00 ,
        0x5052495600200000049808000000010101100000180000000000102710271027 ,
        0x000010270000000000000000ff00000000000100000002000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000e80f010001000100010000000000000000000001 ,
        0x0200000000000000000064000000000000000000010001000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0xbb02880400000300000000000000000000000000000001000000750701000000 ,
        0x09000900000000000000ffff2000070007000700000000000000000081000000 ,
        0x000000000000000002000000070000000000000000190000e40c000000000000 ,
        0xb80b00007017000000000000dc05000058020000000000000000000000000000 ,
        0xfeff0000000000000000000000000000000000000000000000000000370c0000 ,
        0xda0c000010270000102700001027000010270000a00a0000c2060000b8060000 ,
        0x2c04000040010000d20000000000000000000000000000000000000000000000 ,
        0x000000000000ffff000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000570049004e00500043003100390000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000000000000000000000fffffffffefffffffefffffffeffffff ,
        0xfefffffffefffffffefffffffefffffffefffffffefffffffefffffffeffffff ,
        0xfefffffffefffffffefffffffefffffffefffffffefffffffefffffffeffffff ,
        0xfefffffffefffffffffffffffeffffff4745524d414e00000000000000000000 ,
        0x420052004d00530031003000340042002e004500580045000000000000000000 ,
        0x420052004c004d0046003000340042002e0044004c004c000000000000000000 ,
        0x420052004200370035003000340042002e0044004c004c000000000000000000 ,
        0x42004f0037003800320030004e002e0049004e00490000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000007000804000000000000000000000000 ,
        0x0100ffff000000000e0100000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000c6008800000064000000000001010000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000000000000006000000f5ffffff00000000 ,
        0x000000000000000000000000000000010000000041007200690061006c000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000ffffff0001000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000ffffffff64000000 ,
        0x0000000000000080460061006200690061006e002e004c00650069006e006800 ,
        0x6f00730000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000010000000000000000000000000000000100000042524c4d ,
        0x463034422e444c4c000000000000000000000000454f5343
    End
    PrtDevNames = Begin
        0x0800220049000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000000049505f3139322e3136382e3130302e323100
    End
    OnLoad ="Mkr_Max"
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            FontSize =10
            FontWeight =700
            BackColor =-2147483633
            ForeColor =16711680
        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 CheckBox
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin BoundObjectFrame
            SpecialEffect =2
            Width =4536
            Height =2835
            LabelX =-1701
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =1
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontSize =12
            BackColor =16375250
            ForeColor =16711680
            AsianLineBreak =255
        End
        Begin ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin ComboBox
            SpecialEffect =1
            OldBorderStyle =0
            TextAlign =1
            Width =1701
            LabelX =-1701
            FontSize =12
            BackColor =16375250
            ForeColor =16711680
        End
        Begin Subform
            SpecialEffect =5
            BorderWidth =1
            Width =1701
            Height =1701
        End
        Begin UnboundObjectFrame
            SpecialEffect =2
            OldBorderStyle =1
            Width =4536
            Height =2835
        End
        Begin Tab
            Width =5103
            Height =3402
            FontSize =12
        End
        Begin FormHeader
            Height =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0xc2fd4ba8bdb2144495d8e630612e0066
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =170
                    Top =113
                    Width =2151
                    Height =330
                    BackColor =16777164
                    ForeColor =0
                    Name ="Bearbeitungsnummer"
                    ControlSource ="=[Forms]![frmHandyGutschrift]![BearbeitungsNR]"
                    FontName ="Arial"
                    GUID = Begin
                        0x94d2ceb066cd88498f73697a78863ae2
                    End
                End
            End
        End
        Begin Section
            Height =3401
            Name ="Detailbereich"
            GUID = Begin
                0x86b3a3cdbc99dd4ebded77e092184f5f
            End
            Begin
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =3580
                    Top =345
                    Width =6582
                    Height =330
                    ColumnWidth =3045
                    BackColor =16777164
                    ForeColor =0
                    Name ="Typ"
                    ControlSource ="Handy Typ"
                    FontName ="Arial"
                    GUID = Begin
                        0x9cb51d6d66022446a2cc9f1b39ef1b6c
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =287
                            Top =345
                            Width =3165
                            Height =330
                            FontSize =12
                            FontWeight =400
                            ForeColor =0
                            Name ="Bezeichnungsfeld117"
                            Caption ="Typ:"
                            FontName ="Arial"
                            GUID = Begin
                                0x4a66fd6b7c91514f96f22ab2485f1ad5
                            End
                        End
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =3578
                    Top =798
                    Width =6582
                    Height =330
                    ColumnWidth =765
                    TabIndex =1
                    BackColor =16777164
                    ForeColor =0
                    Name ="HEK"
                    ControlSource ="EK Preis netto"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    GUID = Begin
                        0x1d64e5a086060641b7d9a33bae027ff8
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =798
                            Width =3165
                            Height =330
                            FontSize =12
                            FontWeight =400
                            ForeColor =0
                            Name ="Bezeichnungsfeld119"
                            Caption ="Einkaufspreis"
                            FontName ="Arial"
                            GUID = Begin
                                0xb66d71ae112d6541a01e3324ff6e3204
                            End
                        End
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =3578
                    Top =1252
                    Width =6582
                    Height =330
                    TabIndex =2
                    BackColor =16777164
                    ForeColor =0
                    Name ="VK Preis Brutto"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    ValidationText ="Gerätepreis muss mindestens 1 Euro betragen!"
                    FontName ="Arial"
                    EventProcPrefix ="VK_Preis_Brutto"
                    GUID = Begin
                        0x1a824f192ec60e4d9baa77f02f0ee064
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =1252
                            Width =3165
                            Height =330
                            FontSize =12
                            FontWeight =400
                            ForeColor =0
                            Name ="Bezeichnungsfeld134"
                            Caption ="VK Preis brutto"
                            FontName ="Arial"
                            GUID = Begin
                                0x9446c5eb381f9047865b5322b27fb178
                            End
                        End
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =3578
                    Top =1702
                    Width =6582
                    Height =330
                    TabIndex =3
                    BackColor =16777164
                    ForeColor =0
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xa3068ed252051c4fa74ab28ceb2d8070
                    End
                    Name ="Distribution"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_Distribution"
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =1702
                            Width =3165
                            Height =330
                            FontSize =12
                            FontWeight =400
                            ForeColor =0
                            Name ="Bezeichnungsfeld136"
                            Caption ="Distribution"
                            FontName ="Arial"
                            GUID = Begin
                                0x014e7fe3a6e0ac409f5096a98428daf6
                            End
                        End
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =3578
                    Top =2152
                    Width =6582
                    Height =330
                    TabIndex =4
                    BackColor =16777164
                    ForeColor =0
                    ColumnInfo ="\"\";\"\";\"10\";\"300\""
                    GUID = Begin
                        0x17649033e306ec4da97d448a1b757ebb
                    End
                    Name ="Kunde bestellt Art"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_Bestellart"
                    DefaultValue ="\"Email\""
                    FontName ="Arial"
                    EventProcPrefix ="Kunde_bestellt_Art"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =2152
                            Width =3165
                            Height =330
                            FontSize =12
                            FontWeight =400
                            ForeColor =0
                            Name ="Bezeichnungsfeld138"
                            Caption ="Handy bestellt per ..."
                            FontName ="Arial"
                            GUID = Begin
                                0x8415b317c97ec643a54a2408ea7b224d
                            End
                        End
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =3578
                    Top =2602
                    Width =6582
                    Height =330
                    TabIndex =5
                    BackColor =16777164
                    ForeColor =0
                    Name ="Menge"
                    ValidationRule ="<=4"
                    ValidationText ="Es können nicht mehr als vier Handys in einer Zeile bestellt werden!"
                    DefaultValue ="1"
                    FontName ="Arial"
                    GUID = Begin
                        0x14ebf0365b26c348b067c37d094a9fb1
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =2602
                            Width =3165
                            Height =330
                            FontSize =12
                            FontWeight =400
                            ForeColor =0
                            Name ="Bezeichnungsfeld144"
                            Caption ="Menge"
                            FontName ="Arial"
                            GUID = Begin
                                0x61dceb2aba53284faa4d89cb18fc30ee
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =10425
                    Top =2835
                    Width =1515
                    Height =405
                    TabIndex =6
                    Name ="Handy auswählen"
                    Caption ="Handy auswählen"
                    OnClick ="Mkr_HandyAuswaehlenNichtEno"
                    EventProcPrefix ="Handy_auswählen"
                    GUID = Begin
                        0x6c56b9560bd2dc419372876fa6d08cfe
                    End
                End
            End
        End
        Begin FormFooter
            Height =576
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x1b0ac563d2cd624d896d2de013d4c121
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =75
                    Top =45
                    Width =501
                    Height =516
                    Name ="Befehl128"
                    Caption ="Befehl128"
                    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
                        0x19ed255b3ab88d45a52c574402f7eba5
                    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 Handybestellung_Berichtsvorschau_Click()
On Error GoTo Err_Handybestellung_Berichtsvorschau_Click

    Dim stDocName As String

    stDocName = "rpt_Handybestellung"
    DoCmd.OpenReport stDocName, acPreview

Exit_Handybestellung_Berichtsvorschau_Cl:
    Exit Sub

Err_Handybestellung_Berichtsvorschau_Click:
    MsgBox Err.Description
    Resume Exit_Handybestellung_Berichtsvorschau_Cl
    
End Sub
Private Sub Handybestellung_Celltrade_Berichtsvorschau_Click()
On Error GoTo Err_Handybestellung_Celltrade_Berichtsvorschau_Click

    Dim stDocName As String

    stDocName = "rpt_HandybestellungCelltrade"
    DoCmd.OpenReport stDocName, acPreview

Exit_Handybestellung_Celltrade_Berichtsv:
    Exit Sub

Err_Handybestellung_Celltrade_Berichtsvorschau_Click:
    MsgBox Err.Description
    Resume Exit_Handybestellung_Celltrade_Berichtsv
    
End Sub
Private Sub Handyrechnung_Click()
On Error GoTo Err_Handyrechnung_Click

    Dim stDocName As String

    stDocName = "rpt_Handyrechnung"
    DoCmd.OpenReport stDocName, acPreview

Exit_Handyrechnung_Click:
    Exit Sub

Err_Handyrechnung_Click:
    MsgBox Err.Description
    Resume Exit_Handyrechnung_Click
    
End Sub
Private Sub Brief_Formular_öffnen_Click()
On Error GoTo Err_Brief_Formular_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Brief"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Brief_Formular_öffnen_Click:
    Exit Sub

Err_Brief_Formular_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Brief_Formular_öffnen_Click
    
End Sub
Private Sub Handyrechnung_Anschreiben_Click()
On Error GoTo Err_Handyrechnung_Anschreiben_Click

    Dim stDocName As String

    stDocName = "rpt_HandyrechnungAnschreiben"
    DoCmd.OpenReport stDocName, acPreview

Exit_Handyrechnung_Anschreiben_Click:
    Exit Sub

Err_Handyrechnung_Anschreiben_Click:
    MsgBox Err.Description
    Resume Exit_Handyrechnung_Anschreiben_Click
    
End Sub
Private Sub Gutschrift_Click()
On Error GoTo Err_Gutschrift_Click

    Dim stDocName As String

    stDocName = "rpt_Gutschrift"
    DoCmd.OpenReport stDocName, acPreview

Exit_Gutschrift_Click:
    Exit Sub

Err_Gutschrift_Click:
    MsgBox Err.Description
    Resume Exit_Gutschrift_Click
    
End Sub
Private Sub Befehl43_Click()
On Error GoTo Err_Befehl43_Click

    Dim stDocName As String

    stDocName = "rpt_Handybestellung"
    DoCmd.SendObject acReport, stDocName

Exit_Befehl43_Click:
    Exit Sub

Err_Befehl43_Click:
    MsgBox Err.Description
    Resume Exit_Befehl43_Click
    
End Sub
Private Sub Befehl47_Click()
On Error GoTo Err_Befehl47_Click

    Dim stDocName As String

    stDocName = "rpt_Handybestellung_direkt zum Kunden"
    DoCmd.SendObject acReport, stDocName

Exit_Befehl47_Click:
    Exit Sub

Err_Befehl47_Click:
    MsgBox Err.Description
    Resume Exit_Befehl47_Click
    
End Sub
Private Sub Befehl48_Click()
On Error GoTo Err_Befehl48_Click

    Dim stDocName As String

    stDocName = "rpt_Handybestellung_direkt zum Kunden"
    DoCmd.OpenReport stDocName, acNormal

Exit_Befehl48_Click:
    Exit Sub

Err_Befehl48_Click:
    MsgBox Err.Description
    Resume Exit_Befehl48_Click
    
End Sub
Private Sub Befehl50_Click()
On Error GoTo Err_Befehl50_Click

    Dim stDocName As String

    stDocName = "rpt_Handybestellung_ins_Buero"
    DoCmd.SendObject acReport, stDocName

Exit_Befehl50_Click:
    Exit Sub

Err_Befehl50_Click:
    MsgBox Err.Description
    Resume Exit_Befehl50_Click
    
End Sub
Private Sub Befehl52_Click()
On Error GoTo Err_Befehl52_Click

    Dim stDocName As String

    stDocName = "rpt_Handybestellung_direkt zum Kunden"
    DoCmd.OpenReport stDocName, acNormal

Exit_Befehl52_Click:
    Exit Sub

Err_Befehl52_Click:
    MsgBox Err.Description
    Resume Exit_Befehl52_Click
    
End Sub
Private Sub Befehl53_Click()
On Error GoTo Err_Befehl53_Click

    Dim stDocName As String

    stDocName = "rpt_Handyrechnung"
    DoCmd.OpenReport stDocName, acNormal

Exit_Befehl53_Click:
    Exit Sub

Err_Befehl53_Click:
    MsgBox Err.Description
    Resume Exit_Befehl53_Click
    
End Sub
Private Sub Befehl54_Click()
On Error GoTo Err_Befehl54_Click

    Dim stDocName As String

    stDocName = "rpt_Gutschrift"
    DoCmd.OpenReport stDocName, acNormal

Exit_Befehl54_Click:
    Exit Sub

Err_Befehl54_Click:
    MsgBox Err.Description
    Resume Exit_Befehl54_Click
    
End Sub
Private Sub Befehl55_Click()
On Error GoTo Err_Befehl55_Click

    Dim stDocName As String

    stDocName = "rpt_Gutschrift"
    DoCmd.OpenReport stDocName, acNormal

Exit_Befehl55_Click:
    Exit Sub

Err_Befehl55_Click:
    MsgBox Err.Description
    Resume Exit_Befehl55_Click
    
End Sub
Private Sub Befehl56_Click()
On Error GoTo Err_Befehl56_Click

    Dim stDocName As String

    stDocName = "rpt_Handyrechnung"
    DoCmd.OpenReport stDocName, acNormal

Exit_Befehl56_Click:
    Exit Sub

Err_Befehl56_Click:
    MsgBox Err.Description
    Resume Exit_Befehl56_Click
    
End Sub
Private Sub Rechnungsbericht_Click()
On Error GoTo Err_Rechnungsbericht_Click

    Dim stDocName As String

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

Exit_Rechnungsbericht_Click:
    Exit Sub

Err_Rechnungsbericht_Click:
    MsgBox Err.Description
    Resume Exit_Rechnungsbericht_Click
    
End Sub
Private Sub Befehl59_Click()
On Error GoTo Err_Befehl59_Click

    Dim stDocName As String

    stDocName = "mkr_handybestellung_zum_kunden"
    DoCmd.RunMacro stDocName

Exit_Befehl59_Click:
    Exit Sub

Err_Befehl59_Click:
    MsgBox Err.Description
    Resume Exit_Befehl59_Click
    
End Sub
Private Sub Befehl60_Click()
On Error GoTo Err_Befehl60_Click

    Dim stDocName As String

    stDocName = "mkr_handybestellung_ins_buero"
    DoCmd.RunMacro stDocName

Exit_Befehl60_Click:
    Exit Sub

Err_Befehl60_Click:
    MsgBox Err.Description
    Resume Exit_Befehl60_Click
    
End Sub
Private Sub Befehl128_Click()
On Error GoTo Err_Befehl128_Click


    DoCmd.Close

Exit_Befehl128_Click:
    Exit Sub

Err_Befehl128_Click:
    MsgBox Err.Description
    Resume Exit_Befehl128_Click
    
End Sub
Private Sub Handy_auswählen_Click()
On Error GoTo Err_Handy_auswählen_Click

    Dim stDocName As String

    stDocName = "Mkr_HandyAuswaehlen"
    DoCmd.RunMacro stDocName

Exit_Handy_auswählen_Click:
    Exit Sub

Err_Handy_auswählen_Click:
    MsgBox Err.Description
    Resume Exit_Handy_auswählen_Click
    
End Sub