Version =20
VersionRequired =20
Checksum =-1181508149
Begin Form
    PopUp = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    NavigationButtons = NotDefault
    AllowDeletions = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowAdditions = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =5952
    DatasheetFontHeight =10
    ItemSuffix =28
    Left =8910
    Top =2730
    Right =15150
    Bottom =8460
    DatasheetGridlinesColor =12632256
    Filter ="(((tbl_statustabelle.KD_NR=6920711))) AND ((tbl_statustabelle.Status=\"Termin En"
        "ergie VK\"))"
    OrderBy ="tbl_statustabelle.Termindatum"
    RecSrcDt = Begin
        0xe10ab231a859e540
    End
    RecordSource ="qry_Statustabelle_Termindatum_loeschen"
    Caption ="bcs group Terminaualifizierung"
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin FormHeader
            Height =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x7dfef6a3053ede4eac087a44d1bc42e6
            End
        End
        Begin Section
            Height =2097
            Name ="Detailbereich"
            GUID = Begin
                0x490e551926379046ac6ec34cd2a90f4c
            End
            Begin
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Top =226
                    Width =1656
                    Height =240
                    FontWeight =700
                    ForeColor =16711680
                    Name ="Status_NR_Bezeichnungsfeld"
                    Caption ="Status_NR"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x7840856efd4ba04baf77120ca25f5735
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1814
                    Top =225
                    Width =3291
                    ColumnWidth =1110
                    Name ="Status_NR"
                    ControlSource ="Status_NR"
                    FontName ="Arial"
                    GUID = Begin
                        0x48fec7a2f22c314dabd2a4fa76557df8
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Top =691
                    Width =1704
                    Height =240
                    FontWeight =700
                    ForeColor =16711680
                    Name ="Bezeichnungsfeld23"
                    Caption ="Ergebnis"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xb79a8da8a620c94fa3cd16111cb18c5b
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =5265
                    Top =690
                    Width =381
                    Height =456
                    TabIndex =3
                    Name ="Befehl22"
                    Caption ="Befehl22"
                    OnClick ="MkrSchliessenErgebnisAntje"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadad0dadadadadaadad00adadadadaddad030dadadadada ,
                        0xad0330adadadadad0033300000000adaa03330ff0dadadadd03300ff0adad4da ,
                        0xa03330ff0dad44add03330ff0ad44444a03330ff0d444444d03330ff0ad44444 ,
                        0xa0330fff0dad44add030ffff0adad4daa00fffff0dadadadd00000000adadada ,
                        0xadadadadadadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    FontName ="Arial"
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Makro ausführen"
                    GUID = Begin
                        0x6212d54664e1bf40a64027e0d36f6798
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    RowSourceTypeInt =1
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1815
                    Top =705
                    Width =3291
                    TabIndex =1
                    GUID = Begin
                        0xed5a57ca6561c94dafcd3f1ad0bdfcff
                    End
                    Name ="Ergebnis"
                    ControlSource ="Ergebnis"
                    RowSourceType ="Value List"
                    RowSource ="\"Keine Rückmeldung\""
                    FontName ="Arial"
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1814
                    Top =1133
                    Height =270
                    TabIndex =2
                    Name ="Terminzeit"
                    ControlSource ="Terminzeit"
                    Format ="Short Time"
                    FontName ="Arial"
                    GUID = Begin
                        0x04253212921fe849ac3a6dbc75d60c00
                    End
                    Begin
                        Begin Label
                            BackStyle =1
                            OverlapFlags =85
                            TextAlign =1
                            Top =1133
                            Width =1020
                            Height =255
                            FontWeight =700
                            ForeColor =16711680
                            Name ="Bezeichnungsfeld27"
                            Caption ="Terminzeit"
                            FontName ="Arial"
                            GUID = Begin
                                0xcd2553d17b7a7a42829b1bd85a3d1a1c
                            End
                        End
                    End
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x51d538afbee1914c87f13ca01cdf8884
            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 Befehl3_Click()
On Error GoTo Err_Befehl3_Click


    DoCmd.Close

Exit_Befehl3_Click:
    Exit Sub

Err_Befehl3_Click:
    MsgBox Err.Description
    Resume Exit_Befehl3_Click
    
End Sub
Private Sub Terminabsage_senden_Click()
On Error GoTo Err_Terminabsage_senden_Click

    Dim stDocName As String

    stDocName = "Mkr_TerminabsageVorTermintagSenden"
    DoCmd.RunMacro stDocName

Exit_Terminabsage_senden_Click:
    Exit Sub

Err_Terminabsage_senden_Click:
    MsgBox Err.Description
    Resume Exit_Terminabsage_senden_Click
    
End Sub
Private Sub Befehl22_Click()
On Error GoTo Err_Befehl22_Click

    Dim stDocName As String

    stDocName = "Mkr_schliessen_termindatum_loeschen"
    DoCmd.RunMacro stDocName

Exit_Befehl22_Click:
    Exit Sub

Err_Befehl22_Click:
    MsgBox Err.Description
    Resume Exit_Befehl22_Click
    
End Sub