Extreme Veteran
Beiträge: 573
 
| 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 |
Daten aus einem Feld in einer Abfrage in eine Tabelle eintragen