Version =20
VersionRequired =20
Checksum =-1940970213
Begin Form
    AllowDesignChanges = NotDefault
    DefaultView =2
    TabularFamily =7
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =31680
    DatasheetFontHeight =10
    ItemSuffix =46
    Left =450
    Top =7440
    Right =14835
    Bottom =8775
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x36db2a5d4c16e340
    End
    RecordSource ="qry_statustabelle"
    Caption ="subfrm_Terminierung"
    DatasheetFontName ="Arial"
    Begin
        Begin Label
            BackStyle =0
            BackColor =-2147483633
            ForeColor =-2147483630
        End
        Begin Rectangle
            SpecialEffect =3
            BackStyle =0
            Width =850
            Height =850
        End
        Begin Line
            SpecialEffect =3
            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 =806
            Name ="Formularkopf"
            GUID = Begin
                0x5af1750b6c83dd44ba7c9d0819628780
            End
            Begin
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =3
                    Left =57
                    Top =57
                    Width =855
                    Height =240
                    FontWeight =700
                    BackColor =16777215
                    ForeColor =16711680
                    Name ="KD_NR_Bezeichnungsfeld"
                    Caption ="KD_NR"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x6c9ba18025e0ef40ae8d39a5640f146d
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =93
                    TextAlign =3
                    Left =12900
                    Top =57
                    Width =1596
                    Height =240
                    FontWeight =700
                    BackColor =16777215
                    ForeColor =16711680
                    Name ="Status_NR_Bezeichnungsfeld"
                    Caption ="Status_NR"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x1ed9fdc16e43474db2915bde59b14ef1
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =93
                    TextAlign =3
                    Left =14553
                    Top =57
                    Width =798
                    Height =240
                    FontWeight =700
                    BackColor =16777215
                    ForeColor =16711680
                    Name ="Anruftag_Bezeichnungsfeld"
                    Caption ="Anruftag"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x44e1b8c69695fc4eaae7a60124124ff6
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =975
                    Top =57
                    Width =711
                    Height =240
                    FontWeight =700
                    BackColor =16777215
                    ForeColor =16711680
                    Name ="Status_Bezeichnungsfeld"
                    Caption ="Status"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xa1f502dfb0a05e4bb18df2b424e730f0
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =1740
                    Top =57
                    Width =2166
                    Height =240
                    FontWeight =700
                    BackColor =16777215
                    ForeColor =16711680
                    Name ="Terminierer_Bezeichnungsfeld"
                    Caption ="Terminierer"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x529f2c507d8070449ea0de07baa90f0c
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =3
                    Left =3960
                    Top =57
                    Width =1443
                    Height =240
                    FontWeight =700
                    BackColor =16777215
                    ForeColor =16711680
                    Name ="WV Datum_Bezeichnungsfeld"
                    Caption ="WV Datum"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="WV_Datum_Bezeichnungsfeld"
                    GUID = Begin
                        0x4020dc8c29f9bc4dbf83e541cfb671d6
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =3
                    Left =5478
                    Top =57
                    Width =945
                    Height =240
                    FontWeight =700
                    BackColor =16777215
                    ForeColor =16711680
                    Name ="WV Uhrzeit_Bezeichnungsfeld"
                    Caption ="WV Uhrzeit"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="WV_Uhrzeit_Bezeichnungsfeld"
                    GUID = Begin
                        0x9d1d91ec089266409d6eb55deb9ff1d2
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =6480
                    Top =57
                    Width =4683
                    Height =240
                    FontWeight =700
                    BackColor =16777215
                    ForeColor =16711680
                    Name ="WV Bemerkung_Bezeichnungsfeld"
                    Caption ="WV Bemerkung"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="WV_Bemerkung_Bezeichnungsfeld"
                    GUID = Begin
                        0x067a8b1c96232342887c2aa104f7a66d
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =215
                    TextAlign =1
                    Left =11281
                    Top =57
                    Width =2166
                    Height =240
                    FontWeight =700
                    BackColor =16777215
                    ForeColor =16711680
                    Name ="AD_Bezeichnungsfeld"
                    Caption ="AD"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x262aec5ffb07d34b8b269ce35bdc7a36
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =215
                    TextAlign =1
                    Left =13504
                    Top =57
                    Width =2166
                    Height =240
                    FontWeight =700
                    BackColor =16777215
                    ForeColor =16711680
                    Name ="Termintag_Bezeichnungsfeld"
                    Caption ="Termintag"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xbf77d7b1599e4f4db58b282aa2060bd9
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =3
                    Left =15727
                    Top =57
                    Width =969
                    Height =240
                    FontWeight =700
                    BackColor =16777215
                    ForeColor =16711680
                    Name ="Termindatum_Bezeichnungsfeld"
                    Caption ="Termindatum"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x0cf18d563bb52e449431c29c85faab96
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =3
                    Left =16753
                    Top =57
                    Width =741
                    Height =240
                    FontWeight =700
                    BackColor =16777215
                    ForeColor =16711680
                    Name ="Terminzeit_Bezeichnungsfeld"
                    Caption ="Terminzeit"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x321dd84469a07d4ea3a14f4a8937ae77
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =17551
                    Top =57
                    Width =1833
                    Height =240
                    FontWeight =700
                    BackColor =16777215
                    ForeColor =16711680
                    Name ="Termin Bemerkung_Bezeichnungsfeld"
                    Caption ="Termin Bemerkung"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="Termin_Bemerkung_Bezeichnungsfeld"
                    GUID = Begin
                        0xdc2cd83262a99e4498248d62bd6f5bab
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =19502
                    Top =57
                    Width =1266
                    Height =240
                    FontWeight =700
                    BackColor =16777215
                    ForeColor =16711680
                    Name ="Bestätigt_Bezeichnungsfeld"
                    Caption ="Bestätigt"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xbf87bc36eb068d45b1daef38d3a54d13
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =21725
                    Top =57
                    Width =780
                    Height =240
                    FontWeight =700
                    BackColor =16777215
                    ForeColor =16711680
                    Name ="Bestätigung Bemerkung_Bezeichnungsfeld"
                    Caption ="Bestätigung Bemerkung"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="Bestätigung_Bemerkung_Bezeichnungsfeld"
                    GUID = Begin
                        0x6172aa5995cee94c88c403d6dd0a69fd
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =22960
                    Top =56
                    Width =165
                    Height =240
                    Name ="Bezeichnungsfeld30"
                    Caption ="Ergebnis:"
                    GUID = Begin
                        0xd2b3f1d37415be42a91de078e2575afe
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =23470
                    Top =56
                    Width =1200
                    Height =240
                    Name ="Bezeichnungsfeld32"
                    Caption ="Abschluß Mobil:"
                    GUID = Begin
                        0x4baa9b51acc476469fecfe7dc7de1f1f
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =25398
                    Top =56
                    Width =1200
                    Height =240
                    Name ="Bezeichnungsfeld33"
                    Caption ="Abschluß Arcor:"
                    GUID = Begin
                        0x6e1c09f10daeaa4596f05e498b4068d5
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =26872
                    Top =113
                    Width =1545
                    Height =240
                    Name ="Bezeichnungsfeld34"
                    Caption ="Abschluß Portierung:"
                    GUID = Begin
                        0xb85ad09f379248479ba22ba1b6ecd881
                    End
                End
                Begin Label
                    OverlapFlags =93
                    Left =30274
                    Top =226
                    Width =1380
                    Height =240
                    Name ="Bezeichnungsfeld39"
                    Caption ="Karte per Post am:"
                    GUID = Begin
                        0x77ec9993fe6b164bb42fe2809f63d7ce
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =28743
                    Top =56
                    Width =1290
                    Height =240
                    Name ="Bezeichnungsfeld41"
                    Caption ="Abschluß UMTS:"
                    GUID = Begin
                        0x8797cbbe259d2a4a8bfd33f1562671a0
                    End
                End
                Begin Label
                    OverlapFlags =215
                    Left =29480
                    Top =453
                    Width =1140
                    Height =240
                    Name ="Bezeichnungsfeld42"
                    Caption ="Abschluß DSL:"
                    GUID = Begin
                        0x72ddaccd9560bb4abd94895c8dc78550
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =22337
                    Top =510
                    Width =1185
                    Height =240
                    Name ="Bezeichnungsfeld43"
                    Caption ="Abschluß Base:"
                    GUID = Begin
                        0x24b0339bda42674e967a9dc95329ac28
                    End
                End
            End
        End
        Begin Section
            Height =1090
            Name ="Detailbereich"
            GUID = Begin
                0x78a29c0573a87b41bd848ad21bacfc6e
            End
            Begin
                Begin TextBox
                    OverlapFlags =85
                    Left =57
                    Top =57
                    Width =855
                    Height =255
                    ColumnWidth =900
                    Name ="KD_NR"
                    ControlSource ="KD_NR"
                    GUID = Begin
                        0xff0e438750cad34494f8ab0531bd2d09
                    End
                End
                Begin TextBox
                    OverlapFlags =93
                    Left =12900
                    Top =57
                    Width =1596
                    Height =255
                    ColumnWidth =1110
                    TabIndex =5
                    Name ="Status_NR"
                    ControlSource ="Status_NR"
                    GUID = Begin
                        0x9353b4a0bc90e24f8085db50b9d1f925
                    End
                End
                Begin TextBox
                    OverlapFlags =93
                    Left =14553
                    Top =57
                    Width =798
                    Height =255
                    ColumnWidth =1110
                    TabIndex =6
                    Name ="Anruftag"
                    ControlSource ="Anruftag"
                    Format ="Short Date"
                    GUID = Begin
                        0xb3f0c97f41f9f544be748d6a8489b4fd
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    OverlapFlags =85
                    Left =975
                    Top =57
                    Width =711
                    Height =255
                    ColumnWidth =1680
                    TabIndex =7
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x7996cd410fae3545bbde148cada607cb
                    End
                    Name ="Status"
                    ControlSource ="Status"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_Status"
                    DefaultValue ="\"WV\""
                End
                Begin ComboBox
                    OverlapFlags =85
                    Left =1740
                    Top =57
                    Width =2166
                    Height =255
                    ColumnWidth =3015
                    TabIndex =1
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xe3657ec52192d743acecb53fa95535b7
                    End
                    Name ="Terminierer"
                    ControlSource ="Terminierer"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_Agent"
                End
                Begin TextBox
                    OverlapFlags =85
                    Left =3960
                    Top =57
                    Width =1443
                    Height =255
                    ColumnWidth =1155
                    TabIndex =2
                    Name ="WV Datum"
                    ControlSource ="WV Datum"
                    Format ="Short Date"
                    DefaultValue ="=Date()"
                    EventProcPrefix ="WV_Datum"
                    GUID = Begin
                        0x7b4e382eb48c3e47ab4bfc7eb48eab86
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    Left =5478
                    Top =57
                    Width =945
                    Height =255
                    ColumnWidth =1215
                    TabIndex =3
                    Name ="WV Uhrzeit"
                    ControlSource ="WV Uhrzeit"
                    Format ="Short Time"
                    DefaultValue ="=Time()"
                    EventProcPrefix ="WV_Uhrzeit"
                    GUID = Begin
                        0x64bc520bcf7d484a8ee85c20fe01d3c2
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    OverlapFlags =85
                    Left =6480
                    Top =57
                    Width =4683
                    Height =840
                    ColumnWidth =1905
                    TabIndex =4
                    Name ="WV Bemerkung"
                    ControlSource ="WV Bemerkung"
                    DefaultValue ="\"Neu Terminieren\""
                    EventProcPrefix ="WV_Bemerkung"
                    GUID = Begin
                        0xfe65983bc502e44fb0a1f23df9825429
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    OverlapFlags =247
                    Left =11281
                    Top =57
                    Width =2166
                    Height =255
                    ColumnWidth =1410
                    TabIndex =8
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xbfb2d7fd348de049a368f2f2881b283d
                    End
                    Name ="AD"
                    ControlSource ="AD"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_AD"
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    OverlapFlags =247
                    Left =13504
                    Top =57
                    Width =2166
                    Height =255
                    ColumnWidth =1395
                    TabIndex =9
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xb8bf7a9ae9adaa429c22af75900c4678
                    End
                    Name ="Termintag"
                    ControlSource ="Termintag"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_Tag"
                End
                Begin TextBox
                    OverlapFlags =85
                    Left =15727
                    Top =57
                    Width =969
                    Height =255
                    ColumnWidth =1425
                    TabIndex =10
                    Name ="Termindatum"
                    ControlSource ="Termindatum"
                    Format ="Short Date"
                    GUID = Begin
                        0x72cf15df24fc374ca75ea0bdf1aa854a
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    Left =16753
                    Top =57
                    Width =741
                    Height =255
                    ColumnWidth =1170
                    TabIndex =11
                    Name ="Terminzeit"
                    ControlSource ="Terminzeit"
                    Format ="Short Time"
                    GUID = Begin
                        0xdc408328cead0d4e8d66c67669fad44d
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    OverlapFlags =85
                    Left =17551
                    Top =57
                    Width =1833
                    Height =840
                    ColumnWidth =2190
                    TabIndex =12
                    Name ="Termin Bemerkung"
                    ControlSource ="Termin Bemerkung"
                    EventProcPrefix ="Termin_Bemerkung"
                    GUID = Begin
                        0x9ae65ca6e5ac07468416c0d6e3006429
                    End
                End
                Begin ComboBox
                    OverlapFlags =85
                    Left =19502
                    Top =57
                    Width =1266
                    Height =255
                    ColumnWidth =975
                    TabIndex =13
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x0a78f9ca9a4e5a429628a26070ab38a7
                    End
                    Name ="Bestätigt"
                    ControlSource ="Bestätigt"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_Bestätigt"
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    OverlapFlags =85
                    Left =21725
                    Top =57
                    Width =780
                    Height =840
                    ColumnWidth =2430
                    TabIndex =14
                    Name ="Bestätigung Bemerkung"
                    ControlSource ="Bestätigung Bemerkung"
                    EventProcPrefix ="Bestätigung_Bemerkung"
                    GUID = Begin
                        0xb9e5a155970a084e966f14597fd06d3f
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    OverlapFlags =85
                    Left =22733
                    Top =56
                    Width =801
                    ColumnWidth =2145
                    TabIndex =15
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x89c32ed2d91ff745b278ee442c53759c
                    End
                    Name ="Ergebnis"
                    ControlSource ="Ergebnis"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_Ergebnis"
                End
                Begin TextBox
                    OverlapFlags =85
                    Left =23697
                    Top =56
                    ColumnWidth =1605
                    TabIndex =16
                    Name ="Abschluß Mobil"
                    ControlSource ="Abschluß Mobil"
                    EventProcPrefix ="Abschluß_Mobil"
                    GUID = Begin
                        0xf2f21802eef88f46b318ee3a5d742568
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    Left =25681
                    Top =56
                    ColumnWidth =1590
                    TabIndex =17
                    Name ="Abschluß Arcor"
                    ControlSource ="Abschluß Arcor"
                    EventProcPrefix ="Abschluß_Arcor"
                    GUID = Begin
                        0x5ff94d8e16f6b841bd79627a864fba23
                    End
                End
                Begin TextBox
                    OverlapFlags =93
                    Left =27496
                    Top =56
                    ColumnWidth =2085
                    TabIndex =18
                    Name ="Abschluß Portierung"
                    ControlSource ="Abschluß Portierung"
                    EventProcPrefix ="Abschluß_Portierung"
                    GUID = Begin
                        0xbfde4f55feb68c4eb4f515e2de3fb121
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =31011
                    Top =850
                    Width =669
                    ColumnWidth =1770
                    TabIndex =21
                    Name ="Karte per Post am"
                    ControlSource ="Karte per Post am"
                    Format ="Short Date"
                    EventProcPrefix ="Karte_per_Post_am"
                    GUID = Begin
                        0x794679b2bec9f64bae12b38a94bac9a3
                    End
                End
                Begin TextBox
                    OverlapFlags =87
                    IMESentenceMode =3
                    Left =29196
                    TabIndex =19
                    Name ="Abschluß UMTS"
                    ControlSource ="Abschluß UMTS"
                    EventProcPrefix ="Abschluß_UMTS"
                    GUID = Begin
                        0x45f09b823021d242826ce674497bc445
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =29083
                    Top =680
                    TabIndex =20
                    Name ="Abschluß DSL"
                    ControlSource ="Abschluß DSL"
                    EventProcPrefix ="Abschluß_DSL"
                    GUID = Begin
                        0xedb9493de0d24f478e884b1357505768
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =26532
                    Top =623
                    TabIndex =22
                    Name ="Abschluß Base"
                    ControlSource ="Abschluß Base"
                    EventProcPrefix ="Abschluß_Base"
                    GUID = Begin
                        0x93c56667f973454da3a0945dce15e8d6
                    End
                End
            End
        End
        Begin FormFooter
            Height =0
            BackColor =-2147483633
            Name ="Formularfuß"
            GUID = Begin
                0x7cf420b8a360eb4d87d3c3967081b4f7
            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 Terminübersicht_für_Quali_öffnen_Click()
On Error GoTo Err_Terminübersicht_für_Quali_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Terminübersicht"
    
    stLinkCriteria = "[Datum]=" & "#" & Me![Termindatum] & "#"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Terminübersicht_für_Quali_öffnen_Cl:
    Exit Sub

Err_Terminübersicht_für_Quali_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Terminübersicht_für_Quali_öffnen_Cl
    
End Sub
Private Sub Befehl45_Click()
On Error GoTo Err_Befehl45_Click


    DoCmd.Close

Exit_Befehl45_Click:
    Exit Sub

Err_Befehl45_Click:
    MsgBox Err.Description
    Resume Exit_Befehl45_Click
    
End Sub