Version =20
VersionRequired =20
Checksum =1892314213
Begin Form
    AutoResize = NotDefault
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    NavigationButtons = NotDefault
    AllowDeletions = NotDefault
    CloseButton = NotDefault
    AllowAdditions = NotDefault
    AllowEdits = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =48
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =16953
    DatasheetFontHeight =10
    ItemSuffix =32
    Left =5145
    Top =2730
    Right =23820
    Bottom =9690
    DatasheetGridlinesColor =12632256
    Filter ="[Forms]![frm_HauptTerminierungWV]![subfrm_Terminierung].[Form]![KD_NR]=[KD_NR]"
    RecSrcDt = Begin
        0x90018bd74e65e340
    End
    RecordSource ="qry_sAntragsdatenDaisyFrmTalklineDaisy"
    Caption ="bcs group Mobilcom Debitel Verträge"
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin Image
            BackStyle =0
            OldBorderStyle =0
            PictureAlignment =2
            Width =1701
            Height =1701
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin BoundObjectFrame
            SpecialEffect =2
            Width =4536
            Height =2835
            LabelX =-1701
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin FormHeader
            Height =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x70f162365d44d24194e0b21a2f828373
            End
            Begin
                Begin TextBox
                    Enabled = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OverlapFlags =93
                    TextAlign =3
                    BackStyle =0
                    IMESentenceMode =3
                    Left =14115
                    Top =127
                    Width =1716
                    Height =330
                    FontSize =12
                    FontWeight =700
                    Name ="AktuellesDatum"
                    ControlSource ="=Date()"
                    FontName ="Arial"
                    InputMask ="99,99,0000;0;#"
                    GUID = Begin
                        0xde00433bbe13a44d8175fb0de4766898
                    End
                    OnDirty ="Aktualisieren"
                End
                Begin TextBox
                    Enabled = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OverlapFlags =247
                    TextAlign =3
                    BackStyle =0
                    IMESentenceMode =3
                    Left =15814
                    Top =120
                    Width =1026
                    Height =330
                    FontSize =12
                    FontWeight =700
                    TabIndex =1
                    Name ="AktuelleZeit"
                    ControlSource ="=Time()"
                    Format ="Short Time"
                    FontName ="Arial"
                    InputMask ="00:00;0;_"
                    GUID = Begin
                        0x39b5c467976ec240b8de11170892b02f
                    End
                    OnDirty ="Aktualisieren"
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =2309
                    Top =125
                    Height =345
                    FontSize =12
                    FontWeight =700
                    TabIndex =2
                    Name ="Status_NR"
                    ControlSource ="KD_NR"
                    FontName ="Arial"
                    GUID = Begin
                        0xfcf5b764ed7c7b479b08df066751bf33
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =315
                    Top =120
                    Width =1935
                    Height =345
                    FontSize =12
                    FontWeight =700
                    Name ="Bezeichnungsfeld30"
                    Caption ="Kundennummer"
                    FontName ="Arial"
                    GUID = Begin
                        0x3c1394f539eb054186088bb8c7e892ca
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =4138
                    Top =56
                    Width =456
                    Height =456
                    TabIndex =3
                    Name ="Befehl31"
                    Caption ="Befehl31"
                    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
                        0x44f32a849fbc2d45be0bbf61840d199f
                    End
                End
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =9921
            Name ="Detailbereich"
            GUID = Begin
                0x38783e06e98e514d9539aada0e7c5019
            End
            Begin
                Begin Subform
                    OverlapFlags =85
                    SpecialEffect =0
                    BorderWidth =1
                    Left =285
                    Top =225
                    Width =16598
                    Height =2385
                    Name ="qry_sAntragsdatenDaisy"
                    SourceObject ="Form.frm_sAntragsdatenDaisy_Neu"
                    LinkChildFields ="KD_NR"
                    LinkMasterFields ="KD_NR"
                    GUID = Begin
                        0xb8f88ad88f7e6a4d97650b4cf442d37f
                    End
                End
                Begin Subform
                    OverlapFlags =85
                    SpecialEffect =0
                    BorderWidth =1
                    Left =281
                    Top =3059
                    Width =16605
                    Height =2325
                    TabIndex =1
                    Name ="qry_SimDaisy"
                    SourceObject ="Form.frm_SimDaisy"
                    LinkChildFields ="KD_NR"
                    LinkMasterFields ="KD_NR"
                    GUID = Begin
                        0x463bf1fe8d2e0149bddbafb33e52a249
                    End
                End
                Begin Subform
                    OverlapFlags =85
                    SpecialEffect =0
                    BorderWidth =1
                    Left =285
                    Top =5895
                    Width =16590
                    Height =2385
                    TabIndex =2
                    Name ="qry_NachrichtenDaisy"
                    SourceObject ="Form.frm_NachrichtenDaisy"
                    LinkChildFields ="KD_NR"
                    LinkMasterFields ="KD_NR"
                    GUID = Begin
                        0x00b4c62dcce5e547bead19de54efa640
                    End
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0xffcb1fc1e35a5b42bb06bbd8aec7e553
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =16440
                    Top =60
                    Width =456
                    Height =456
                    Name ="Befehl26"
                    Caption ="Befehl26"
                    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
                        0xb26ed43b37caf741b4680a2085e7d26c
                    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 OK_Click()
On Error GoTo Err_OK_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Haupt"
    
    stLinkCriteria = "[Terminierer]=" & "'" & Me![Benutzername] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_OK_Click:
    Exit Sub

Err_OK_Click:
    MsgBox Err.Description
    Resume Exit_OK_Click
    
End Sub
Private Sub Befehl7_Click()
On Error GoTo Err_Befehl7_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Haupt"
    
    stLinkCriteria = "[Benutzername]=" & "'" & Me![Benutzername] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Befehl7_Click:
    Exit Sub

Err_Befehl7_Click:
    MsgBox Err.Description
    Resume Exit_Befehl7_Click
    
End Sub
Private Sub Befehl11_Click()
On Error GoTo Err_Befehl11_Click

    Dim stDocName As String

    stDocName = "Mkr_SetzeWertWV"
    DoCmd.RunMacro stDocName

Exit_Befehl11_Click:
    Exit Sub

Err_Befehl11_Click:
    MsgBox Err.Description
    Resume Exit_Befehl11_Click
    
End Sub
Private Sub Befehl26_Click()
On Error GoTo Err_Befehl26_Click


    DoCmd.Close

Exit_Befehl26_Click:
    Exit Sub

Err_Befehl26_Click:
    MsgBox Err.Description
    Resume Exit_Befehl26_Click
    
End Sub
Private Sub Befehl31_Click()
On Error GoTo Err_Befehl31_Click


    DoCmd.Close

Exit_Befehl31_Click:
    Exit Sub

Err_Befehl31_Click:
    MsgBox Err.Description
    Resume Exit_Befehl31_Click
    
End Sub