Version =20
VersionRequired =20
Checksum =-1515510306
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    CloseButton = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =9351
    DatasheetFontHeight =10
    ItemSuffix =55
    Left =10260
    Top =1170
    Right =18030
    Bottom =13230
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x4dd37a5af227e340
    End
    Caption ="bcs group Status setzen"
    OnClose ="[Event Procedure]"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0xa0050000a0050000a0050000a005000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    PrtDevMode = Begin
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x010403019c00bc271fd30100010009009a0b3408640001000700580201000100 ,
        0x5802010000004134000000000000000000000000000000000000000000000000 ,
        0x0000000000000000040000000000000000000000000000000000000001000000 ,
        0x030000002201000000000000000000000000000000000000000000006450634b ,
        0x01000000560100001012000090000900000034089a0b2a002a0098129e1a2a00 ,
        0x2a009e1a981234089a0b2a0023009812c21a23002a00c21a9812000004000200 ,
        0x0000000000000000020000000400000000000000000000000000000000000000 ,
        0x0000000001000000000000000100000000000000450200000000000000000000 ,
        0x0000000000000000000000008a04000000000000450200000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000100000030303100000000000500000000000000 ,
        0x3030303000000000000000004c200000ae2d0000000000000200000000000000 ,
        0x000000000000000000000000000000000000000000000000000000004c200000 ,
        0xae2d000000000000020000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000005000000050000000000008064006400 ,
        0x0000000000000000000000000000000000000000000000000100000001000000 ,
        0x0000000001000000101002000200000001000000010000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000020000000 ,
        0x00000000000000000000803f0000000001001e00000000000c0000000000803f ,
        0x00000000000000000200000000000000580200005802000001000000ffffffff ,
        0x0001000001000000020000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000030000000800200004a0100002c01000058020000960000003c000000 ,
        0x160000000000000005000000ec00c201ec00c201ec00c201ec00c20100000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000100000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000100 ,
        0x000000040a000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000000200000000000000000000000000e7030000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0100000000000000030000000000000000000000000000000000000000000000 ,
        0x0000000004010000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000010000000000 ,
        0x0000000000000000000000000000000000000100000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000100303030300000 ,
        0x0600000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000417269616c00000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0xffffff00ffffff00ffffff00ffffff00ffffff00ffffff00ffffff00ffffff00 ,
        0xffffff00ffffff00ffffff00ffffff00ffffff00ffffff00ffffff00ffffff00 ,
        0x000000000000003f0b0001000200000000002041000020410000204100000000 ,
        0x0000000005000200000020410000000006000000000000000000000000000000 ,
        0x0700000022010000000000000700000022010000000000000700000022010000 ,
        0x0000000007000000220100000000000007000000220100000000000007000000 ,
        0x2201000000000000070000002201000000000000070000002201000000000000 ,
        0x0700000022010000000000000700000022010000000000000700000022010000 ,
        0x0000000007000000220100000000000007000000220100000000000007000000 ,
        0x2201000000000000070000002201000000000000070000002201000001000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000006450634b50c30000560100003001000000000000 ,
        0x0000000000000000010001000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000010000006450634b ,
        0x10270000560100001800000000000000000000006450634b204e000056010000 ,
        0x44030000000000000000000056006500720074007200610075006c0069006300 ,
        0x6800200031000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000006450634b64ea0000 ,
        0x5601000010000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000
    End
    PrtDevNames = Begin
        0x0800220047000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000545330303100
    End
    OnLoad ="Mkr_Position"
    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 FormHeader
            Height =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0xa26c8a58cdef7a47a489dcfc95274c68
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1755
                    Top =120
                    Width =5607
                    Height =330
                    FontSize =12
                    BackColor =16777164
                    Name ="Retention"
                    ControlSource ="=[Forms]![frm_HauptTerminierungWV]![Retention]"
                    FontName ="Arial"
                    GUID = Begin
                        0x6cdb2c7f8fa26b4bb125a98fbbaa422f
                    End
                End
            End
        End
        Begin Section
            Height =10941
            Name ="Detailbereich"
            GUID = Begin
                0x3509ce0a3e6bec459b1ae2cca1f2bbdb
            End
            Begin
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =120
                    Width =1245
                    Height =240
                    FontSize =10
                    Name ="KD_NR_Bezeichnungsfeld"
                    Caption ="KD_NR"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xd6c906d23d62b64a98dfd0c9bd11061f
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =926
                    Width =1251
                    Height =240
                    FontSize =10
                    Name ="Status_Bezeichnungsfeld"
                    Caption ="Status"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xc37ec4023c64f744b5b24e9e57fda810
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =1854
                    Width =1251
                    Height =240
                    FontSize =10
                    Name ="Terminierer_Bezeichnungsfeld"
                    Caption ="Terminierer"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x40e2ed1246dee546b06affac8884eeba
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =2304
                    Width =1248
                    Height =240
                    FontSize =10
                    Name ="WV Datum_Bezeichnungsfeld"
                    Caption ="WV Datum"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="WV_Datum_Bezeichnungsfeld"
                    GUID = Begin
                        0x52e9a904f2909548bd7d8c29afb08e29
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =2713
                    Width =1245
                    Height =240
                    FontSize =10
                    Name ="WV Uhrzeit_Bezeichnungsfeld"
                    Caption ="WV Uhrzeit"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="WV_Uhrzeit_Bezeichnungsfeld"
                    GUID = Begin
                        0x5fd4f17c971ccd4ea1cc1ad7aabee485
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =374
                    Top =3122
                    Width =1245
                    Height =255
                    FontSize =10
                    Name ="WV Bemerkung_Bezeichnungsfeld"
                    Caption ="WV Bem."
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="WV_Bemerkung_Bezeichnungsfeld"
                    GUID = Begin
                        0x07743585c3035542b3949ceacc3a7482
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =3546
                    Width =1251
                    Height =240
                    FontSize =10
                    Name ="AD_Bezeichnungsfeld"
                    Caption ="AD"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x63c1c0778735cb46b22c905d10b402df
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =3955
                    Width =1251
                    Height =240
                    FontSize =10
                    Name ="Termintag_Bezeichnungsfeld"
                    Caption ="Termintag"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x718112dbd5993d43b07b4b2e53449238
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =4364
                    Width =1224
                    Height =240
                    FontSize =10
                    Name ="Termindatum_Bezeichnungsfeld"
                    Caption ="Termindatum"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xd544911e5152854d8e61f6750c482f47
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =4773
                    Width =1251
                    Height =240
                    FontSize =10
                    Name ="Terminzeit_Bezeichnungsfeld"
                    Caption ="Terminzeit"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x067e6d3fd168ca46940b5ea1a3347a4e
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =374
                    Top =5182
                    Width =1260
                    Height =255
                    FontSize =10
                    Name ="Termin Bemerkung_Bezeichnungsfeld"
                    Caption ="Termin Bem."
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="Termin_Bemerkung_Bezeichnungsfeld"
                    GUID = Begin
                        0x36ee391d5a13344382fb653cd71ea293
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1695
                    Top =8874
                    Width =5661
                    Height =470
                    FontSize =10
                    TabIndex =20
                    Name ="Befehl16"
                    Caption ="Speichern"
                    OnClick ="[Event Procedure]"
                    FontName ="Arial"
                    ControlTipText ="Zum speichern hier klicken!"
                    GUID = Begin
                        0x085377e39c99a74d85bc8b31dd7bd6bd
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =7530
                    Top =3120
                    Width =411
                    Height =336
                    FontSize =10
                    TabIndex =9
                    ForeColor =0
                    Name ="Befehl18"
                    OnExit ="Mkr_WVGeheSpeichern"
                    FontName ="Arial"
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    GUID = Begin
                        0x9516649204015c4f868236258137d646
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =7530
                    Top =5218
                    Width =411
                    Height =336
                    FontSize =10
                    TabIndex =15
                    ForeColor =0
                    Name ="Befehl19"
                    Caption ="Befehl18"
                    OnClick ="Mkr_ZoomWeiter1"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadada00adadadadadadad000adadadadadada ,
                        0xa000adadadadadadda000a700007dadaada0000888800daddada07ee888870da ,
                        0xada708e88888807ddad08e888888880aada088888888880ddad088888888e80a ,
                        0xada088888888e80ddad70888888ee07aadad07888eee70addadad00888800ada ,
                        0xadadad700007adad
                    End
                    FontName ="Arial"
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    GUID = Begin
                        0xa592f703c030704a89336e021be3edf4
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1695
                    Top =6902
                    Width =5661
                    Height =470
                    FontSize =10
                    TabIndex =18
                    Name ="Terminübersicht"
                    Caption ="Terminübersicht"
                    OnClick ="Mkr_Openfrm_TerminübersichtAuto"
                    FontName ="Arial"
                    ControlTipText ="Zum öffnen der Terminübersicht hier klicken und \"AD\" auswählen!"
                    GUID = Begin
                        0xdec50f7d04c31544b236d97cc589604c
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =529
                    Width =1245
                    Height =285
                    FontSize =10
                    Name ="Bezeichnungsfeld22"
                    Caption ="Anruftag"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x77fad34bae43cc4fad97aa998690dde7
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =60
                    Width =5607
                    Height =315
                    FontSize =12
                    BackColor =16777164
                    Name ="KD_NR"
                    DefaultValue ="=[Forms]![frm_HauptTerminierungWV]![KD_NR]"
                    FontName ="Arial"
                    GUID = Begin
                        0x692197b5f04c38418a4414c60d8fb117
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =2237
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =6
                    BackColor =16777164
                    Name ="WVDatum"
                    Format ="Short Date"
                    FontName ="Arial"
                    GUID = Begin
                        0x41d6e0da8583354f91721801e86cd5eb
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =2659
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =7
                    BackColor =16777164
                    Name ="WVUhrzeit"
                    Format ="Short Time"
                    FontName ="Arial"
                    InputMask ="##:##"
                    GUID = Begin
                        0x7a1429a84291ea4abfd889f2cdc341a8
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =3081
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =8
                    BackColor =16777164
                    Name ="WVBemerkung"
                    OnDblClick ="mkr_zoom"
                    FontName ="Arial"
                    GUID = Begin
                        0x2b0caad6f5a5c2468e282d81de826936
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =4347
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =12
                    BackColor =16777164
                    Name ="Termindatum"
                    Format ="Short Date"
                    FontName ="Arial"
                    GUID = Begin
                        0x89a60d794c8ea741af00578e58758636
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =4769
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =13
                    BackColor =16777164
                    Name ="Terminzeit"
                    Format ="Short Time"
                    FontName ="Arial"
                    InputMask ="##:##"
                    GUID = Begin
                        0x456aa9348029b94e979014d49467ca33
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =5191
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =14
                    BackColor =16777164
                    Name ="Terminbemerkung"
                    FontName ="Arial"
                    GUID = Begin
                        0x371333bb2668f647b5e35ad5b34b3019
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =915
                    Width =5637
                    Height =345
                    FontSize =12
                    TabIndex =2
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xfb3d36dc9025134c9e2a746fe1069e77
                    End
                    Name ="Status"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_StatusTerminierung"
                    OnExit ="Mkr_SteuernummerGutschrift"
                    DefaultValue ="IIf([Forms]![frm_Anmeldung]![Benutzername]=\"David Alscher\",\"WV WC\",IIf([Form"
                        "s]![frm_Anmeldung]![Benutzername]=\"Mathias Wieser\",\"WV mw\",IIf([Forms]![frm_"
                        "Anmeldung]![Benutzername]=\"Pietro Randazzo\",\"WV FC\",IIf([Forms]![frm_Anmeldu"
                        "ng]![Benutzername]=\"Benjamin Beyer\",\"WV FC\",IIf([Forms]![frm_Anmeldung]![Ben"
                        "utzername]=\"Rene Humann\",\"WV FC\",IIf([Forms]![frm_Anmeldung]![Benutzername]="
                        "\"Thomas Opel\",\"WV FC\",IIf([Forms]![frm_Anmeldung]![Benutzername]=\"Holger Mi"
                        "etzschke\",\"WV FC\",IIf([Forms]![frm_Anmeldung]![Benutzername]=\"Peter Ruf\",\""
                        "WV FC\",\"WV\"))))))))"
                    FontName ="Arial"
                    OnGotFocus ="[Event Procedure]"
                    OnLostFocus ="Mkr_Meldungterminiererwechseln"
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =3503
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =10
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x7839a71d3788d644be98779211f67a31
                    End
                    Name ="AD"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_ADAktiv2"
                    FontName ="Arial"
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =3925
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =11
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x6c21c810d0bf624a9ffb989b4db0e7bf
                    End
                    Name ="Termintag"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_Tag"
                    FontName ="Arial"
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =482
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =1
                    BackColor =16777164
                    Name ="Anruftag"
                    DefaultValue ="=Date()"
                    FontName ="Arial"
                    GUID = Begin
                        0x0394e36f25fd704aac79505dd3219cf5
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =374
                    Top =5641
                    Width =1260
                    Height =255
                    FontSize =10
                    Name ="Bezeichnungsfeld24"
                    Caption ="Bestätigt."
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x26240595d9552a48a55b0d04b4328744
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =5650
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =16
                    BackColor =16777164
                    Name ="Bestätigt"
                    ControlSource ="=IIf([Retention]=\"Online Verkauf\",\"Online Verkauf\",IIf([Status]=\"Termin Ser"
                        "vice\",\"Servicetermin\",IIf([Status]=\"Termin Rekla\",\"Servicetermin\",IIf([St"
                        "atus]=\"Termin\" And [Termintag]=\"Montag\" And [Termindatum]=([Anruftag]+3),\"H"
                        "eute auf Morgen\",IIf([Status]=\"Termin\" And [Termindatum]=([Anruftag]+1),\"Heu"
                        "te auf Morgen\",\"NB\")))))"
                    FontName ="Arial"
                    GUID = Begin
                        0x79bb9a621595794797c6c6492a8919db
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =1815
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =5
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xded1c7dd8fce6c43936b2c4fd03124ac
                    End
                    Name ="Terminierer"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_AgentStatusHinzufuegen"
                    DefaultValue ="=IIf([Forms]![frm_Anmeldung]![Benutzername]=\"David Alscher\",\"WC\",IIf([Forms]"
                        "![frm_Anmeldung]![Benutzername]=\"Pietro Randazzo\",\"FC\",IIf([Forms]![frm_Anme"
                        "ldung]![Benutzername]=\"Benjamin Beyer\",\"FC\",IIf([Forms]![frm_Anmeldung]![Ben"
                        "utzername]=\"Rene Humann\",\"FC\",IIf([Forms]![frm_Anmeldung]![Benutzername]=\"H"
                        "olger Mietzschke\",\"FC\",IIf([Forms]![frm_Anmeldung]![Benutzername]=\"Peter Ruf"
                        "\",\"FC\",[Forms]![frm_Anmeldung]![Benutzername]))))))"
                    FontName ="Arial"
                    OnGotFocus ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1695
                    Top =7526
                    Width =5661
                    Height =470
                    FontSize =10
                    TabIndex =19
                    Name ="Befehl29"
                    Caption ="Terminübersicht 8-20 Uhr"
                    OnClick ="Mkr_Terminuebersicht8-20open"
                    FontName ="Arial"
                    ControlTipText ="Zum öffnen der Terminübersicht hier klicken und \"AD\" auswählen!"
                    GUID = Begin
                        0x3cf303e680d40341944146b7d02fba46
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    FontUnderline = NotDefault
                    TabStop = NotDefault
                    IsHyperlink = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =735
                    Top =9465
                    Width =4362
                    Height =345
                    FontSize =12
                    TabIndex =21
                    BackColor =16777164
                    ForeColor =1279872587
                    Name ="Link"
                    ControlSource ="=\"http://service/terminierung/cal_ajax.php?kdnummer=\" & [Forms]![frm_HauptTerm"
                        "inierungWV]![KD_NR]"
                    FontName ="Arial"
                    GUID = Begin
                        0x5b01e96c37b1c546a979d4a9d94daabe
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1695
                    Top =6279
                    Width =5661
                    Height =470
                    TabIndex =17
                    Name ="Befehl39"
                    Caption ="Terminübersicht online"
                    OnClick ="[Event Procedure]"
                    GUID = Begin
                        0x92a9d9c62d5b194e959c66ccdb329c46
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1695
                    Top =8101
                    Width =5661
                    Height =620
                    FontSize =10
                    TabIndex =22
                    Name ="Befehl40"
                    Caption ="Termin setzen Freischaltung"
                    OnClick ="Mkr_Openfrm_terminSetzenFS"
                    FontName ="Arial"
                    ControlTipText ="Zum öffnen der Terminübersicht hier klicken und \"AD\" auswählen!"
                    GUID = Begin
                        0x9f8b72e45b991e49b03f469b9d3bd836
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =690
                    Top =9930
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =23
                    BackColor =16777164
                    Name ="Zeit"
                    DefaultValue ="=Time()"
                    FontName ="Arial"
                    GUID = Begin
                        0x14586752ec63044b811edd6f70bd04e4
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2955
                    Top =9930
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =24
                    BackColor =16777164
                    Name ="Office"
                    DefaultValue ="=[Forms]![frm_Anmeldung]![Office]"
                    FontName ="Arial"
                    GUID = Begin
                        0x60bb5fa316457b4bba8493c2e5055265
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2948
                    Top =10374
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =25
                    BackColor =16777164
                    Name ="Agent2"
                    FontName ="Arial"
                    GUID = Begin
                        0x67b998f87ccbe54b8e831e22e78d0bbe
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =360
                    Top =1365
                    Width =1260
                    Height =255
                    FontSize =10
                    Name ="Bezeichnungsfeld47"
                    Caption ="Terminart"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xd212807b0d433044811647ffe552df7b
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =1350
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =4
                    BoundColumn =1
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"510\""
                    GUID = Begin
                        0x74ce65b3efd583499ecd27471b53a8cf
                    End
                    Name ="Terminart"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_TerminArt"
                    OnExit ="Mkr_Terminartgehezu"
                    DefaultValue ="=IIf([Forms]![frm_Anmeldung]![Benutzerart]=3.01,21,IIf([Forms]![frm_Anmeldung]!["
                        "Benutzerart]=1.2,164,IIf([Forms]![frm_Anmeldung]![Benutzerart]=3.02,131,IIf([For"
                        "ms]![frm_Anmeldung]![Benutzerart]=3.03,141,IIf([Forms]![frm_Anmeldung]![Benutzer"
                        "art]=3.011,101,11)))))"
                    FontName ="Arial"
                    OnGotFocus ="[Event Procedure]"
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =5325
                    Top =10341
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =26
                    BackColor =16777164
                    Name ="BOCC"
                    DefaultValue ="=[Forms]![frm_Haupt]![Agent2]"
                    FontName ="Arial"
                    GUID = Begin
                        0x0014b741aa2e1d4fb00131c29f3559bb
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =7485
                    Top =915
                    Width =1761
                    Height =351
                    FontSize =10
                    TabIndex =3
                    ForeColor =0
                    Name ="Befehl50"
                    Caption ="Speichern brutto"
                    OnClick ="[Event Procedure]"
                    FontName ="Arial"
                    GUID = Begin
                        0x3d6e10ae86691c4cb19e32910ab4df6b
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =690
                    Top =10380
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =27
                    BackColor =16777164
                    Name ="QualiJaNein"
                    DefaultValue ="=[Forms]![frm_Haupt]![QualiJaNein]"
                    FontName ="Arial"
                    GUID = Begin
                        0xb1d8e81bed39b14a9a92afcf48b164f0
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =5329
                    Top =9864
                    Width =1992
                    Height =330
                    FontSize =12
                    TabIndex =28
                    BackColor =16777164
                    Name ="String"
                    OnDblClick ="Mkr_SetzeString"
                    DefaultValue ="=[Forms]![frmEnergieTerminQuali]![string]"
                    FontName ="Arial"
                    GUID = Begin
                        0x19a2c0511aa9dc4ba539df69d481ccf6
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =5325
                    Top =9486
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =29
                    BackColor =16777164
                    Name ="StatusQualiSolar"
                    FontName ="Arial"
                    GUID = Begin
                        0x2981cd13681c0a449a38e30a7364e05b
                    End
                End
            End
        End
        Begin FormFooter
            Height =576
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0xacedd3df3ce1c446a02782ca5950caa7
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =15
                    Top =45
                    Width =516
                    Height =516
                    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
                        0xe305e5f8e7e2574cbf9b0ea66c829a1a
                    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 Befehl30_Click()

