Private Sub cmdrptArbeitsplatz_InterneNummer_Kostenstelle_Click()
On Error GoTo Err_cmdrptArbeitsplatz_InterneNummer_Kostenstelle_Click
If txtkoskey <> 0 Then
    hKostenstelle = cboKostenstelle.Column(1)
    hKosKeynr = txtkoskey.Value
    stSQL = "SELECT QHarKey_Mitkey.KomBezeichnung, Standort.StaStandort," & _
      "Kostenstellen.KosKostenstelle, " _
    & "Abteilung.AbtAbteilung, QHarKey_Mitkey.ArbPostfach," & _
    "QHarKey_Mitkey.HarSerienNummer, " _
    & "QHarKey_Mitkey.HarInterneNummer, QHarKey_Mitkey.HarAnlageNummer," & _
    "QHarKey_Mitkey.HarBemerkung, " _
    & "QHarKey_Mitkey.HarBeschreibung, QHarKey_Mitkey.HarLagerplatz," & _
    "QHarKey_Mitkey.HarEvers, " _
    & "QHarKey_Mitkey.ArbPcName, QSofkey_Mitkey.SofArt," & _
    "QSofkey_Mitkey.TitTitel, QSofkey_Mitkey.VerVersion, " _
    & "QSofkey_Mitkey.SofLizenzNummer, QSofkey_Mitkey.SofAnlageNummer," & _
    "QSofkey_Mitkey.SofBemerkung, " _
    & "QSofkey_Mitkey.SofBeschreibung" _
    & " FROM Abteilung RIGHT JOIN ((Standort RIGHT JOIN (Kostenstellen RIGHT" & _
    "JOIN QHarKey_Mitkey ON " _
    & "Kostenstellen.KosKey = QHarKey_Mitkey.HarKostenstelleNr) ON" & _
    "Standort.StaKey = " _
    & "QHarKey_Mitkey.HarStandortNr) LEFT JOIN QSofkey_Mitkey ON" & _
    "QHarKey_Mitkey.HarArbArbeitsplatzNr = " _
    & "QSofkey_Mitkey.SofArbArbeitsplatzNr) ON Abteilung.AbtKey =" & _
    "QHarKey_Mitkey.ArbAbteilungNr" _
    & " WHERE (((QHarKey_Mitkey.HarKostenstelleNr) = " & hKosKeynr & "And (" & _
    "QHarKey_Mitkey.HarKostenstelleNr) = " & hKosKeynr & "));"
    Set RS = New ADODB.Recordset
    RS.Open stSQL, con, adOpenStatic, adLockOptimistic
    If RS.EOF = True And RS.BOF = True Then
        Mldg = "Derzeit sind keine interne Nummern für die ausgewählte" & _
          "Kostenstelle erfasst!" _
        & vbCr & "Bericht kann nicht geöffnet werden!"
        Titel = "Keine Berichtsdaten vorhanden!"
        MsgBox Mldg, Stil_ok, Titel
        Exit Sub
        Else
        stDocName = "rptArbeitsplatz_InterneNummer_Kostenstelle"
        DoCmd.OpenReport stDocName, acPreview
    End If
    RS.Close
    Set RS = Nothing
    Else
    Mldg = "Sie müssen zuerst eine Kostenstelle auswählen!"
    Titel = "Kostenstelle auswählen!"
    MsgBox Mldg, Stil_ok, Titel
    cboKostenstelle.SetFocus
    cboKostenstelle.Dropdown
End If
 
Err_cmdrptArbeitsplatz_InterneNummer_Kostenstelle_Click:
If Err.Number <> 0 Then
    MsgBox Err.Number & " " & Err.Description & " " & _
      "Form!frmrptArbeitsplatz_Auswahl_Int -" & _
      "cmdrptArbeitsplatz_InterneNummer_Kostenstelle_Click"
    Resume Exit_cmdrptArbeitsplatz_InterneNummer_Kostenstelle_Click
End If
 
Exit_cmdrptArbeitsplatz_InterneNummer_Kostenstelle_Click:
    Exit Sub
End Sub

Private Sub Report_Open(Cancel As Integer)
Me.Caption = "Arbeitsplätze bezüglich Aller Interner Nummern für ausgewählte" & _
  "Kostenstelle: " & hKostenstelle
End Sub