Version =20
VersionRequired =20
Checksum =380145442
Begin Form
    PopUp = NotDefault
    AutoCenter = NotDefault
    AllowDeletions = NotDefault
    AllowAdditions = NotDefault
    AllowEdits = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =2
    TabularFamily =48
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =6294
    DatasheetFontHeight =10
    ItemSuffix =18
    Left =300
    Top =2505
    Right =8040
    Bottom =8085
    DatasheetGridlinesColor =12632256
    Filter ="(((tbl_statustabelle.KD_NR=6920711))) AND ((tbl_statustabelle.Status=\"Termin En"
        "ergie VK\"))"
    OrderBy ="tbl_statustabelle.Termindatum"
    RecSrcDt = Begin
        0xc326cf430b11e540
    End
    RecordSource ="qry_ErgebnisEditierenOC"
    Caption ="qry_ErgebnisEditierenOC"
    OnOpen ="Mkr_Max"
    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
            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 =0
            BackColor =-2147483633
            Name ="Formularkopf"
            GUID = Begin
                0xea12ad5dfbe52f46a5f1326474161baa
            End
        End
        Begin Section
            Height =4138
            BackColor =-2147483633
            Name ="Detailbereich"
            GUID = Begin
                0x1a5cb2f35cce59478ffc3e150db41523
            End
            Begin
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1677
                    Top =114
                    Width =900
                    Height =255
                    ColumnWidth =2265
                    Name ="KD_NR"
                    ControlSource ="KD_NR"
                    OnDblClick ="[Event Procedure]"
                    GUID = Begin
                        0x17e95ababf518a4c994e5c9c05207baf
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =57
                            Top =114
                            Width =1560
                            Height =255
                            Name ="KD_NR_Bezeichnungsfeld"
                            Caption ="KD_NR"
                            GUID = Begin
                                0x3de6a793cbfe7e429c38c0639fa4113d
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1677
                    Top =456
                    Width =900
                    Height =255
                    ColumnWidth =1755
                    TabIndex =1
                    Name ="Status_NR"
                    ControlSource ="Status_NR"
                    GUID = Begin
                        0xed4df2556bae6c44b92852e4c7d43a03
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =57
                            Top =456
                            Width =1560
                            Height =255
                            Name ="Status_NR_Bezeichnungsfeld"
                            Caption ="Status_NR"
                            GUID = Begin
                                0xb1576ae589d21a458fc444f8c522e34f
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1677
                    Top =798
                    Width =2310
                    Height =255
                    ColumnWidth =2415
                    TabIndex =2
                    Name ="Status"
                    ControlSource ="Status"
                    GUID = Begin
                        0x63919dfdfad4324898d97d990a9f4316
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =57
                            Top =798
                            Width =1560
                            Height =255
                            Name ="Status_Bezeichnungsfeld"
                            Caption ="Status"
                            GUID = Begin
                                0xab0c7a292e2a7347a4f17016485470e2
                            End
                        End
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1677
                    Top =1140
                    Width =4560
                    Height =450
                    ColumnWidth =2160
                    TabIndex =3
                    Name ="AD"
                    ControlSource ="AD"
                    GUID = Begin
                        0xa5478e3ecd9c5048afd441f7475228f6
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =57
                            Top =1140
                            Width =1560
                            Height =255
                            Name ="AD_Bezeichnungsfeld"
                            Caption ="AD"
                            GUID = Begin
                                0xb63d16bf18566647bef2019be019c9d9
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1677
                    Top =1653
                    Width =1035
                    Height =255
                    ColumnWidth =1305
                    TabIndex =4
                    Name ="Termindatum"
                    ControlSource ="Termindatum"
                    GUID = Begin
                        0xd175d829c7a14548b17522046ee71642
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =57
                            Top =1653
                            Width =1560
                            Height =255
                            Name ="Termindatum_Bezeichnungsfeld"
                            Caption ="Termindatum"
                            GUID = Begin
                                0x0928ed863065b1459c99c702085f2007
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1680
                    Top =2490
                    Width =2310
                    Height =255
                    ColumnWidth =2760
                    TabIndex =6
                    Name ="Ergebnis"
                    ControlSource ="Ergebnis"
                    GUID = Begin
                        0x64525fa09cbd6c4c9168a6067792e4a6
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =2490
                            Width =1560
                            Height =255
                            Name ="Ergebnis_Bezeichnungsfeld"
                            Caption ="Ergebnis"
                            GUID = Begin
                                0xa73394e06f64c64d87a8d829bc918223
                            End
                        End
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Enabled = NotDefault
                    ColumnHidden = NotDefault
                    TabStop = NotDefault
                    DisplayWhen =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1680
                    Top =3225
                    Width =2310
                    Height =255
                    ColumnWidth =0
                    TabIndex =9
                    Name ="Link"
                    ControlSource ="Link"
                    OnDblClick ="[Event Procedure]"
                    GUID = Begin
                        0x65c56070dc12614cafcb3635711a3c7e
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =3225
                            Width =1560
                            Height =255
                            Name ="Link_Bezeichnungsfeld"
                            Caption ="Link"
                            GUID = Begin
                                0x3c6699f3f884e14da98ccc7b5514df8a
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2381
                    Top =2097
                    TabIndex =5
                    Name ="Terminzeit"
                    ControlSource ="Terminzeit"
                    GUID = Begin
                        0x39f3da0d2b716c49b61f6887a16b549d
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =680
                            Top =2097
                            Width =840
                            Height =240
                            Name ="Bezeichnungsfeld14"
                            Caption ="Terminzeit:"
                            GUID = Begin
                                0x3c1c9f6ba4f49b4b93060ce104f76ee5
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1814
                    Top =2891
                    ColumnWidth =4350
                    TabIndex =7
                    Name ="Ergebnis_unter"
                    ControlSource ="Ergebnis_unter"
                    GUID = Begin
                        0x65e62063830aa44b8f5f565ce7c48a05
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =113
                            Top =2891
                            Width =1185
                            Height =240
                            Name ="Bezeichnungsfeld15"
                            Caption ="Ergebnis_unter:"
                            GUID = Begin
                                0x7d88bf8d9f64e24e9a0ce3034492285f
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1821
                    Top =3525
                    TabIndex =8
                    Name ="Bemerkung"
                    ControlSource ="Bemerkung"
                    GUID = Begin
                        0x3b481763e0e8714894461a507570571d
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =120
                            Top =3525
                            Width =1185
                            Height =240
                            Name ="Bezeichnungsfeld17"
                            Caption ="Bemerkung:"
                            GUID = Begin
                                0x352f538cc203e14b936b41ce9e4d39ff
                            End
                        End
                    End
                End
            End
        End
        Begin FormFooter
            Height =0
            BackColor =-2147483633
            Name ="Formularfuß"
            GUID = Begin
                0x7c403f484a097e46a30f1245cd565495
            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 KD_NR_DblClick(Cancel As Integer)
CreateObject("Shell.Application").ShellExecute Me.Link
End Sub

Private Sub Link_DblClick(Cancel As Integer)
CreateObject("Shell.Application").ShellExecute Me.Link
End Sub