End Sub



Private Sub Befehl16_Click()
 
' Löschen WV Datum und Setzen Terminierer Alt wenn Backoffice CC

        If Not IsNull(Me.Status) Then
        
            DoCmd.RunMacro "MkrAgent2"
            
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV 14' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV 10' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV 2' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV EX Agenten' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Essen' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Tunis' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Mail/Fax nicht durch bzw. erhalten' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV doppelte Termine' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV komplett Absagen' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV EX AD' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV ki' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Sofort' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Absage' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV FC' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV WC' ")
            '  CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Energie' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Neu terminieren' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'Quali WV' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Energie Teamleiter' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV gk' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV mw' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Bearbeitung' ")
    End If
    
' Email Termine Heute auf Morgen
    
    ' If Me.Status = "Termin" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.Termindatum = [Forms]![frm_Haupt]![Nächster Arbeitstag] Then
     
   '          DoCmd.OpenForm "frm_EmailHeuteaufMorgen", acNormal, "", "", acEdit, acNormal

        
'    End If

    
' Termine von Backoffice CC
    If Me.Status = "Termin" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.BOCC = "Backoffice CC" Then
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
        'End If
        
' Termine NICHT von Backoffice CC
         ElseIf Me.Status = "Termin" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Not Me.BOCC = "Backoffice CC" Then
                   
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")

        'End If
        
