In Access i have the following Table:
tbl_Test:
ID: Autowert;
Feld1: Kurzer Text;
Feld2: Zahl (Long Integer);
Feld3: Zahl (Decimal 18,0);
Feld4: Zahl (Long Integer);
By executing the following sub Access crashes after the Debug.Print of Feld2 ab (seems it has to do wihth the datatype decimal of this field):
Public Sub Test()
Dim rs As DAO.Recordset
Dim F As Field
On Error GoTo Fehler
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_Test;", dbOpenDynaset, dbSeeChanges)
If Not rs.EOF Then
For Each F In rs.Fields
Debug.Print F.Name & ": " & F.Value
Next F
End If
Fehler:
If Err.Number <> 0 Then MsgBox Err.Number & " " & Err.Description
End Sub
