Version =20
VersionRequired =20
Checksum =782459693
Begin Form
    AllowFilters = NotDefault
    AutoResize = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    NavigationButtons = NotDefault
    AllowDeletions = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowAdditions = NotDefault
    AllowEdits = NotDefault
    AllowDesignChanges = NotDefault
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =0
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =4215
    DatasheetFontHeight =10
    ItemSuffix =8
    Left =5145
    Top =3840
    Right =9420
    Bottom =10260
    DatasheetGridlinesColor =12632256
    Filter ="((tbl_ad.ist_taetig=1))"
    OrderBy ="tbl_ad.ID"
    RecSrcDt = Begin
        0xc058cb8d3b52e440
    End
    RecordSource ="qry_AD_ist_taetig"
    Caption ="qry_AD_ist_taetig"
    DatasheetFontName ="Arial"
    Moveable =0
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            BackColor =-2147483633
            ForeColor =-2147483630
        End
        Begin Rectangle
            SpecialEffect =3
            BackStyle =0
            Width =850
            Height =850
        End
        Begin Line
            Width =1701
        End
        Begin Image
            BackStyle =0
            OldBorderStyle =0
            PictureAlignment =2
            Width =1701
            Height =1701
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin OptionButton
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin CheckBox
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin OptionGroup
            SpecialEffect =3
            Width =1701
            Height =1701
        End
        Begin BoundObjectFrame
            SpecialEffect =2
            OldBorderStyle =0
            BackStyle =0
            Width =4536
            Height =2835
            LabelX =-1701
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
            AsianLineBreak =255
        End
        Begin ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin UnboundObjectFrame
            SpecialEffect =2
            OldBorderStyle =1
            Width =4536
            Height =2835
        End
        Begin ToggleButton
            Width =283
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin Tab
            BackStyle =0
            Width =5103
            Height =3402
        End
        Begin FormHeader
            Height =226
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x31d6a7fbe87b274690576310f2a71f68
            End
            Begin
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =60
                    Width =270
                    Height =225
                    FontSize =7
                    Name ="AD_Bezeichnungsfeld"
                    Caption ="AD"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x2eaf2ad31ad263478a32137036cecd28
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =1755
                    Width =390
                    Height =225
                    FontSize =7
                    Name ="PlzAd_Bezeichnungsfeld"
                    Caption ="Plz"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x47d6f9622a36c74c8b72908c469a1051
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =2565
                    Width =435
                    Height =225
                    FontSize =7
                    Name ="OrtAd_Bezeichnungsfeld"
                    Caption ="Ort"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x37865f12910e3747b9c7a2ac081d3883
                    End
                End
            End
        End
        Begin Section
            Height =285
            BackColor =16777164
            Name ="Detailbereich"
            GUID = Begin
                0x1db3e1ff7c6e06439facad4ef088a237
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =93
                    BackStyle =0
                    IMESentenceMode =3
                    Left =60
                    Top =30
                    Width =1692
                    Height =225
                    ColumnWidth =2310
                    FontSize =7
                    Name ="AD"
                    ControlSource ="AD"
                    OnDblClick ="Mkr_frm_TerminübersichtHauptOpen"
                    FontName ="Arial"
                    GUID = Begin
                        0x6c43c77b74b47a4793d0b4a35ca4d3c7
                    End
                End
                Begin TextBox
                    Enabled = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =87
                    BackStyle =0
                    IMESentenceMode =3
                    Left =1755
                    Top =30
                    Width =768
                    Height =225
                    ColumnWidth =900
                    FontSize =7
                    TabIndex =1
                    Name ="PlzAd"
                    ControlSource ="PlzAd"
                    FontName ="Arial"
                    GUID = Begin
                        0x4faf913bb59691419546ded2b1a9a352
                    End
                End
                Begin TextBox
                    Enabled = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =2565
                    Top =30
                    Width =1125
                    Height =255
                    ColumnWidth =3000
                    FontSize =7
                    TabIndex =2
                    Name ="OrtAd"
                    ControlSource ="OrtAd"
                    FontName ="Arial"
                    GUID = Begin
                        0xd3a029cde9dd9b4985990791ac632cbf
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3720
                    Width =495
                    Height =285
                    FontSize =7
                    TabIndex =3
                    ForeColor =-2147483630
                    Name ="Block"
                    Caption ="Block"
                    OnDblClick ="[Event Procedure]"
                    FontName ="Tahoma"
                    GUID = Begin
                        0x3fbca8aebb6efe4dac9673b612fa6bd9
                    End
                End
            End
        End
        Begin FormFooter
            Height =0
            BackColor =-2147483633
            Name ="Formularfuß"
            GUID = Begin
                0xbace3607c8452849872d33bca119660c
            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 Block_DblClick(Cancel As Integer)



If Forms![frm_Haupt].[Terminierer] = "Antje Schön" Or Forms![frm_Haupt].[Terminierer] = "David Alscher" Or Forms![frm_Haupt].[Terminierer] = "Julia Trautmann" Or Forms![frm_Haupt].[Benutzerart] = 7 Then
    If MsgBox("Wollen Sie wirlich einen ganzen tag blocken?", vbYesNo) = vbYes Then
    
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','08:00','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','08:30','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','09:00','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','09:30','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','10:00','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','10:30','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','11:00','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','11:30','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','12:00','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','12:30','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','13:00','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','13:30','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','14:00','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','14:30','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','15:00','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','15:30','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','16:00','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','16:30','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','17:00','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','17:30','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','18:00','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','18:30','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termindatum], [Terminzeit], [Uhrzeit]) values ('1073166','" & Forms![frm_Haupt].[AktuellesDatum] & "', 'Block','" & Forms![frm_Haupt].[Terminierer] & "','" & Me.AD & "','" & Forms![frm_Haupt].[von] & "','19:00','" & Forms![frm_Haupt].[AktuelleZeit] & "')")
        MsgBox ("Block ganzer Tag gesetzt!!!!!!!!!!!")
        
    Else
       
        MsgBox ("Vorgang abgebrochen")
        
    End If
    

End If
    

End Sub