' Termin Service von Backoffice CC
        ElseIf Me.Status = "Termin Service" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.BOCC = "Backoffice CC" Then
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
        'End If
        
' Termine NICHT von Backoffice CC
         ElseIf Me.Status = "Termin Service" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Not Me.BOCC = "Backoffice CC" Then
                   
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")

        'End If
        
' Termin Rekla von Backoffice CC
        ElseIf Me.Status = "Termin Rekla" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.BOCC = "Backoffice CC" Then
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
        'End If
        
' Termin Rekla NICHT von Backoffice CC
         ElseIf Me.Status = "Termin Rekla" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Not Me.BOCC = "Backoffice CC" Then
                   
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")

        'End If
        
' Termin Energie Analyse von Backoffice CC
        ElseIf Me.Status = "Termin Energie Analyse" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.BOCC = "Backoffice CC" Then
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
        'End If
        
' Termin Energie Analyse NICHT von Backoffice CC
         ElseIf Me.Status = "Termin Energie Analyse" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Not Me.BOCC = "Backoffice CC" Then
                   
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")

        'End If
        
' Termin Energie VK von Backoffice CC
        ElseIf Me.Status = "Termin Energie VK" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.BOCC = "Backoffice CC" Or Me.BOCC = "*" Then
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
        'End If
        
