Version =20
VersionRequired =20
Checksum =373943026
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 =7766
    DatasheetFontHeight =10
    ItemSuffix =51
    Left =10260
    Top =390
    Right =18030
    Bottom =12210
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x4dd37a5af227e340
    End
    Caption ="bcs group Status setzen"
    OnClose ="[Event Procedure]"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0xa0050000a0050000a0050000a005000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    PrtDevMode = Begin
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x010400069c00ac1d1fd30100010009009a0b3408640001000700580201000100 ,
        0x5802010000004134000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000010000000000000001000000 ,
        0x0200000010010000ffffffff0000000000000000000000000000000044494e55 ,
        0x22008807c409e81379a421c50000000000000000000000000000000000000000 ,
        0x00000000000000003f0000000000000000000000010000000000000000000000 ,
        0x0900000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000001000100010001000100000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000000000000001000000000000000000000088070000534d544a ,
        0x00000000100078074800500020004c0061007300650072004a00650074002000 ,
        0x5000330030003100300020005300650072006900650073002000500043004c00 ,
        0x200036000000496e70757442696e00464f524d534f5552434500524553444c4c ,
        0x00556e69726573444c4c004850584d4c46696c65557365640068706333303130 ,
        0x362e786d6c005265736f6c7574696f6e00363030647069004661737452657300 ,
        0x5472756500455350524954537570706f727465640054727565004f7269656e74 ,
        0x6174696f6e00504f5254524149540048504f7269656e74526f74617465313830 ,
        0x0046616c7365004475706c6578004e4f4e45004850446f635549535549005472 ,
        0x756500506170657253697a650041340045646765546f456467650046616c7365 ,
        0x004d6564696154797065004155544f00436f6c6c617465004f46460048504d65 ,
        0x646961547970655472656576696577506f70757000547275650045636f6e6f6d ,
        0x6f64650046616c736500546578744173426c61636b0046616c73650054544173 ,
        0x4269746d61707353657474696e670054544d6f64654f75746c696e65004a5045 ,
        0x47456e61626c65004175746f00416c7465726e6174654c657474657248656164 ,
        0x0046616c73650048504561726c795761726d5570436f6d6d616e6400456e6162 ,
        0x6c65005468726573686f6c644d6f706965724844003132384d42004850437573 ,
        0x746f6d4455706c657861626c6552616e676500382e32377831315f382e357831 ,
        0x34004f757470757442696e004e6f6e65004850446f6350726f705265736f7572 ,
        0x63654461746100687063686c3038332e636162005072696e745175616c697479 ,
        0x47726f757000505147726f75705f310048504c706953656c656374696f6e004e ,
        0x6f6e65004850436f6c6f724d6f6465004d4f4e4f4348524f4d455f4d4f444500 ,
        0x485050444c547970650050444c5f50434c36004850504a4c456e636f64696e67 ,
        0x00555446380048504a6f624163636f756e74696e670048504a4f42414343545f ,
        0x4a4f4241434e545f434f4c4f52415554480048504a6f6242794a6f624f766572 ,
        0x72696465004a424a4f0048504a6f62416363576f50696e005472756500485050 ,
        0x434c36506173735468726f7567680054727565004850536d6172744475706c65 ,
        0x7853696e676c65506167654a6f620054727565004850536d6172744475706c65 ,
        0x784f6464506167654a6f6200547275650048504d616e75616c466565644f7269 ,
        0x656e746174696f6e0046414345444f574e0048504f757470757442696e4f7269 ,
        0x656e746174696f6e0046414345444f574e0048504d616e75616c4475706c6578 ,
        0x4469616c6f674d6f64656c004d6f64656c6573730048504d61704d616e75616c ,
        0x46656564546f547261793100547275650048504d616e75616c4475706c657850 ,
        0x616765526f7461746500447269766572526f746174650048505072696e744f6e ,
        0x426f746853696465734d616e75616c6c790046616c73650048504475706c6963 ,
        0x6174654a6f624e616d654f7665727269646500535746570048504d616e75616c ,
        0x4475706c65784469616c6f674974656d7300496e737472756374696f6e49445f ,
        0x30315f46414345444f574e2d4e4f524f54415445004850506170657253697a65 ,
        0x4475706c6578436f6e73747261696e7473004558454355544956450048504d65 ,
        0x646961547970654475706c6578436f6e73747261696e7473004c4142454c5300 ,
        0x5053416c69676e6d656e7446696c65006870634c53303833004850536d617274 ,
        0x4875625f4f6e6c696e65646961676e6f73746963746f6f6c7300545255450048 ,
        0x50536d6172744875625f537570706f7274616e6474726f75626c6573686f6f74 ,
        0x696e670054525545004850536d6172744875625f50726f647563746d616e7561 ,
        0x6c730054525545004850536d6172744875625f436865636b666f726472697665 ,
        0x72757064617465730054525545004850536d6172744875625f4f726465727375 ,
        0x70706c696573005452554500505353657276696365734f7074696f6e0050726e ,
        0x537461745f5349445f3234325f4249445f3237305f4849445f31353532310048 ,
        0x50536d61727448756200496e65745f5349445f3236335f4249445f3237365f48 ,
        0x49445f323635004850436f6e73756d6572437573746f6d506170657200547275 ,
        0x65004850456e61626c6552415753706f6f6c696e670054727565004a52436f6e ,
        0x73747261696e7473004a524348445061727469616c004a524844496e7374616c ,
        0x6c6564004a5248444f6666004a5248444e6f74496e7374616c6c6564004a5248 ,
        0x444f66660048504e5573654469666646697273745061676543686f6963650054 ,
        0x52554500485050616765457863657074696f6e7346696c650048504350453038 ,
        0x3300485050616765457863657074696f6e73496e746572666163650053686f77 ,
        0x50616765457863657074696f6e7300485050616765457863657074696f6e7300 ,
        0x436f766572496e73657274696f6e000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0xe81300004955504815000100789ced99316f133114c7ff09501105d488aa134b ,
        0x16d8880464008a40d78bd34490e6c88188040ca54d68559a486940b0950121be ,
        0x423f027c04968c8c0cac8801242a36365880bf8f3bc54d733d86b6d7a6ef67d9 ,
        0xcf7eb6ef2cd9f7ded9de98000aca294d22018d4e93be0c3862e4130c0b7eaba4 ,
        0xd1de421e51a4b09ece1f07fe18e8fe63913da3490cc830b2b8876534b084161e ,
        0xecc07b858385ccffe1c64287733f87c7710f448805eda51c3f1ff88a5eafb749 ,
        0x9aa4fc760b5b6ad6ae6ff79e413f94a4627ca07eb04d91ab731a65a6b3c8e126 ,
        0x14f3b328a10a77bb570923c355cefd1374d1c60a6d5497966a15f358c4b5b807 ,
        0x26ec2189901856076cb6253abf16f14c53afed52c6579a7993403facbef6ee24 ,
        0xf47fbd8e82107094eb642c6a432608c24833cc04683f3229b641107615fd89cd ,
        0xa0811663c73bf7c8725ff9d42b3de7ae768e69963be28e7722d6f5d247710f5a ,
        0xd8158efd471b7dcea1d74c852b619eaba2cd1d681b4dae8c2caa944d4fdf60c9 ,
        0xa2d4b95506411084bde50be38f13fdf257c69c71c8fa8b86ec77ba5ffea0cf2f ,
        0x4ef5cbdf749b747859df6bea3bca8a6bd9b672dd9caa2bad0f3b9fd9c918fc1f ,
        0x87499371b39c442618a38d2bb8eff9f6367dbaf6fe2b0c0deaa2acfb052ce322 ,
        0xdb55516428f3490ae719744f9796dff6342e438eb20e357c82847d429373ffd0 ,
        0xbbf76a79370bffee3f17bdf917469f0abfd93ace51dee1972b1c5652710f40d8 ,
        0x27941dcb2ed4ee16dc19ebb66d39e5d3536f8baff21beac5c7cf97266e4dddd8 ,
        0xd26169fdd3cbb33fd5eb33df2fbfc93c7bef38d3254bd59c218f160441100441 ,
        0x1004411004e180f017d2e87bd100000000000000000000000000000000000000 ,
        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 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000
    End
    PrtDevNames = Begin
        0x0800270049000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000003139322e3136382e3130302e323700
    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
                0x3796bf34909f7846bfb8e2fe037d1ca2
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1755
                    Top =120
                    Width =5052
                    Height =330
                    FontSize =12
                    BackColor =16777164
                    Name ="Retention"
                    ControlSource ="=[Forms]![frm_HauptTerminierungWV]![Retention]"
                    FontName ="Arial"
                    GUID = Begin
                        0x6491666054233d49bd3f78bf4a1f31e2
                    End
                End
            End
        End
        Begin Section
            Height =10689
            Name ="Detailbereich"
            GUID = Begin
                0xba79ad0b2dbd604a87b2f31854367487
            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
                        0x10a808013361d74c8e67c55d7beb6200
                    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
                        0xe1ea268569096342831fc5153b118093
                    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
                        0x3cb2d9ab6322a343bca23443f0bc1600
                    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
                        0x0760a8440abe5d4b808bf1e36229df49
                    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
                        0x342f5cff34b37f4d942f4e3cc415758b
                    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
                        0xaaa26d9e74774444bcc821532c4a7918
                    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
                        0x01d18b1ee0376e4c9ba0ac15570ee186
                    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
                        0x09f3a6c4b3467f48808006c14e3ac114
                    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
                        0xaa0c64aa976aff4bb1bac0da8df152b0
                    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
                        0x68e864e40278ff428ee14eb10534eeef
                    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
                        0xeae1b39a3e55d8468219584e35afc356
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1695
                    Top =8874
                    Width =5106
                    Height =470
                    FontSize =10
                    TabIndex =20
                    Name ="Befehl16"
                    Caption ="Speichern"
                    OnClick ="[Event Procedure]"
                    FontName ="Arial"
                    ControlTipText ="Zum speichern hier klicken!"
                    GUID = Begin
                        0xf954697d2d1eb14d844ea4c94c57be6d
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =6975
                    Top =3099
                    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
                        0xd0fc134f06268f47b074afc0ca622b68
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =6975
                    Top =5197
                    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
                        0x17f0a0b8500bce45b7999ddcedaba680
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1695
                    Top =6902
                    Width =5106
                    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
                        0xbeef06949edde44c9977c435fa05db0e
                    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
                        0xbafde7369e52a04f94c2f5314b3b4f76
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =60
                    Width =5052
                    Height =315
                    FontSize =12
                    BackColor =16777164
                    Name ="KD_NR"
                    DefaultValue ="=[Forms]![frm_HauptTerminierungWV]![KD_NR]"
                    FontName ="Arial"
                    GUID = Begin
                        0x51fca3169e152044b5d94e3e8fb1ce64
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =2237
                    Width =5052
                    Height =315
                    FontSize =12
                    TabIndex =6
                    BackColor =16777164
                    Name ="WVDatum"
                    Format ="Short Date"
                    FontName ="Arial"
                    GUID = Begin
                        0xb792aae3c4951a4e8991356ecfd9fb20
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =2659
                    Width =5052
                    Height =315
                    FontSize =12
                    TabIndex =7
                    BackColor =16777164
                    Name ="WVUhrzeit"
                    Format ="Short Time"
                    FontName ="Arial"
                    InputMask ="##:##"
                    GUID = Begin
                        0x4d8f5deef702d044a0abc96c57f9fc7c
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =3081
                    Width =5052
                    Height =315
                    FontSize =12
                    TabIndex =8
                    BackColor =16777164
                    Name ="WVBemerkung"
                    OnDblClick ="mkr_zoom"
                    FontName ="Arial"
                    GUID = Begin
                        0xdc724018f918df4c850af0360570bedb
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =4347
                    Width =5052
                    Height =315
                    FontSize =12
                    TabIndex =12
                    BackColor =16777164
                    Name ="Termindatum"
                    Format ="Short Date"
                    FontName ="Arial"
                    GUID = Begin
                        0x6c9d19678ccac046a1fea8f9005a7573
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =4769
                    Width =5052
                    Height =315
                    FontSize =12
                    TabIndex =13
                    BackColor =16777164
                    Name ="Terminzeit"
                    Format ="Short Time"
                    FontName ="Arial"
                    InputMask ="##:##"
                    GUID = Begin
                        0x747e392846a12347b5a10d9910859781
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =5191
                    Width =5052
                    Height =315
                    FontSize =12
                    TabIndex =14
                    BackColor =16777164
                    Name ="Terminbemerkung"
                    FontName ="Arial"
                    GUID = Begin
                        0xb800ed4d9dd07f4e82af60e4cae249c3
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =915
                    Width =3822
                    Height =315
                    FontSize =12
                    TabIndex =2
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x4654d306fb6ea54eaf2932de75c44f4b
                    End
                    Name ="Status"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_StatusTerminierung"
                    OnExit ="Mkr_StatusWVErinnerung"
                    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 =5052
                    Height =315
                    FontSize =12
                    TabIndex =10
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x3eec248e75c3644a8a0e88619c79aeb7
                    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 =5052
                    Height =315
                    FontSize =12
                    TabIndex =11
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x20db247410979a4bbe7faa1237916752
                    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 =5052
                    Height =315
                    FontSize =12
                    TabIndex =1
                    BackColor =16777164
                    Name ="Anruftag"
                    DefaultValue ="=Date()"
                    FontName ="Arial"
                    GUID = Begin
                        0x52ce04f84198f04795ae5e923c700bfe
                    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
                        0x2eda223151312c44978753db1ace5334
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =5650
                    Width =5052
                    Height =315
                    FontSize =12
                    TabIndex =16
                    BackColor =16777164
                    Name ="Bestätigt"
                    ControlSource ="=IIf([Status]=\"Termin Service\",\"Servicetermin\",IIf([Status]=\"Termin Rekla\""
                        ",\"Servicetermin\",IIf([Status]=\"Termin\" And [Termintag]=\"Montag\" And [Termi"
                        "ndatum]=([Anruftag]+3),\"Heute auf Morgen\",IIf([Status]=\"Termin\" And [Termind"
                        "atum]=([Anruftag]+1),\"Heute auf Morgen\",\"NB\"))))"
                    FontName ="Arial"
                    GUID = Begin
                        0x79b7e4b429e8b54398ae78e8e3574d53
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =1815
                    Width =5052
                    Height =315
                    FontSize =12
                    TabIndex =5
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x610420d3e8d11b43814d600aea3ee63d
                    End
                    Name ="Terminierer"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_AgentStatusHinzufuegen"
                    DefaultValue ="=[Forms]![frm_HauptTerminierungWV]![Terminierer]"
                    FontName ="Arial"
                    OnGotFocus ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1695
                    Top =7526
                    Width =5106
                    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
                        0xf800e54e845b054980f9aa7a02c41415
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    FontUnderline = NotDefault
                    TabStop = NotDefault
                    IsHyperlink = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =345
                    Top =9444
                    Width =4092
                    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
                        0x074c335be72e5f419313cbe80bfc35c9
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1695
                    Top =6279
                    Width =5106
                    Height =470
                    TabIndex =17
                    Name ="Befehl39"
                    Caption ="Terminübersicht online"
                    OnClick ="[Event Procedure]"
                    GUID = Begin
                        0x48ad15d8bfab024bb96647db431a9122
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1695
                    Top =8101
                    Width =5106
                    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
                        0xae55191ad571384cb9acddf00f24aa56
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =60
                    Top =9909
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =23
                    BackColor =16777164
                    Name ="Zeit"
                    DefaultValue ="=Time()"
                    FontName ="Arial"
                    GUID = Begin
                        0xb931586a7dadeb408bee2338a7697a1b
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2325
                    Top =9909
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =24
                    BackColor =16777164
                    Name ="Office"
                    DefaultValue ="=[Forms]![frm_Anmeldung]![Office]"
                    FontName ="Arial"
                    GUID = Begin
                        0xef77e4ef89ae6545a5dd154484a2c496
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =4590
                    Top =9909
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =25
                    BackColor =16777164
                    Name ="Agent2"
                    FontName ="Arial"
                    GUID = Begin
                        0x8931476cc124bd46a59b8b27f3133ab6
                    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
                        0xb1c6d137271165408c4befcaaf64a5b0
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =1350
                    Width =5052
                    Height =315
                    FontSize =12
                    TabIndex =4
                    BoundColumn =1
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"510\""
                    GUID = Begin
                        0x90917dc6915b634ab8ab864f5474c573
                    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]=3.02,41,IIf([Forms]![frm_Anmeldung]![Benutzerart]=3.03,51,IIf([Form"
                        "s]![frm_Anmeldung]![Benutzerart]=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 =4590
                    Top =10320
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =26
                    BackColor =16777164
                    Name ="BOCC"
                    DefaultValue ="=[Forms]![frm_Haupt]![Agent2]"
                    FontName ="Arial"
                    GUID = Begin
                        0x954227f80d726a479b5c87ca9430b31c
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =5670
                    Top =915
                    Width =1761
                    Height =351
                    FontSize =10
                    TabIndex =3
                    ForeColor =0
                    Name ="Befehl50"
                    Caption ="Speichern brutto"
                    OnClick ="[Event Procedure]"
                    FontName ="Arial"
                    GUID = Begin
                        0x426f7420f0b2af469e6d7901d1b09353
                    End
                End
            End
        End
        Begin FormFooter
            Height =576
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x451196c4c4968b45a80dac396279eb27
            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
                        0x7d36bda165be3c46a7db6681ab809176
                    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 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' ")

    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
        
' 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

        ElseIf Me.Status Like "*" & "WV" & "*" And Not IsNull(Me.WVDatum) And 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], [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 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 ("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 ("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")

            
        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