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?
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
Hallo,
.
.
.
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
.
.
.
Hallo Franz,
jep, dass war es.
dickes Danke
Heinz-Dieter