' Termin Energie VK NICHT von Backoffice CC
         ElseIf Me.Status = "Termin Energie VK" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Not Me.BOCC = "Backoffice CC" Then
                   
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [StatusQualitaetskontrolle], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.StatusQualiSolar & "','" & Me.Terminart & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")

        'End If
                
' Termin Energie Nachholer von Backoffice CC
        ElseIf Me.Status = "Termin Energie Nachholer" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.BOCC = "Backoffice CC" Or Me.BOCC = "*" Then
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
        'End If
        
' Termin Energie Nachholer NICHT von Backoffice CC
         ElseIf Me.Status = "Termin Energie Nachholer" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Not Me.BOCC = "Backoffice CC" Then
                   
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [StatusQualitaetskontrolle], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.StatusQualiSolar & "','" & Me.Terminart & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")

        'End If
        
 ' Termin Energie Service von Backoffice CC
        ElseIf Me.Status = "Termin Energie Service" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.BOCC = "Backoffice CC" Or Me.BOCC = "*" Then
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
        'End If
       
                                        
 ' Termin Energie Service NICHT von Backoffice CC
         ElseIf Me.Status = "Termin Energie Service" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Not Me.BOCC = "Backoffice CC" Then
                   
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [StatusQualitaetskontrolle], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.StatusQualiSolar & "','" & Me.Terminart & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")

        'End If
                
        
