Karl Donaubauer - 18.01.14 16:40
lengaumi - 17.01.14
...
Die unerwünschten Felder sind immer gleich.
Mir ist leider der Code für das Kopieren der Datensätze aus dem Endlosformular in die Zwischentabelle und damit das Weglassen der "unnötigen" Felder nicht ganz klar.
Ich halte eine Zwischentabelle für unnötig bzw. nur die zweitbeste Lösung, wenn die vorgeschlagene Methode mit der Abfrage eh funktioniert.
Wenn du dennoch eine Tabelle möchtest, dann legst du sie also erst mal nur mit den gewünschten Feldern an.
Die Übergabe der im Formular gefilterten Daten ist dann wieder mit einem im Code zusammengebastelten SQL-String für eine Anfügeabfrage möglich. Eine zweite Methode ist die Übergabe per DAO:
Dim db As DAO.Database
Dim rsQuelle As DAO.Recordset, rsZiel As DAO.Recordset
Set db = CurrentDb
Set rsQuelle = Me.RecordsetClone
' leeren der Zwischentabelle tblExport
db.Execute "DELETE FROM tblExport", dbFailOnError
Set rsZiel = db.OpenRecordset
("tblExport", dbOpenDynaset
)
Do Until rsQuelle.EOF
rsZiel.AddNew
' gewuenschte Felder befuellen
rsZiel!Feld1 = rsQuelle!Feld1
rsZiel!Feld2 = rsQuelle!Feld2
' usw.
rsZiel.Update
rsQuelle.MoveNext
Loop
Export in Excel nur bestimmte Spalten