Access07: rs aus Fo nach Excel

Question

Hallo,

mit folgender Funktion wird der rs aus dem Fo korrekt nach Excel geschickt, aber: nur beim ersten Mal - beim zweiten Mal kommt nichts an (also das Formular bleibt offen und zum Beispiel wurde ein neuer Satz eingefügt). Nach Fo Schliessen/Öffnen geht es wieder.

Geht "Set rs = Frm.RecordsetClone" nur einmal? Vielen Dank für Eure Hilfe. Gruß Steffen 

   
Public Function ExportExcel(strForm As String)

Set Frm = Forms(strForm)
Set rs = Frm.RecordsetClone

Set xlApp = CreateObject("Excel.Application")
   
    xlApp.Visible = True
    Set xlWB = xlApp.Workbooks.Add
    Set xlSheet = xlWB.Sheets(1)
    xlSheet.cells(2, 2).CopyFromRecordset rs

rs.Close
Set rs = Nothing

Set xlApp = Nothing
Set xlWB = Nothing
Set xlSheet = Nothing

End Function

Answer 1

Hallo!

CopyFromRecordset verschiebt den Datensatzzeiger an die letzte übertragene Position und startet bei der aktuellen Datensatzposition im Recordset.
=> rs.MoveFirst stellt den Datensatzzeiger an die erste Position => alle Datensätze im Recordset werden übertragen.

mfg
Josef

---

Code-Bibliothek für Access-Entwickler
AccUnit - Testen von Access-Anwendungen
Virtueller Access-Stammtisch

Answer 2

Hallo Josef, vielen Dank für Deine schnelle Info; funktioniert so einwandfrei.

Ich nahm an, dass  "rs.Close & Set rs = Nothing" die Sache wieder auf Anfang setzt.

Gruß Steffen