' Block
    'ElseIf Me.Status = "Block" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) Then
            
     '       CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "')")
      '      Forms!frm_HauptTerminierungWV.SetFocus
       '     DoCmd.GoToRecord , , acNext
        '    Forms!frm_terminierung_ungebunden_neu.SetFocus
         '   DoCmd.Close
          '  MsgBox ("Status gespeichert")
        'End If
        
        
' WV von Backoffice CC Nicht Quali

        ElseIf Me.Status Like "*" & "WV" & "*" And Not IsNull(Me.WVDatum) And Me.BOCC = "Backoffice CC" And Me.QualiJaNein = "Nein" Then
        
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [WV Datum], [WV Uhrzeit],[WV Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.WVDatum & "','" & Me.WVUhrzeit & "','" & Me.WVBemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "', '" & Me.Agent2 & "')")
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Status gespeichert")
        
        'End If
        
' WV von Backoffice CC Quali

        ElseIf Me.Status Like "*" & "WV" & "*" And Not IsNull(Me.WVDatum) And Me.BOCC = "Backoffice CC" And Me.QualiJaNein = "Ja" Then
        
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [WV Datum], [WV Uhrzeit],[WV Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.WVDatum & "','" & Me.WVUhrzeit & "','" & Me.WVBemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "')")
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Status gespeichert")
        
        'End If
        
