Version =20
VersionRequired =20
Checksum =1822430751
Begin Form
    PopUp = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    NavigationButtons = NotDefault
    AllowDeletions = NotDefault
    AllowEdits = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =5790
    DatasheetFontHeight =10
    ItemSuffix =28
    Right =5790
    Bottom =3630
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xf91dff5474afe340
    End
    RecordSource ="qryNachrichtenUngelesen"
    Caption ="bcs group Messenger"
    OnOpen ="Mkr_Nachrichtenempfangenopen"
    DatasheetFontName ="Arial"
    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
            CanGrow = NotDefault
            Height =585
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0xd002098271b3b44c9bfec54a3b5234a3
            End
            Begin
                Begin Subform
                    OverlapFlags =85
                    Width =5790
                    Height =585
                    Name ="IT-Max GmbH Messenger"
                    SourceObject ="Form.frmNachrichtenempfangenInfoUnter"
                    EventProcPrefix ="IT_Max_GmbH_Messenger"
                    GUID = Begin
                        0x83511920220c7249ba8944c8bc1deb4f
                    End
                End
            End
        End
        Begin Section
            Height =2494
            Name ="Detailbereich"
            GUID = Begin
                0xd2a52c3b05e95c42bca49f656f227039
            End
            Begin
                Begin TextBox
                    Visible = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =4320
                    Top =60
                    Width =1146
                    ColumnWidth =1701
                    TabIndex =2
                    Name ="ID"
                    ControlSource ="ID"
                    FontName ="Arial"
                    GUID = Begin
                        0x9a5acfdcde462248b09664cf2524a87e
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1023
                    Top =60
                    Width =2850
                    Height =255
                    ColumnWidth =2310
                    TabIndex =3
                    Name ="Absender"
                    ControlSource ="Absender"
                    FontName ="Arial"
                    GUID = Begin
                        0xda8c8c20e6bd2f4997e96604648a2a64
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =63
                            Top =60
                            Width =855
                            Height =255
                            Name ="Absender_Bezeichnungsfeld"
                            Caption ="Absender"
                            FontName ="Arial"
                            GUID = Begin
                                0xa5156fccc0fd2c489d553fa8ff35257b
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1023
                    Top =345
                    Width =2850
                    Height =255
                    ColumnWidth =2310
                    TabIndex =4
                    Name ="An"
                    ControlSource ="An"
                    FontName ="Arial"
                    GUID = Begin
                        0xe74233f64862ca429e61d120d857ead7
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =63
                            Top =345
                            Width =855
                            Height =255
                            Name ="An_Bezeichnungsfeld"
                            Caption ="An"
                            FontName ="Arial"
                            GUID = Begin
                                0x12c623d44df84b4f8aa215147ac9f5ae
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1020
                    Top =630
                    Width =4605
                    Height =255
                    ColumnWidth =2310
                    Name ="Betreff"
                    ControlSource ="Betreff"
                    FontName ="Arial"
                    GUID = Begin
                        0x353c15cf4ce30747ba3000288ecafadf
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =630
                            Width =855
                            Height =255
                            Name ="Betreff_Bezeichnungsfeld"
                            Caption ="Betreff"
                            FontName ="Arial"
                            GUID = Begin
                                0xe61e8fc23fb3444db19a5d01a0f2d0f4
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1020
                    Top =915
                    Width =4605
                    Height =1515
                    ColumnWidth =3000
                    TabIndex =1
                    Name ="Nachricht"
                    ControlSource ="Nachricht"
                    OnExit ="MkrWeiter"
                    FontName ="Arial"
                    GUID = Begin
                        0xa20902b524b16044bfed607e756efb98
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =915
                            Width =855
                            Height =255
                            Name ="Nachricht_Bezeichnungsfeld"
                            Caption ="Nachricht"
                            FontName ="Arial"
                            GUID = Begin
                                0x1ed09bea2a598c48a64b6383fd963acb
                            End
                        End
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =4320
                    Top =345
                    Width =1146
                    TabIndex =5
                    Name ="Gelesen"
                    ControlSource ="Gelesen"
                    FontName ="Arial"
                    GUID = Begin
                        0x8d9cad47ee4a8845b5cb010dbc363ab8
                    End
                End
            End
        End
        Begin FormFooter
            Height =576
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x36c7f11f365741408a654589f89029e5
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =4545
                    Top =60
                    Width =1125
                    Height =390
                    FontWeight =700
                    Name ="Schließen"
                    Caption ="Schließen"
                    OnClick ="MkrSchliessenNachrichtEmpfangen"
                    FontName ="Arial"
                    GUID = Begin
                        0x1667c29f82634b468e25c76ef4af767e
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =60
                    Width =1035
                    Height =255
                    ColumnWidth =1035
                    TabIndex =1
                    Name ="Datum"
                    ControlSource ="Datum"
                    Format ="Short Date"
                    FontName ="Arial"
                    GUID = Begin
                        0xbe4c4928fd971e42b28588a62affdcb7
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =60
                    Top =270
                    Width =1035
                    Height =255
                    ColumnWidth =675
                    TabIndex =2
                    Name ="Uhrzeit"
                    ControlSource ="Uhrzeit"
                    Format ="Short Time"
                    FontName ="Arial"
                    GUID = Begin
                        0xa0ef4de673edf44fb6ed88bee1267508
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3285
                    Top =60
                    Width =1140
                    Height =390
                    FontWeight =700
                    TabIndex =3
                    Name ="Befehl22"
                    Caption ="Antworten"
                    OnClick ="MkrNachrichtAntwortenOeffnen"
                    GUID = Begin
                        0xae4b0c319faf1a45a84fa201920c0844
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2655
                    Top =60
                    Width =576
                    Height =390
                    TabIndex =4
                    Name ="Befehl24"
                    Caption ="Befehl24"
                    OnClick ="[Event Procedure]"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadaddadadadadadadada ,
                        0xadadadadadadadaddadadacadadadadaadadadccadadadaddadadacccadadada ,
                        0xadadadccccadadaddadadacccccadadaadadadccccadadaddadadacccadadada ,
                        0xadadadccadadadaddadadacadadadadaadadadadadadadaddadadadadadadada ,
                        0xadadadadadadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Nächster Datensatz"
                    GUID = Begin
                        0x4422601befb8e64da838a925f695a19e
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1980
                    Top =60
                    Width =576
                    Height =390
                    TabIndex =5
                    Name ="Befehl25"
                    Caption ="Befehl25"
                    OnClick ="[Event Procedure]"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadaddadadadadadadada ,
                        0xadadadadadadadaddadadadadcdadadaadadadadccadadaddadadadcccdadada ,
                        0xadadadccccadadaddadadcccccdadadaadadadccccadadaddadadadcccdadada ,
                        0xadadadadccadadaddadadadadcdadadaadadadadadadadaddadadadadadadada ,
                        0xadadadadadadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Vorheriger Datensatz"
                    GUID = Begin
                        0x013f06faf1205b48a3208edfe69fce92
                    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 Befehl18_Click()
