Daten aus einem Feld in einer Abfrage in eine Tabelle eintragen
PeterDoering
Gesendet: 24.04.13 00:14
Betreff: RE: Daten aus einem Feld in einer Abfrage in eine Tabelle eintragen



Extreme Veteran

Beiträge: 572
5002525
Hallo,

briane - 23.04.13 16:08
Set rsttabTagungAnmeldungen = dbs.OpenRecordset("tabTagungAnmeldungen", RecordsetTypeEnum.dbOpenDynaset) 'Tabelle wird als recordset geöffnet

Es hängt hier:

For varAnmID = 1 To rstAnm.RecordCount ' geht alle Datensätze bis zum Ende durch (oder?)

RecordCount liefert nach dem Öffnen des Recordsets 1, es sei denn, das Recordset enthält keine Daten, dann wäre es 0. Du musst erst den Zeiger auf das Ende setzen, dann die Anzahl ermitteln und wieder auf Anfang gehen:

Dim lngCount As Long

With rstAnm
.MoveLast
lngCount = .RecordCount
.MoveFirst
End With

For varAnmID = 1 To lngCount
...

-----
Gruss - Peter
Top of the page Bottom of the page