' WV NICHT von Backoffice CC

        ElseIf Me.Status Like "*" & "WV" & "*" And Not IsNull(Me.WVDatum) And Not Me.BOCC = "Backoffice CC" Then
        
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [WV Datum], [WV Uhrzeit],[WV Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.WVDatum & "','" & Me.WVUhrzeit & "','" & Me.WVBemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "')")
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Status gespeichert")
        
        'End If
        
        
 ' Brutto von Backoffice CC

        'ElseIf Not Me.Status Like "*" & "WV" & "*" And Not Me.Status Like "Termin" & "*" And Not Me.Status = "Block" And Me.BOCC = "Backoffice CC" Then
        
         '   CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.Zeit & "','" & Me.Terminart & "', '" & Me.Agent2 & "')")
          '  Forms!frm_HauptTerminierungWV.SetFocus
           ' DoCmd.GoToRecord , , acNext
            'Forms!frm_terminierung_ungebunden_neu.SetFocus
            'DoCmd.Close
            'MsgBox ("Status gespeichert")

        'End If
        
' Brutto Nicht von Backoffice CC

'        ElseIf Not Me.Status Like "*" & "WV" & "*" And Not Me.Status Like "Termin" & "*" And Not Me.Status = "Block" And Not Me.BOCC = "Backoffice CC" Then
        
 '           CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.Zeit & "','" & Me.Terminart & "')")
  '          Forms!frm_HauptTerminierungWV.SetFocus
   '         DoCmd.GoToRecord , , acNext
    '        Forms!frm_terminierung_ungebunden_neu.SetFocus
     '       DoCmd.Close
      '      MsgBox ("Status gespeichert")
            
        ' Aus Performancs Gründen mal ausgebelndeT!!!!!
        
        'ElseIf Me.Status Like "Termin" & "*" And IsNull(Me.Termindatum) Then
        'MsgBox ("Bei Status Termin bitte Termindatum und Terminuhrzeit setzen")
        
        'ElseIf Me.Status Like "*" & "WV" & "*" And IsNull(Me.WVDatum) Then
        'MsgBox ("Bei Status WV bitte WV Datum setzen")
        
            
    End If
 
    'If Not IsNull(Me.Status) Then
    'If Me.Status = "Termin" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) Or Not Me.Status = "Termin" Then
    '       DoCmd.RunMacro "MkrAgent2"
    '       CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV' ")
    '       CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [WV Datum], [WV Uhrzeit], [WV Bemerkung], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.WVDatum & "','" & Me.WVUhrzeit & "','" & Me.WVBemerkung & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
    '    End If
    'End If
    

    
    
