Version =20
VersionRequired =20
Checksum =1177257147
Begin Form
    AutoResize = NotDefault
    PopUp = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    NavigationButtons = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =18368
    DatasheetFontHeight =10
    ItemSuffix =36
    Left =5535
    Top =2985
    Right =22905
    Bottom =11805
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xd5b429a21471e340
    End
    Caption ="bcs group Handy Gutschrift Kontrolle"
    OnOpen ="Mkr_OpenRufnummernblock"
    DatasheetFontName ="Arial"
    OnLoad ="Mkr_Max"
    Moveable =0
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin FormHeader
            CanGrow = NotDefault
            Height =737
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x52d71da677dde04d9113fb0d94f1815f
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =8100
                    Top =225
                    Width =351
                    Height =345
                    TabIndex =3
                    Name ="OK"
                    Caption ="OK"
                    OnClick ="Mkr_Blocknummer"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadad00000000000adada ,
                        0x003333333330adad0b03333333330ada0fb03333333330ad0bfb03333333330a ,
                        0x0fbfb000000000000bfbfbfbfb0adada0fbfbfbfbf0dadad0bfb0000000adada ,
                        0xa000adadadad000ddadadadadadad00aadadadad0dad0d0ddadadadad000dada ,
                        0xadadadadadadadad
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Befehl ausführen"
                    GUID = Begin
                        0x2f8be412a139864fa5d02d585177328e
                    End
                End
                Begin Label
                    OverlapFlags =93
                    Left =2535
                    Width =1395
                    Height =225
                    FontSize =7
                    Name ="Bezeichnungsfeld11"
                    Caption ="Netz"
                    FontName ="Arial"
                    GUID = Begin
                        0x0d697673be1c9949aa1c8df71de7626e
                    End
                End
                Begin ComboBox
                    ColumnHeads = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =87
                    IMESentenceMode =3
                    ColumnCount =2
                    Left =2505
                    Top =225
                    Width =3186
                    Height =330
                    FontSize =12
                    TabIndex =1
                    ColumnInfo ="\"\";\"\";\"\";\"\";\"10\";\"50\""
                    GUID = Begin
                        0x14cbc09532d88a49bd52273c00d4b018
                    End
                    Name ="Netz"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_RufnummernBlockNetzAnzahl"
                    ColumnWidths ="1701"
                    FontName ="Arial"
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =5895
                    Top =240
                    Width =1986
                    Height =330
                    FontSize =12
                    TabIndex =2
                    Name ="Anzahl"
                    FontName ="Arial"
                    GUID = Begin
                        0xcdd0c13795996f45bba111b7058631f4
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =5895
                    Width =1935
                    Height =225
                    FontSize =7
                    Name ="Bezeichnungsfeld21"
                    Caption ="Anzahl Rufnummern im Block"
                    FontName ="Arial"
                    GUID = Begin
                        0xac5ec3fa564b2d44b3aa0c6a8cd96ce1
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =8670
                    Top =240
                    Width =1986
                    Height =330
                    FontSize =12
                    TabIndex =4
                    Name ="Blocknummer"
                    FontName ="Arial"
                    GUID = Begin
                        0x71db20f319cb6742a26e66cf5660581f
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =8670
                    Width =1935
                    Height =225
                    FontSize =7
                    Name ="Bezeichnungsfeld23"
                    Caption ="Blocknummer"
                    FontName ="Arial"
                    GUID = Begin
                        0xe7d27dd3a710124490b34d38a777fa74
                    End
                End
                Begin Subform
                    Visible = NotDefault
                    Enabled = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    Left =13719
                    Top =56
                    Width =1305
                    Height =630
                    TabIndex =7
                    Name ="frm_Blocknumer"
                    SourceObject ="Form.frm_Blocknumer"
                    GUID = Begin
                        0xe90574e3e082d3488d10594e62262480
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =11281
                    Top =226
                    Width =351
                    Height =345
                    TabIndex =6
                    Name ="Befehl27"
                    Caption ="Ausgabe in Excel"
                    OnClick ="Mkr_NummernblockinExcel"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff002727272727272727727272727272727227ffffffffffff27 ,
                        0x72fffffff727277227f2727272f2722772f727272f272f7227f27272f2727f27 ,
                        0x72ff272f27272f7227fff2f2727fff2772ff2f272727ff7227f2f27272727f27 ,
                        0x72f72727f7272f7227f2727fff727f2772ffffffffffff722727272727272727 ,
                        0x7272727272727272000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    GUID = Begin
                        0x99c711444bd8234cb68728960ffd7aa5
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =10828
                    Top =226
                    Width =351
                    Height =345
                    TabIndex =5
                    Name ="Befehl28"
                    Caption ="OK"
                    OnClick ="Mkr_RufnummernblockHerausnehmen1"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadad00000000000adada ,
                        0x003333333330adad0b03333333330ada0fb03333333330ad0bfb03333333330a ,
                        0x0fbfb000000000000bfbfbfbfb0adada0fbfbfbfbf0dadad0bfb0000000adada ,
                        0xa000adadadad000ddadadadadadad00aadadadad0dad0d0ddadadadad000dada ,
                        0xadadadadadadadad
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Befehl ausführen"
                    GUID = Begin
                        0x5977d15d1e4f8a42a0c1d8c364b19424
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =225
                    Top =240
                    Width =2046
                    Height =330
                    FontSize =12
                    Name ="Kundennummer"
                    FontName ="Arial"
                    GUID = Begin
                        0xf57bc557d200fa41ab86a8a02bdbdf65
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =225
                    Width =1935
                    Height =225
                    FontSize =7
                    Name ="Bezeichnungsfeld32"
                    Caption ="Kundennummer"
                    FontName ="Arial"
                    GUID = Begin
                        0xd6a655f66595b741aaa5be9008af1de9
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =11735
                    Top =226
                    Width =351
                    Height =345
                    TabIndex =8
                    Name ="Befehl33"
                    Caption ="OK"
                    OnClick ="Mkr_FilterEntfernen"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadad00000000000adada ,
                        0x003333333330adad0b03333333330ada0fb03333333330ad0bfb03333333330a ,
                        0x0fbfb000000000000bfbfbfbfb0adada0fbfbfbfbf0dadad0bfb0000000adada ,
                        0xa000adadadad000ddadadadadadad00aadadadad0dad0d0ddadadadad000dada ,
                        0xadadadadadadadad
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Befehl ausführen"
                    GUID = Begin
                        0x0e01859048aa6d4194620fed7cef1788
                    End
                End
                Begin CommandButton
                    OverlapFlags =93
                    Left =12642
                    Top =226
                    Width =351
                    Height =345
                    TabIndex =9
                    Name ="Befehl34"
                    Caption ="Ausgabe in Excel"
                    OnClick ="Mkr_NummernblockinExcelBlock"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff002727272727272727727272727272727227ffffffffffff27 ,
                        0x72fffffff727277227f2727272f2722772f727272f272f7227f27272f2727f27 ,
                        0x72ff272f27272f7227fff2f2727fff2772ff2f272727ff7227f2f27272727f27 ,
                        0x72f72727f7272f7227f2727fff727f2772ffffffffffff722727272727272727 ,
                        0x7272727272727272
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    GUID = Begin
                        0x75d60355c221a54ca2c99df91555662b
                    End
                End
                Begin Label
                    OverlapFlags =87
                    Left =12360
                    Width =1245
                    Height =225
                    FontSize =7
                    Name ="Bezeichnungsfeld35"
                    Caption ="Ausgabe geblockt"
                    FontName ="Arial"
                    GUID = Begin
                        0x0d6fd840ee343d4eb1a3e4865a30405c
                    End
                End
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =10941
            Name ="Detailbereich"
            GUID = Begin
                0x3c6390ff91e4484c95f2cc67807470f2
            End
            Begin
                Begin Subform
                    OverlapFlags =85
                    Width =18300
                    Height =10830
                    Name ="qry_RufnummernblockNeueAnzeige"
                    SourceObject ="Form.frm_RufnummernblockNeueAnzeige"
                    GUID = Begin
                        0x9df4d940ad62784a8ca58db6b28f5903
                    End
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x7195c5fb995f0b4295dce58bea7beaec
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =60
                    Top =30
                    Width =516
                    Height =516
                    Name ="Befehl0"
                    Caption ="Befehl0"
                    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
                        0x43e718d57308e2488839a6fcf50d0c11
                    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 Befehl0_Click()
On Error GoTo Err_Befehl0_Click


    DoCmd.Close

Exit_Befehl0_Click:
    Exit Sub

Err_Befehl0_Click:
    MsgBox Err.Description
    Resume Exit_Befehl0_Click
    
End Sub
Private Sub Befehl18_Click()
On Error GoTo Err_Befehl18_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_HandyGutschriftverbessernAnfuegen"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Befehl18_Click:
    Exit Sub

Err_Befehl18_Click:
    MsgBox Err.Description
    Resume Exit_Befehl18_Click
    
End Sub