Version =20
VersionRequired =20
Checksum =-1867182346
Begin Form
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    AllowDeletions = NotDefault
    CloseButton = NotDefault
    AllowAdditions = NotDefault
    AllowDesignChanges = NotDefault
    ViewsAllowed =1
    TabularFamily =255
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =28971
    DatasheetFontHeight =10
    ItemSuffix =53
    Left =3285
    Top =2085
    Right =32535
    Bottom =13920
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x4dd924418b03e440
    End
    RecordSource ="qry_SupportUnterBearbeiten"
    Caption ="frmSupport"
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            BackColor =-2147483633
            ForeColor =-2147483630
        End
        Begin Rectangle
            SpecialEffect =3
            BackStyle =0
            Width =850
            Height =850
        End
        Begin Line
            Width =1701
        End
        Begin Image
            BackStyle =0
            OldBorderStyle =0
            PictureAlignment =2
            Width =1701
            Height =1701
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin OptionButton
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin CheckBox
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin OptionGroup
            SpecialEffect =3
            Width =1701
            Height =1701
        End
        Begin BoundObjectFrame
            SpecialEffect =2
            OldBorderStyle =0
            BackStyle =0
            Width =4536
            Height =2835
            LabelX =-1701
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
            AsianLineBreak =255
        End
        Begin ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin UnboundObjectFrame
            SpecialEffect =2
            OldBorderStyle =1
            Width =4536
            Height =2835
        End
        Begin ToggleButton
            Width =283
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin Tab
            BackStyle =0
            Width =5103
            Height =3402
        End
        Begin FormHeader
            Height =354
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x64987aeb69c4324aa54dd0744f810236
            End
            Begin
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =2325
                    Top =60
                    Width =2040
                    Height =240
                    Name ="Rekladatum_Bezeichnungsfeld"
                    Caption ="Erstbearbeitung Datum/Zeit "
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x0d0f584e42e26941b99993e4539ab7cf
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =4425
                    Top =57
                    Width =3180
                    Height =225
                    Name ="Rekla Grund_Bezeichnungsfeld"
                    Caption ="Support Art"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="Rekla_Grund_Bezeichnungsfeld"
                    GUID = Begin
                        0x0424e95a1f9c17429a6f5df88a2a6d42
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =7710
                    Top =57
                    Width =2730
                    Height =240
                    Name ="Rekla Bemerkung_Bezeichnungsfeld"
                    Caption ="Anforderung Kunde"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="Rekla_Bemerkung_Bezeichnungsfeld"
                    GUID = Begin
                        0xe66ceb7d03101c409fe5a5ee3f3724ca
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =10491
                    Top =57
                    Width =2730
                    Height =240
                    Name ="Lösung_Bezeichnungsfeld"
                    Caption ="Lösung"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x514d73fc62bffa4f9ecc02d3b116f694
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =23700
                    Top =57
                    Width =1425
                    Height =240
                    Name ="Rekla Status_Bezeichnungsfeld"
                    Caption ="Rekla Status"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="Rekla_Status_Bezeichnungsfeld"
                    GUID = Begin
                        0xbf07b61fda2d994eb4908ef563ec42f1
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =15360
                    Top =57
                    Width =969
                    Height =240
                    Name ="WV Datum_Bezeichnungsfeld"
                    Caption ="WV Datum"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="WV_Datum_Bezeichnungsfeld"
                    GUID = Begin
                        0x8993ac1eabcc724f899e572f4cfb6d53
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =16386
                    Top =57
                    Width =969
                    Height =240
                    Name ="WV Uhrzeit_Bezeichnungsfeld"
                    Caption ="WV Uhrzeit"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="WV_Uhrzeit_Bezeichnungsfeld"
                    GUID = Begin
                        0xd89cdc737c49a3488a6e9eb1003158d2
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =60
                    Top =57
                    Width =2166
                    Height =240
                    Name ="Sachbearbeiter_Bezeichnungsfeld"
                    Caption ="Sachbearbeiter"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x0b6097af5cc36f4d8a55fd9404e7426a
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =22320
                    Top =57
                    Width =1305
                    Height =240
                    Name ="DatumEndeBearbeitung_Bezeichnungsfeld"
                    Caption ="Ende Bearbeitung"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xbf4316df7027dd4883fe61f07b5cd41a
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =13260
                    Top =57
                    Width =969
                    Height =240
                    Name ="Bezeichnungsfeld30"
                    Caption ="Email Datum"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x4b4d3f2558eb334fb1916b7cabfc4d38
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =14280
                    Top =60
                    Width =990
                    Height =240
                    Name ="Bezeichnungsfeld31"
                    Caption ="Email Uhrzeit"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xf3b8687c206bc94daab8b614c4f97516
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =20775
                    Top =60
                    Width =1485
                    Height =240
                    Name ="Bezeichnungsfeld34"
                    Caption ="Letzte Bearbeitung"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xae74c14df8dc094aa8b84d9bca44be1f
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =17400
                    Top =57
                    Width =1761
                    Height =240
                    Name ="Bezeichnungsfeld41"
                    Caption ="Weitergeleitet An"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x7bc7d64372cdec4abf29cef9facad101
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =19215
                    Top =60
                    Width =1515
                    Height =240
                    Name ="Bezeichnungsfeld45"
                    Caption ="Status Weiterleitung"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x8fd7fc0c297101458e1acb687e058524
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =25230
                    Top =57
                    Width =846
                    Height =240
                    Name ="Bezeichnungsfeld47"
                    Caption ="ID"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xe1fa807d06feb745b7856b79fb9c11b3
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =26145
                    Top =57
                    Width =846
                    Height =240
                    Name ="Bezeichnungsfeld49"
                    Caption ="Haupt ID"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x72f24cd185084d4496768c53896c1a8b
                    End
                End
            End
        End
        Begin Section
            Height =7993
            Name ="Detailbereich"
            GUID = Begin
                0x9cb2585a180041468812451dedd88769
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =2325
                    Top =57
                    Width =849
                    Height =255
                    ColumnWidth =1035
                    TabIndex =1
                    Name ="Rekladatum"
                    ControlSource ="BearbeitungDatum"
                    DefaultValue ="Date()"
                    FontName ="Arial"
                    GUID = Begin
                        0xaa6abe4f3b5a7242a10e259030835c44
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =3403
                    Top =60
                    Width =969
                    Height =255
                    ColumnWidth =1035
                    TabIndex =2
                    Name ="Rekla Uhrzeit"
                    ControlSource ="BearbeitungZeit"
                    DefaultValue ="Time()"
                    FontName ="Arial"
                    InputMask ="00:00;0;*"
                    EventProcPrefix ="Rekla_Uhrzeit"
                    GUID = Begin
                        0x06b1c28b3a560547a6d53be4024ead86
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =7710
                    Top =57
                    Width =2730
                    Height =7875
                    ColumnWidth =3000
                    TabIndex =4
                    Name ="Rekla Bemerkung"
                    ControlSource ="AnforderungKunde"
                    OnDblClick ="Mkr_Zoombx"
                    FontName ="Arial"
                    EventProcPrefix ="Rekla_Bemerkung"
                    GUID = Begin
                        0xcd9d25de40a13b4d822da2f11a348195
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =10491
                    Top =57
                    Width =2730
                    Height =7875
                    ColumnWidth =3000
                    TabIndex =5
                    Name ="Lösung"
                    ControlSource ="Loesung"
                    OnDblClick ="Mkr_Zoombx"
                    FontName ="Arial"
                    GUID = Begin
                        0xd0246b37c7feb9478c183a15c613d0c4
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =15360
                    Top =57
                    Width =969
                    Height =255
                    ColumnWidth =1035
                    TabIndex =8
                    Name ="WV Datum"
                    ControlSource ="WVDatum"
                    FontName ="Arial"
                    EventProcPrefix ="WV_Datum"
                    GUID = Begin
                        0xda9edc83cd1d204dabda90f61acd5e3c
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =16386
                    Top =57
                    Width =969
                    Height =255
                    ColumnWidth =1035
                    TabIndex =9
                    Name ="WV Uhrzeit"
                    ControlSource ="WVZeit"
                    Format ="Short Time"
                    FontName ="Arial"
                    InputMask ="00:00;0;*"
                    EventProcPrefix ="WV_Uhrzeit"
                    GUID = Begin
                        0xc9918b24d06d0a409e57bc4f1b601f66
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =60
                    Top =57
                    Width =2166
                    Height =255
                    ColumnWidth =2310
                    Name ="Sachbearbeiter"
                    ControlSource ="Sachbearbeiter"
                    FontName ="Arial"
                    GUID = Begin
                        0x334f10659ad53b4f8f518b2af04b67ca
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =22320
                    Top =57
                    Width =1305
                    Height =255
                    ColumnWidth =1035
                    TabIndex =13
                    Name ="DatumEndeBearbeitung"
                    ControlSource ="DatumEndeBearbeitung"
                    OnDblClick ="Mkr_SetzenDatumreklaEndbearbeitung"
                    FontName ="Arial"
                    GUID = Begin
                        0x94fe95755e24a94780a7327cb72009f8
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =13260
                    Top =57
                    Width =969
                    Height =255
                    TabIndex =6
                    Name ="EmailDatum"
                    ControlSource ="DatumFaxEmail"
                    FontName ="Arial"
                    GUID = Begin
                        0x4df9548e02c01e469a6b04b9c8d0f5ad
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =14286
                    Top =57
                    Width =969
                    Height =255
                    TabIndex =7
                    Name ="EmailZeit"
                    ControlSource ="ZeitFaxEmail"
                    Format ="Short Time"
                    FontName ="Arial"
                    InputMask ="00:00;0;*"
                    GUID = Begin
                        0x0371d592d25e2544914174b29712b321
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =20775
                    Top =57
                    Width =1500
                    Height =255
                    TabIndex =12
                    Name ="DatumletzeBearbeitung"
                    ControlSource ="DatumLetzteBearbeitung"
                    OnDblClick ="Mkr_SetzeDatumRekla"
                    DefaultValue ="Date()"
                    FontName ="Arial"
                    GUID = Begin
                        0xf4ed34ae45c2aa428af8a0a76f6ef760
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =23700
                    Top =57
                    Width =1425
                    Height =255
                    ColumnWidth =3000
                    TabIndex =14
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xdaa661623638164b9c9d29eb3043361d
                    End
                    Name ="Rekla Status"
                    ControlSource ="Status"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_reklastatus"
                    FontName ="Arial"
                    EventProcPrefix ="Rekla_Status"
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =4425
                    Top =57
                    Width =3180
                    Height =255
                    ColumnWidth =3000
                    TabIndex =3
                    ColumnInfo ="\"\";\"\";\"10\";\"510\""
                    GUID = Begin
                        0x331645793ed55a4e8f97bba219d35f26
                    End
                    Name ="Rekla Grund"
                    ControlSource ="SupportGrund"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_Reklagruende"
                    OnDblClick ="Mkr_Zoombx"
                    FontName ="Arial"
                    EventProcPrefix ="Rekla_Grund"
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =17400
                    Top =57
                    Width =1761
                    Height =255
                    TabIndex =10
                    Name ="Text42"
                    ControlSource ="WeitergeleitetAn"
                    FontName ="Arial"
                    GUID = Begin
                        0xae5d92039387374180e81245fae07d98
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =19215
                    Top =57
                    Width =1500
                    Height =255
                    TabIndex =11
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x6b59d67b48ca9b48bad6a4f2a14134ac
                    End
                    Name ="Kombinationsfeld46"
                    ControlSource ="StatusWeiterleitung"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_reklastatus"
                    FontName ="Arial"
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =25230
                    Top =57
                    Width =846
                    Height =255
                    TabIndex =15
                    Name ="Text48"
                    ControlSource ="id"
                    FontName ="Arial"
                    GUID = Begin
                        0x456a676db5650247ba689537bcf60aee
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =26145
                    Top =57
                    Width =846
                    Height =255
                    TabIndex =16
                    Name ="Text50"
                    ControlSource ="Rekla_NR"
                    DefaultValue ="=[Forms]![frmSupportNeu]![Rekla_Nr]"
                    FontName ="Arial"
                    GUID = Begin
                        0xb9e9f489449e2f43b1a9dde63e07fda9
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =27270
                    Top =45
                    Width =1425
                    Height =300
                    TabIndex =17
                    Name ="Befehl52"
                    Caption ="Endgültig erledigt!"
                    OnClick ="Mkr_SetzenDatumreklaEndbearbeitungEinzeEintrag"
                    GUID = Begin
                        0x407379cc6665d0439ebdad1225a3c56e
                    End
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0xebe57faae08a5246a8cfaeb14b7da926
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =60
                    Top =60
                    Width =516
                    Height =456
                    Name ="Befehl51"
                    Caption ="Befehl51"
                    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
                        0x381a1154aafb7546b6759a66b41cf610
                    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 Befehl36_Click()
On Error GoTo Err_Befehl36_Click


    DoCmd.Close

Exit_Befehl36_Click:
    Exit Sub

Err_Befehl36_Click:
    MsgBox Err.Description
    Resume Exit_Befehl36_Click
    
End Sub
Private Sub Befehl38_Click()
On Error GoTo Err_Befehl38_Click

    Dim stDocName As String

    stDocName = "Mkr_SetzenDatumreklaEndbearbeitung"
    DoCmd.RunMacro stDocName

Exit_Befehl38_Click:
    Exit Sub

Err_Befehl38_Click:
    MsgBox Err.Description
    Resume Exit_Befehl38_Click
    
End Sub
Private Sub Befehl51_Click()
On Error GoTo Err_Befehl51_Click


    DoCmd.Close

Exit_Befehl51_Click:
    Exit Sub

Err_Befehl51_Click:
    MsgBox Err.Description
    Resume Exit_Befehl51_Click
    
End Sub