End Sub

Private Sub Befehl39_Click()
    CreateObject("Shell.Application").ShellExecute Me.Link
End Sub

Private Sub Link2_Click()

End Sub

Private Sub Befehl50_Click()
       
 ' Brutto von Backoffice CC

        If Not Me.Status Like "*" & "WV" & "*" And Not Me.Status Like "Termin" & "*" And Not Me.Status = "Block" And Me.BOCC = "Backoffice CC" Then
        
' Löschen WV Datum und Setzen Terminierer Alt wenn Backoffice CC

            DoCmd.RunMacro "MkrAgent2Brutto"

            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV 14' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV 10' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV EX Agenten' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Essen' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Tunis' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Mail/Fax nicht durch bzw. erhalten' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV doppelte Termine' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV komplett Absagen' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV EX AD' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV ki' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Sofort' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Absage' ")
            'CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Energie'  ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Neu terminieren' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'Quali WV' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Energie Teamleiter' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV gk' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV mw' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Bearbeitung' ")
        
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.Zeit & "','" & Me.Terminart & "', '" & Me.Agent2 & "')")
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Status gespeichert")

        'End If
        
' Brutto Nicht von Backoffice CC

        ElseIf Not Me.Status Like "*" & "WV" & "*" And Not Me.Status Like "Termin" & "*" And Not Me.Status = "Block" And Not Me.BOCC = "Backoffice CC" Then
        
