Version =20
VersionRequired =20
Checksum =509629190
Begin Form
    AutoResize = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    NavigationButtons = NotDefault
    AllowDeletions = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowEdits = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    AllowUpdating =1
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =0
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =5676
    DatasheetFontHeight =10
    ItemSuffix =28
    Left =345
    Top =630
    Right =5760
    Bottom =930
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x01380a0019afe340
    End
    RecordSource ="qryNachrichtenUngelesenAnMenge"
    Caption ="bcs group Messenger"
    OnOpen ="MkrInfoEmpfangbeimoeffnen"
    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
            Height =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x4a5324df8df0674baf11a64c0b76c1d8
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =2
                    IMESentenceMode =3
                    Top =60
                    Width =5676
                    Height =390
                    FontSize =14
                    FontWeight =700
                    BackColor =16777164
                    Name ="Nachricht"
                    ControlSource ="=IIf([AnzahlvonID]=1,\"Sie haben \" & [AnzahlvonID] & \" neue Nachricht\",\"Sie "
                        "haben \" & [AnzahlvonID] & \" neue Nachrichten\")"
                    FontName ="Arial"
                    GUID = Begin
                        0xda24ea75fa083943b817a67a53fed0e6
                    End
                End
            End
        End
        Begin Section
            Height =0
            Name ="Detailbereich"
            GUID = Begin
                0xeb5e7c44a8a53448bbd7164695ad99d0
            End
        End
        Begin FormFooter
            Height =0
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0xb10e1f7bc2621c468b7cf8e8bda0bd9a
            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 Befehl25_Click()
On Error GoTo Err_Befehl25_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

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

Exit_Befehl25_Click:
    Exit Sub

Err_Befehl25_Click:
    MsgBox Err.Description
    Resume Exit_Befehl25_Click
    
End Sub