Prüfen Selectergebnis vor Excel-Export

[swity]

Hallo,

möglicherweise ganz banal, habe aber im Moment keine Idee dazu:
Ich exportiere aus einer Tabelle untermengen in div. Excel-Dateien.
Wie kann ich vorher prüfen ob mein Select überhaupt exportierenswerte Daten enthält?

Code [Auswählen] Erweitern

Dim numZaehlKst As Integer
    Dim arKst(2, 3) As String
    Dim strSQLFlt As String
   
   
      arKst(0, 0) = "=100"
      arKst(0, 1) = "LOS 1"
      arKst(0, 2) = "100"
      arKst(0, 3) = "100_LOS1"
     
      arKst(1, 0) = "=101"
      arKst(1, 1) = "LOS 1"
      arKst(1, 2) = "101"
      arKst(1, 3) = "101_LOS1"
                                               
      arKst(2, 0) = "=103"
      arKst(2, 1) = "LOS 2"
      arKst(2, 2) = "103"
      arKst(2, 3) = "103_LOS2"

    For numZaehlKst = 0 To 2
        strSQLFlt = "SELECT AE_APListe.[Arbpkt-Nr] AS Lfd_Nr...
              "FROM AE_APListe " & _
              "WHERE (AE_APListe.kst" & arKst(numZaehlKst, 0) & ") AND (AE_APListe.Gewerk=""RB"") " & _
              "ORDER BY AE_APListe.[Arbpkt-Nr];"
                 
         Set qry_export = CurrentDb.CreateQueryDef("AE-HptAus", strSQLFlt)
         
         DoCmd.TransferSpreadsheet TransferType:=acExport, SpreadsheetType:=acSpreadsheetTypeExcel9, _
            TableName:="AE-HptAus", FileName:=strDateiname
         
         DoCmd.DeleteObject acQuery, "AE-HptAus"
         qry_export.Close
         Set qry_export = Nothing
    Next numZaehlKst

Soweit läuft das auch. Aber es gibt eben auch, bis auf die Überschriften, leere Excel-Dateien.

ciao
HeiDie

[DF6GL]

Hallo,

Code [Auswählen] Erweitern

.
.
.
     Set qry_export = CurrentDb.CreateQueryDef("AE-HptAus", strSQLFlt)
         If Dcount("*","AE-HptAus") > 0 Then
           DoCmd.TransferSpreadsheet TransferType:=acExport, SpreadsheetType:=acSpreadsheetTypeExcel9, _
            TableName:="AE-HptAus", FileName:=strDateiname
          Else
            Msgbox "Abfrage enthält keine Datensätze"
          End If       
.
.
. 

[swity]

Hallo Franz,

jep, dass war es.
dickes Danke

Heinz-Dieter