Version =20
VersionRequired =20
Checksum =-1023919879
Begin Form
    PopUp = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = 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 =9756
    DatasheetFontHeight =10
    ItemSuffix =25
    Left =2535
    Top =1200
    Right =21495
    Bottom =12675
    DatasheetGridlinesColor =12632256
    Filter ="((tbl_retentionprov.MonatJahr=#1/1/2012#))"
    OrderBy ="tbl_retentionprov.ID"
    RecSrcDt = Begin
        0x6ca2bc0c8f4ee440
    End
    RecordSource ="qry_retentionAuswahlProv"
    Caption ="BCS Group Retention Ergebnis Eingabe"
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin Rectangle
            SpecialEffect =3
            BackStyle =0
            Width =850
            Height =850
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin OptionGroup
            SpecialEffect =3
            Width =1701
            Height =1701
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin FormHeader
            Height =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x8d0edcdaed16b44cbe4462ffb39e1c6e
            End
            Begin
                Begin ComboBox
                    RowSourceTypeInt =1
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =240
                    Top =120
                    Width =2046
                    Height =345
                    GUID = Begin
                        0x0e82424751d3704596a008dda4bc2d3a
                    End
                    Name ="MonatJahr"
                    RowSourceType ="Value List"
                    RowSource ="01.06.2013;01.07.2013;01.08.2013;01.09.2013;01.10.2013;01.11.2013;01.12.2013"
                    DefaultValue ="=\"01.\" & Right(Date(),7)"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2490
                    Top =90
                    Width =1155
                    Height =405
                    TabIndex =1
                    Name ="Befehl23"
                    Caption ="Aktualisieren"
                    OnClick ="Mkr_AktErgebnisAD"
                    GUID = Begin
                        0x5813a722da60f74689574e3202dba066
                    End
                End
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =10091
            Name ="Detailbereich"
            GUID = Begin
                0xcc9e3740551eb74ab4d605eb16be31a6
            End
            Begin
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =225
                    Top =9465
                    Width =5556
                    Height =450
                    FontSize =10
                    Name ="RK"
                    ControlSource ="RK"
                    FontName ="Arial"
                    GUID = Begin
                        0x9f97ecf38eee7c4e8ac8818a2958bf7b
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Enabled = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =7320
                    Top =9465
                    Width =741
                    Height =450
                    TabIndex =1
                    Name ="Prov"
                    ControlSource ="Prov"
                    GUID = Begin
                        0xfe2ae1d669a85a459f14e7e3605d15ac
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Enabled = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =8160
                    Top =9465
                    Width =741
                    Height =450
                    TabIndex =2
                    Name ="WKZ"
                    ControlSource ="WKZ"
                    GUID = Begin
                        0x2945574768e2ae4c99f58aa96290be71
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Enabled = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =9015
                    Top =9465
                    Width =741
                    Height =450
                    TabIndex =3
                    Name ="Punkte"
                    ControlSource ="Punkte"
                    GUID = Begin
                        0x3202bc08cf512d48aed23386ec8e1a2e
                    End
                End
                Begin ListBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =225
                    Top =60
                    Width =5565
                    Height =9245
                    FontSize =10
                    TabIndex =4
                    Name ="Liste15"
                    RowSourceType ="Table/Query"
                    RowSource ="SELECT [qry_retentionAuswahlProv].[RK] FROM [qry_retentionAuswahlProv];"
                    ColumnWidths ="6225"
                    AfterUpdate ="[Event Procedure]"
                    FontName ="Arial"
                    GUID = Begin
                        0xd680b448f95d7c4b9574546f2bb2d729
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OldBorderStyle =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =6177
                    Top =521
                    Width =3228
                    Height =345
                    TabIndex =6
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Import Datum"
                    DefaultValue ="=Date()"
                    FontName ="Arial"
                    EventProcPrefix ="Import_Datum"
                    GUID = Begin
                        0xdeb9d7ce6c288c4cba7ba83bc54b8253
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OldBorderStyle =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =6177
                    Top =986
                    Width =3228
                    Height =345
                    TabIndex =7
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="ID"
                    DefaultValue ="=[Forms]![frmRetentionVoiceNachbearbeiten]![ID_RD]"
                    FontName ="Arial"
                    GUID = Begin
                        0x3b9cc82ca5690a4ea0814a8ec7352b5e
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =5895
                    Top =9450
                    Width =516
                    Height =450
                    TabIndex =8
                    Name ="Befehl19"
                    Caption ="Befehl19"
                    OnClick ="Mkr_retentionErgebnisSetzen"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadaddad000000000dada ,
                        0xad03838380780dadda0fbfbfb0000adaada0fbfbfb0dadaddad0bfbfbf0adada ,
                        0xadad0fbfbfb0adaddada03838380dadaadada07777780daddad0000000070ada ,
                        0xada0fbfbfb070daddada00000000dadaadadadadadadadaddadadadadadadada ,
                        0xadadadadadadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Makro ausführen"
                    GUID = Begin
                        0xf771df60c68c494e998693ce460efb56
                    End
                End
                Begin Subform
                    OverlapFlags =85
                    Left =6122
                    Top =1530
                    Width =3300
                    Height =3795
                    TabIndex =9
                    Name ="frm_Option"
                    SourceObject ="Form.frm_Option"
                    GUID = Begin
                        0xfb69794cbaa51c45947420010a74e42f
                    End
                End
                Begin ComboBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =6177
                    Top =56
                    Width =3183
                    TabIndex =5
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x191aa7922475e8429cadf7db7ecac13d
                    End
                    Name ="Sachbearbeiter"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_AgentRetentionAktiv"
                    DefaultValue ="=[Forms]![frmRetentionVoiceNachbearbeiten]![Sachbearbeiter VVL]"
                    FontName ="Arial"
                End
            End
        End
        Begin FormFooter
            Height =576
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0xc742e3b436e7924faa7372914e60011f
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =225
                    Top =60
                    Width =531
                    Height =516
                    Name ="Befehl20"
                    Caption ="Befehl20"
                    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
                        0x97c7145c03600646a1614954fddaa267
                    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 Liste15_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[RK] = '" & Me![Liste15] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Befehl19_Click()
On Error GoTo Err_Befehl19_Click

    Dim stDocName As String

    stDocName = "<Mkr_ZoomInfo"
    DoCmd.RunMacro stDocName

Exit_Befehl19_Click:
    Exit Sub

Err_Befehl19_Click:
    MsgBox Err.Description
    Resume Exit_Befehl19_Click
    
End Sub
Private Sub Befehl20_Click()
On Error GoTo Err_Befehl20_Click


    DoCmd.Close

Exit_Befehl20_Click:
    Exit Sub

Err_Befehl20_Click:
    MsgBox Err.Description
    Resume Exit_Befehl20_Click
    
End Sub
Private Sub Befehl23_Click()
On Error GoTo Err_Befehl23_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Befehl23_Click:
    Exit Sub

Err_Befehl23_Click:
    MsgBox Err.Description
    Resume Exit_Befehl23_Click
    
End Sub