Version =20
VersionRequired =20
Checksum =1152181187
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
        0xc98a7ee38b03e440
    End
    RecordSource ="qry_SupportUnterBearbeitenNeu"
    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
                0x6458bf87e394114abcc773c3272b1622
            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
                        0x981b22834b235740b0f94134027f1b56
                    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
                        0xa913c528a352d14a9e8a8e5a1838c85b
                    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
                        0x3b20eb5785697c4fa67f154ad97211c6
                    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
                        0xe481c03f7a3c71428694c8654825216a
                    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
                        0x4a5afd2a00af4342a733c2fe8950623b
                    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
                        0x51c78640ad7b4e4381324bdb37e21a9d
                    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
                        0x834dcd9668f9a244965636833174836d
                    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
                        0x006154c94c4f8c44ba6cd6e0c68b8722
                    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
                        0x540d159537106a47aa6c82a8456b8d25
                    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
                        0xfe70ecc491db914d8a1b9d6c97061a32
                    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
                        0x7e364dcec04b5c4cb0b44e5a44d31afc
                    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
                        0xd3b1d6e204c30341ad306660cb81a4ae
                    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
                        0xcacf1987873d5e4c875c0a3d007bb70c
                    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
                        0x2aea95a42e17f841aa49b59aea9e5b46
                    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
                        0x265dbed645dacd4aa5bafd7aeb5484bb
                    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
                        0x7e7e0cb451cc284bbb6f908afa7ca616
                    End
                End
            End
        End
        Begin Section
            Height =7993
            Name ="Detailbereich"
            GUID = Begin
                0x5a51712c44a85d45a1b1a79cca209d16
            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
                        0x1f03c489c552da44bed3f288e455574f
                    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
                        0xfc39b6ddb296ed49bfe41acfc453b7ab
                    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
                        0x0a73dd82f5c6eb4e9a51d1589a46f408
                    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
                        0xc6c5db3eabf56544bcea44dd23b6d5c7
                    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
                        0x58ffbc365ce84b47aeb11562420f126f
                    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
                        0x0159849f6a838a43ad074d3ad0461c58
                    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
                        0xfe0ed0a6c9301e4586840503c3eb2e9a
                    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
                        0xc084fc7e55223448a268083a426c0b53
                    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
                        0x2b68010344e9c04fae32cfb6acff0bea
                    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
                        0xbc2b664d9b46a840b90c75b3e44c6112
                    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
                        0x4c6c9fd5ac2f2d40abf83f2ed00406a0
                    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
                        0xb409e635cfbf85498bda7c969210e5e1
                    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
                        0xe563f190350ab54881eb980d7b6a9832
                    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
                        0x3bc928e1a7c78b4b8221d9db1b29bd6e
                    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
                        0x62fe33adbf16fa46a49986cc5e3a22af
                    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
                        0x653f841b863e1e4d8abf24ad4d4dfdf2
                    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
                        0x17f1a271e00397479e0effe844bc473b
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =27270
                    Top =45
                    Width =1425
                    Height =300
                    TabIndex =17
                    Name ="Befehl52"
                    Caption ="Endgültig erledigt!"
                    OnClick ="Mkr_SetzenDatumreklaEndbearbeitungEinzeEintragNeu"
                    GUID = Begin
                        0x3fa5bb53813c4645b02f0aae157e3d67
                    End
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x41b6ab835b1763459cd3d2d7ee270743
            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
                        0xbca87c331970df4992709519c469c5ea
                    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