Version =20
VersionRequired =20
Checksum =-2099127820
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 =15480
    DatasheetFontHeight =10
    ItemSuffix =40
    Left =12810
    Top =10995
    Right =25155
    Bottom =19605
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x08f672c21bd5e340
    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 =1020
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x049a9a9233406c4e81900f7fbf94daf6
            End
            Begin
                Begin ComboBox
                    RowSourceTypeInt =1
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =240
                    Top =120
                    Width =2046
                    Height =345
                    GUID = Begin
                        0xa73b319592682f4eaef7fc414f676724
                    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 =60
                    Width =1830
                    Height =405
                    TabIndex =1
                    Name ="Befehl23"
                    Caption ="Aktualisieren Voice File"
                    OnClick ="Mkr_AktErgebnisAD"
                    GUID = Begin
                        0xa39d1372585e284c91961376bae83162
                    End
                End
                Begin ComboBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =5550
                    Top =60
                    Width =2385
                    Height =330
                    TabIndex =2
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x0017ef472ae04b46878330b5e51fc114
                    End
                    Name ="SB"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_AgentRetentionAktiv"
                    DefaultValue ="=[Forms]![frmRetentionVoiceNachbearbeiten]![Sachbearbeiter VVL]"
                    FontName ="Arial"
                End
                Begin TextBox
                    Locked = NotDefault
                    OldBorderStyle =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =8065
                    Top =64
                    Width =2385
                    Height =330
                    TabIndex =3
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="ID_Retentiondaten"
                    DefaultValue ="=[Forms]![frmRetentionVoiceNachbearbeiten]![ID_RD]"
                    FontName ="Arial"
                    GUID = Begin
                        0xf70f033cbc86f04e818887aceb90aa6f
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =4478
                    Top =56
                    Width =945
                    Height =285
                    FontSize =10
                    Name ="Bezeichnungsfeld27"
                    Caption ="Voice File"
                    FontName ="Arial"
                    GUID = Begin
                        0x62b10344491929438e4e6a51e57e6367
                    End
                End
                Begin ComboBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =5550
                    Top =525
                    Width =2385
                    Height =330
                    TabIndex =4
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x575f8d9fa8726b4f8d52193dab96d316
                    End
                    Name ="SBFax"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_AgentRetentionAktiv"
                    DefaultValue ="=[Forms]![frm_HauptTerminierungWV]![Retentiondaten].[Form]![SachbearbeiterAgent]"
                    FontName ="Arial"
                End
                Begin TextBox
                    Locked = NotDefault
                    OldBorderStyle =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =8065
                    Top =529
                    Width =2385
                    Height =330
                    TabIndex =5
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="ID_Fax"
                    DefaultValue ="=[Forms]![frm_HauptTerminierungWV]![Retentiondaten].[Form]![ID]"
                    FontName ="Arial"
                    GUID = Begin
                        0xbf8764d8a2461a48bc4b869004c8b77b
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =4478
                    Top =521
                    Width =945
                    Height =285
                    FontSize =10
                    Name ="Bezeichnungsfeld30"
                    Caption ="Fax File"
                    FontName ="Arial"
                    GUID = Begin
                        0xa7b12b58d9bab546b12f496d860a303b
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2490
                    Top =510
                    Width =1830
                    Height =405
                    TabIndex =6
                    Name ="Befehl31"
                    Caption ="Aktualisieren Fax File"
                    OnClick ="Mkr_AktErgebnisADFax"
                    GUID = Begin
                        0x133725686e172d4aa804aafe88582b69
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OldBorderStyle =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =10580
                    Top =64
                    Width =2385
                    Height =330
                    TabIndex =7
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="MSISDNVoice"
                    DefaultValue ="=[Forms]![frmRetentionVoiceNachbearbeiten]![MSISDN]"
                    FontName ="Arial"
                    GUID = Begin
                        0xc08140bfa48c6e4ea470fab7623e1f75
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OldBorderStyle =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =10580
                    Top =529
                    Width =2385
                    Height =330
                    TabIndex =8
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="MSISDNFax"
                    DefaultValue ="=[Forms]![frm_HauptTerminierungWV]![Retentiondaten].[Form]![MSISDN]"
                    FontName ="Arial"
                    GUID = Begin
                        0xfb1dc946395ee147939b5b79f7e216e2
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OldBorderStyle =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13095
                    Top =60
                    Width =2385
                    Height =330
                    TabIndex =9
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="KDNR_Voice"
                    DefaultValue ="=[Forms]![frmRetentionVoiceNachbearbeiten]![KD_NR]"
                    FontName ="Arial"
                    GUID = Begin
                        0x6e01223538854244a39be97dbf1ab90f
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OldBorderStyle =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13095
                    Top =525
                    Width =2385
                    Height =330
                    TabIndex =10
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="KDNR_Fax"
                    DefaultValue ="=[Forms]![frm_HauptTerminierungWV]![KD_NR]"
                    FontName ="Arial"
                    GUID = Begin
                        0x94abcecdfc534c49b3013c2726cce76c
                    End
                End
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =10110
            Name ="Detailbereich"
            GUID = Begin
                0x5f330f802f404743a793fedf8aca5910
            End
            Begin
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =225
                    Top =9465
                    Width =8661
                    Height =450
                    FontSize =10
                    Name ="RK"
                    ControlSource ="RK"
                    FontName ="Arial"
                    GUID = Begin
                        0x20fa759f43e6724688e462db6909e2eb
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Enabled = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =11625
                    Top =9465
                    Width =186
                    Height =450
                    TabIndex =1
                    Name ="Prov"
                    ControlSource ="Prov"
                    GUID = Begin
                        0x399dd5af1d3fd44c8f196a6a33e17dcd
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Enabled = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =11955
                    Top =9465
                    Width =186
                    Height =450
                    TabIndex =2
                    Name ="WKZ"
                    ControlSource ="WKZ"
                    GUID = Begin
                        0xb84ab66c684eb24299b2dbf2c98e587c
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Enabled = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =12240
                    Top =9465
                    Width =186
                    Height =450
                    TabIndex =3
                    Name ="Punkte"
                    ControlSource ="Punkte"
                    GUID = Begin
                        0x396ad059eae6294eb2346eb5ae382e44
                    End
                End
                Begin ListBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =225
                    Top =60
                    Width =8670
                    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
                        0x41ed96501d6dcf4db646ef9b2202fd4c
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OldBorderStyle =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =9010
                    Top =525
                    Width =6450
                    Height =330
                    TabIndex =6
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Import Datum"
                    DefaultValue ="=Date()"
                    FontName ="Arial"
                    EventProcPrefix ="Import_Datum"
                    GUID = Begin
                        0x433e8af3e725bd49a782a5bfedf16423
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OldBorderStyle =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =9010
                    Top =990
                    Width =6450
                    Height =330
                    TabIndex =7
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="ID"
                    FontName ="Arial"
                    GUID = Begin
                        0x545c0e3ca76f7b42a8e5ec085655d786
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =9015
                    Top =9360
                    Width =1926
                    Height =345
                    TabIndex =8
                    Name ="Befehl19"
                    Caption ="Ergebnis setzen Fax"
                    OnClick ="Mkr_retentionErgebnisSetzenFax"
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Makro ausführen"
                    GUID = Begin
                        0xf2f46cb6ca385c41a14cef51dd180d8b
                    End
                End
                Begin Subform
                    OverlapFlags =85
                    Left =8955
                    Top =2325
                    Width =6525
                    Height =6975
                    TabIndex =10
                    Name ="frm_Option"
                    SourceObject ="Form.frm_Option"
                    GUID = Begin
                        0x9950ebbae4f74d44bd1a8ed41a32d8ae
                    End
                End
                Begin ComboBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =9010
                    Top =60
                    Width =6450
                    Height =330
                    TabIndex =5
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xb2f49c79cfb5ec48b4ac837199a42393
                    End
                    Name ="Sachbearbeiter"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_AgentRetentionAktiv"
                    FontName ="Arial"
                End
                Begin TextBox
                    Locked = NotDefault
                    OldBorderStyle =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =9010
                    Top =1455
                    Width =6450
                    Height =330
                    TabIndex =11
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="MSISDN"
                    FontName ="Arial"
                    GUID = Begin
                        0x9127315155ef164989973b5df20782bc
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OldBorderStyle =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =9010
                    Top =1905
                    Width =6450
                    Height =330
                    TabIndex =12
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="KD_NR"
                    FontName ="Arial"
                    GUID = Begin
                        0x5d9f98cc414a3b4c93a947ca5051dbf8
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    OldBorderStyle =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =12585
                    Top =9525
                    Width =1995
                    Height =345
                    TabIndex =13
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="SubArt"
                    DefaultValue ="=[Forms]![frmRetentionVoiceNachbearbeiten]![SubventionArt]"
                    FontName ="Arial"
                    GUID = Begin
                        0x7276913b147e8d4a8d39f1326187273d
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =9015
                    Top =9765
                    Width =1926
                    Height =345
                    TabIndex =9
                    Name ="Befehl39"
                    Caption ="Ergebnis setzen Voice"
                    OnClick ="Mkr_retentionErgebnisSetzenVoice"
                    ControlTipText ="Makro ausführen"
                    GUID = Begin
                        0xf885c3a74a30514d8dd158b8e9935cb7
                    End
                End
            End
        End
        Begin FormFooter
            Height =576
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0xdd2235c635173b4ba4f9a6a24698e67f
            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
                        0xe26c7680deaf3a4c820fcf2899c26356
                    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