Return without GoSub

very likely corrupt dB. Try compact repair then you can also decompile/compile dB

http://www.utteraccess.com/forum/return-gosub-t1709880.html

Hvis problemet stadigvæk findes, skal du kompilere koden
Vis VBA kode - vælg Debug | Compile
Derefter gentager du compact |repair (som foreslået af Terry)

En absolut sidebemærkning - det er forbavsende at Microsoft har valgt at understøtte så gammeldags kontrolstrukturer - gad vide om dette også kompilerer i vb?

Function hex2d(v)
10    GoSub 30
20    Exit Function
30    GoSub 40
40    hex2d = Mid("0123456789ABCDEF", 1 + (v And 15), 1) & hex2d
50    v = Int(v / 16)
60    Return
End Function