Office: (Office 2010) Abfrage per VBA filtern und exportieren

CB_83 · 25. Mai 2015

Hi,

ich möchte gerne eine Abfrage per VBA exportieren. Das klappt auch erst mal an sich, aber ich möchte sie gern vorher noch filtern.
Das Filtern klappt auch so halb wegs.

Code:

DoCmd.OpenQuery "qryDatenFuerDBAuswertung_TRIP"
DoCmd.ApplyFilter , "[STATUS] = 1"
'DoCmd.ApplyFilter , "[STATUS] = " Me.[auswahl]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn ich einfach nur nach zb 1 filtere funktioniert es, ich würde aber gern den Wert in ein Feld eingeben können- weiss leider nicht genau wie der Syntax da ist.

Und ein weiteres Problem ist, dass wenn ich in der Abfrage den Status nach 1 filtere und dann die Abfrage exportiere werden auch nur Datensätze mit Status 1 exportiert. Wenn ich aber per VBA nach 1 filtere und dann exportieren lasse werden alle Datensätze, auch die mit anderem Status, exportiert.

Code:

Private Sub cmdTrip_Click()
On Error GoTo ErrorHandler

DoCmd.OpenQuery "qryDatenFuerDBAuswertung_TRIP"
DoCmd.ApplyFilter , "[STATUS] = 1"
'DoCmd.ApplyFilter , "[STATUS] = " & Replace(Me.[auswahl]
'MsgBox "sdfsdf!"

DoCmd.TransferSpreadsheet TransferType:=acExport, SpreadsheetType:=acSpreadsheetTypeExcel9, TableName:="qryDatenFuerDBAuswertung_TRIP", FileName:="C:\Users\DE2BC8\Desktop\test3.xls", HasFieldNames:=True

ErrorHandlerExit:
Exit Sub

ErrorHandler:
MsgBox "ErrorNr: " & Err.Number & "; Beschreibung: " & Err.Description
Resume ErrorHandlerExit

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

vielen Dank für eure Ideen und Tips

:)

sebastian87 · 26. Mai 2015

Ich kann jetzt nicht mit Bestimmtheit sagen, ob ApplyFilter automatisch auf die geöffnete Query angewendet wird.
Was du auch noch machen könntest:
Baue dir deine Query mit allen Filtermöglichkeiten zusammen, erstelle in der DB eine temporäre Query und exportiere diese Query dann in dein Spreadsheet.

CB_83 · 27. Mai 2015

hey,

ApplyFilter wird glaub ich schon auf die geöffnete Abfrage angewandt, aber anscheinend nicht auf die exportierte.

Das mit der querry zusammenbauen versteh ich nicht ganz.
Ich möchte ja das der Benutzer vorm exportieren sich aussuchen kann welche Datensätzte er exportieren möchte.
Das mit dem Status ist nur zum testen.
Ich möchte dann die möglichkeit einbauen nach Datum (zb 2.3.2015 -18.3.2015) oder nach Kalenderwoche zu Filtern.

Trotzdem vielen Dank sebastian87

CB_83 · 27. Mai 2015

OK,

Das mit dem Filter den ich selber vorher eingeben kann funktioniert jetzt.

Code:

DoCmd.OpenQuery "qryDatenFuerDBAuswertung_TRIP"
DoCmd.ApplyFilter , "[STATUS] = [Forms]![frmExport]![auswahl]"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die dann geöffnete Abfrage ist auch nach dem in "auswahl" eingegebenen Wert gefiltert aber die exportierte Datei enthält immer noch alle Datensätze *mad.gif*

Jemand ne Idee warum?

ios707 · 27. Mai 2015

Die Sache mit den Filtern mag ich persönlich nicht, da baue ich lieber die Abfrage on the fly neu auf. Hier ein Code-Beispiel zum "query zusammenbauen":

Code:

Dim db As Database
Dim strSQLAbfrage As String
Dim objAbfrage As QueryDef

'Aktuelle Datenbank unter Objekt db abspeichern
Set db = CurrentDb
'SQL-String basteln
strSQLAbfrage = "SELECT * FROM Tabelle WHERE irgendeinfeld = " & Me!irgendeinwert
'vorhandene "alte" Abfrage löschen
On Error Resume Next
db.QueryDefs.Delete "qryMeineAbfrage"
'Jetzt die "neue" Abfrage auf Basis des SQL-Strings erzeugen
Set objAbfrage = db.CreateQueryDef("qryMeineAbfrage", strSQLAbfrage)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das on error resume next ist optional und eigentlich nicht so toll, aber macht das Code auch dann läuft, wenn die Abfrage gar nicht existiert.

Office: (Office 2010) Abfrage per VBA filtern und exportieren

Abfrage per VBA filtern und exportieren

Abfrage per VBA filtern und exportieren

Abfrage per VBA filtern und exportieren

Abfrage per VBA filtern und exportieren - Similar Threads - Abfrage VBA filtern

Teil des Zellinhaltes abfragen in VBA

Auslesen einer Abfrage in VBA Modul

Automatisch aktualisierende Tabelle? Hilfe!! :-)

VBA Hilfe Abfrage ob UserForm vom anderen User geöffnet ist

Primärschlüssel/Fremdschlüssel aus 2.Tabelle automatisch einfügen

VBA Ja nein Abfrage mit Ausgabe

Abfrage per VBA zusammenbauen