Version =20
VersionRequired =20
Checksum =1251175433
Begin Form
    AutoCenter = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    TabularFamily =0
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =6234
    DatasheetFontHeight =10
    ItemSuffix =5
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x34528d8af7bbe240
    End
    GUID = Begin
        0x0fc26e56fabe284788767293acb1726f
    End
    NameMap = Begin
        0x0acc0e55000000007286123c2c44d74faad02fb065fd50f9000000009153ffa9 ,
        0xd8b9e2400000000000000000740062006c005f00410072006200650069007400 ,
        0x730074006100670065003200300030003500000000000000fb928e1f6d5da44b ,
        0xa3c59362d336620e070000007286123c2c44d74faad02fb065fd50f944006100 ,
        0x740075006d00000000000000880194b7014cfe4fb299bdbda5e984e907000000 ,
        0x7286123c2c44d74faad02fb065fd50f95400610067000000
    End
    RecordSource ="tbl_Arbeitstage2005"
    Caption ="frm_Arbeitstage2005"
    DatasheetFontName ="Arial"
    Begin
        Begin Label
            BackStyle =0
            FontSize =10
            FontWeight =700
            BackColor =-2147483633
            ForeColor =16711680
        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 TextBox
            FELineBreak = NotDefault
            SpecialEffect =1
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontSize =12
            BackColor =16375250
            ForeColor =16711680
        End
        Begin ComboBox
            SpecialEffect =1
            OldBorderStyle =0
            TextAlign =1
            Width =1701
            LabelX =-1701
            FontSize =12
            BackColor =16375250
            ForeColor =16711680
        End
        Begin Subform
            SpecialEffect =5
            BorderWidth =1
            Width =1701
            Height =1701
        End
        Begin Tab
            Width =5103
            Height =3402
            FontSize =12
        End
        Begin FormHeader
            Height =0
            BackColor =-2147483633
            Name ="Formularkopf"
            GUID = Begin
                0xc016176ea8c4214db34fd55118b339f7
            End
        End
        Begin Section
            Height =1044
            Name ="Detailbereich"
            GUID = Begin
                0x3354969eaba62349bc15617c5fbdbfb0
            End
            Begin
                Begin TextBox
                    OverlapFlags =87
                    Left =2517
                    Top =114
                    Width =1260
                    Height =360
                    ColumnWidth =1260
                    Name ="Datum"
                    ControlSource ="Datum"
                    Format ="Short Date"
                    GUID = Begin
                        0xee286a069faa5e4a8b8806fadb775103
                    End
                    Begin
                        Begin Label
                            OverlapFlags =93
                            Left =57
                            Top =114
                            Width =2460
                            Height =300
                            Name ="Datum_Bezeichnungsfeld"
                            Caption ="Datum"
                            GUID = Begin
                                0xd9258ca6a82e8a418dcb280828ebc2a8
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =87
                    Left =2517
                    Top =570
                    Width =3660
                    Height =360
                    ColumnWidth =3000
                    TabIndex =1
                    Name ="Tag"
                    ControlSource ="Tag"
                    GUID = Begin
                        0x5b4761fe7da64446b4425446c8217ae2
                    End
                    Begin
                        Begin Label
                            OverlapFlags =93
                            Left =57
                            Top =570
                            Width =2460
                            Height =300
                            Name ="Tag_Bezeichnungsfeld"
                            Caption ="Tag"
                            GUID = Begin
                                0x99e7c446df4e4e4a9c5aa1b3873ed6d1
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3911
                    Top =113
                    Width =1860
                    Height =405
                    TabIndex =2
                    Name ="Termin Formular öffnen"
                    Caption ="Termin Formular öffnen"
                    OnClick ="[Event Procedure]"
                    EventProcPrefix ="Termin_Formular_öffnen"
                    GUID = Begin
                        0xe221694e2e7829418144bdcc916f69c2
                    End
                End
            End
        End
        Begin FormFooter
            Height =0
            BackColor =-2147483633
            Name ="Formularfuß"
            GUID = Begin
                0x394d7b5a9c063c4395ff5bbbdd8e9f2c
            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_Formular_öffnen_Click()
On Error GoTo Err_Termin_Formular_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

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

Exit_Termin_Formular_öffnen_Click:
    Exit Sub

Err_Termin_Formular_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Termin_Formular_öffnen_Click
    
End Sub