' Löschen WV Datum und Setzen Terminierer Alt wenn Backoffice CC
        
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV 14' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV 10' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV EX Agenten' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Essen' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Tunis' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Mail/Fax nicht durch bzw. erhalten' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV doppelte Termine' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV komplett Absagen' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV EX AD' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV ki' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Sofort' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Absage' ")
            'CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Energie' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Neu terminieren' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'Quali WV' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Energie Teamleiter' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV gk' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV mw' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Bearbeitung' ")
            
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [Uhrzeit], [ID_TA],[StatusQualitaetskontrolle]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.StatusQualiSolar & "')")
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Status gespeichert")

            
        End If
 
End Sub

Private Sub Form_Close()
    'Forms!frm_HauptTerminierungWV.Requery
    'If Me.Status = "Termin" Then
        ' MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
    'End If
End Sub

Private Sub Status_GotFocus()
Me.Status.DropDown
End Sub

Private Sub Terminart_GotFocus()
Me.Terminart.DropDown
End Sub

Private Sub Terminierer_GotFocus()
Me.Terminierer.DropDown
End Sub

Private Sub Terminübersicht_Click()
On Error GoTo Err_Terminübersicht_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_TerminübersichtAuto"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Terminübersicht_Click:
    Exit Sub

Err_Terminübersicht_Click:
    MsgBox Err.Description
    Resume Exit_Terminübersicht_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