Felder eines DAO-Recordsets nicht mehr verfügbar. ACCESS 2003

26/03/2008 - 18:32 von HMS | Report spam
Folgendes Problem tritt nach mehreren Jahren fehlerlosen Betriebs spontan auf:

Beispiel:

Option Compare Database
Option Explicit

Public Function fktAdresse(lngkid As Long, Optional lngPartner As Variant,
Optional strBeleg As String) As String
Dim db As Database
Dim rs As Recordset
Dim strsql As String
Dim temp As String
Dim varanschrift1 As Variant
On Error GoTo errhandler

strsql = "select * From qryAnschrift where id =" & lngkid

Set db = application.CurrentDb
Set rs = db.OpenRecordset(strsql)

With rs!anschrift

debug.print !name1, !ort, !plz
...

end with



In den o.a. Recordset wird plötzlich nur das eine Feld (id) übernommen.
Alle anderen Felder sind im rs vorhanden, haben aber den Inhalt des Feldes
"id".


Vielen Dank für Hilfe!

Gruß
HMS
 

Lesen sie die antworten

#1 Thomas Möller
26/03/2008 - 18:47 | Warnen spam
Hallo!

"HMS" schrieb:
Folgendes Problem tritt nach mehreren Jahren fehlerlosen Betriebs
spontan auf:

Public Function fktAdresse(lngkid As Long, Optional lngPartner As
Variant,
Optional strBeleg As String) As String
Dim db As Database
Dim rs As Recordset
Dim strsql As String
Dim temp As String
Dim varanschrift1 As Variant
On Error GoTo errhandler
strsql = "select * From qryAnschrift where id =" & lngkid
Set db = application.CurrentDb
Set rs = db.OpenRecordset(strsql)
With rs!anschrift
debug.print !name1, !ort, !plz
...
end with

In den o.a. Recordset wird plötzlich nur das eine Feld (id)
übernommen.
Alle anderen Felder sind im rs vorhanden, haben aber den Inhalt des
Feldes
"id".



Hast Du in letzter Zeit etwas an dem Rechner geàndert? SP's für Access
eingespielt?

Eventuell hast Du es mit Korruption zu tun. Arbeite mal diese Punkte
durch:
www.donkarl.com?FAQ1.27
(Link in einer Zeile)

Eventuell hilft auch ein DECOMPILE:
www.donkarl.com?FAQ1.23
(Link in einer Zeile)

HTH
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen