'Einsatzdaten-Datenbank öffnen
      dbFile = App.Path + "\Temp.esd"
      Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
      'Recordset auf Basis einer SQL-Abfrage erstellen und öffnen
      '[Transportzielangaben für die ermittelte Einsatznummer suchen, die für 
      ' alle Fahrzeuge gelten]
      SQL = "SELECT * FROM Transportziele WHERE Einsatznummer=" + strEinsatznr _
        + " AND Alle_KFZ=True"
      Set rs = Db.OpenRecordset(SQL)
 
      'Falls ein passender Datensatz gefunden wurde
      If (rs.RecordCount > 0) Then
       'Transportzieldaten in Array speichern
       arToolTip(i).strTOrt = nz(rs("Ort"))
       arToolTip(i).strTGemeinde = nz(rs("Gemeinde"))
       arToolTip(i).strTZiel = nz(rs("Transportziel"))
       If (nz(rs("Transportziel")) = "") Then
        arToolTip(i).strTZiel = "???"
       End If
      Else
       'Recordset auf Basis einer SQL-Abfrage erstellen und öffnen
       '[Transportzielangaben für die ermittelte Einsatznummer suchen]
       SQL = "SELECT * FROM Transportziele WHERE Einsatznummer=" + strEinsatznr
       Set rs = Db.OpenRecordset(SQL)
 
       'Falls ein passender Datensatz gefunden wurde
       If (rs.RecordCount > 0) Then
        While Not rs.EOF
         'Falls der Datensatz für das gerade betrachtete Fahrzeug gefunden wurde
         If (nz(rs("KFZ")) = Mid(.Caption, 1, 5)) Then
          'Transportzieldaten in Array speichern
          arToolTip(i).strTOrt = nz(rs("Ort"))
          arToolTip(i).strTGemeinde = nz(rs("Gemeinde"))
          arToolTip(i).strTZiel = nz(rs("Transportziel"))
          If (nz(rs("Transportziel")) = "") Then
           arToolTip(i).strTZiel = "???"
          End If
         End If
         'Datensatzzeiger auf den nächsten Datensatz setzen
         rs.MoveNext
        Wend
       End If
      End If
     End If
    Next k
 
    'Je nach Status des gerade betrachteten Fahrzeuges einen entsprechenden 
    ' ToolTip-Text erzeugen - ***Anfang***
    Select Case InhaltETab(j).AngezeigterStatusKFZ
    Case "1" 'Status 1
     .Caption = Mid(.Caption, 1, 5) + "  EF 1"
     .ToColor = &H36CA26
     sevQI.ControlRemove frmKarte.lblKFZ(i)
     sevQI.ControlAdd frmKarte.lblKFZ(i), arToolTip(i).strFunkruf + " - " + _
       arToolTip(i).strTyp + " " + arToolTip(i).strStandort + " - Status: EF 1" _
       + _
     vbCrLf + vbCrLf + "Einsatz : " + arToolTip(i).strStichwort + " in " + _
     arToolTip(i).strOrt + ", " + arToolTip(i).strGemeinde + _
     vbCrLf + "Standort: " + "--> RW " + arToolTip(i).strStandort
     sevQI.BackColor = &HDCD8CF
    End Select '***Ende*** Restliche genauso...
   End If
  Next j
  On Local Error GoTo 0
 End With
Next i
 
End Sub