On Error GoTo Err_Befehl18_Click

    Dim stDocName As String

    stDocName = "Mkrspeichernsenden"
    DoCmd.RunMacro stDocName

Exit_Befehl18_Click:
    Exit Sub

Err_Befehl18_Click:
    MsgBox Err.Description
    Resume Exit_Befehl18_Click
    
End Sub
Private Sub Befehl20_Click()
On Error GoTo Err_Befehl20_Click


    DoCmd.Close

Exit_Befehl20_Click:
    Exit Sub

Err_Befehl20_Click:
    MsgBox Err.Description
    Resume Exit_Befehl20_Click
    
End Sub

Private Sub Speichern_Click()

End Sub
Private Sub Befehl24_Click()
On Error GoTo Err_Befehl24_Click


    DoCmd.GoToRecord , , acNext

Exit_Befehl24_Click:
    Exit Sub

Err_Befehl24_Click:
    MsgBox Err.Description
    Resume Exit_Befehl24_Click
    
End Sub
Private Sub Befehl25_Click()
On Error GoTo Err_Befehl25_Click


    DoCmd.GoToRecord , , acPrevious

Exit_Befehl25_Click:
    Exit Sub

Err_Befehl25_Click:
    MsgBox Err.Description
    Resume Exit_Befehl25_Click
    
End Sub