Access Sub oder Funktion nicht definiert

Guten Tag,

Ich sitze gerade in der Arbeit (ja es ist Samsta) und habe folgende Herausforderung. Ich Möchte, dass in meiner Tabelle im „Feld 1“ der Name des Mitarbeiters steht der über ein Formular daten in die tabelle speichert.

da CurrentUser() nicht funktioniert hat, habe ich ein Modul mit filgenden inhalt angelegt:

Function Standardwert_setzen()
Dim db As Database
Dim td As TableDef
Dim fld As Field

Set db = CurrentDb()
Set td = db.TableDefs(„Tabelle“)
Set fld = td.Fields(„Feld 1“)
fld.DefaultValue = CurrentUser()

Set db = Nothing
EndFunction

wenn ich das ganze jetzt ausführe kommt die meldung:

Fehler beim Kompilieren:
SUB oder Funktion nicht definiert

was habe ich falsch gemacht?

ich würde mich sehr über eine antwort freuen.

Hi,
du versuchst einer Tabellendefinition eine Defaultwert zuzuweisen der in die Sitzung konstant ist?

Ist es das was du willst?

Welche Funktion wurde nicht gefunden?
Hast die DAO Library geladen? Welche Access Version?

Gruss
Joey

Moin, urbadi,

Fehler beim Kompilieren:
SUB oder Funktion nicht definiert

wenn ich das übersetze, wird völlig korrekt für fld.DefaultValue gemeldet: Methode oder Datenobjet nicht gefunden.

was habe ich falsch gemacht?

Die Methoden für fields werden angezeigt, wenn Du fld. schreibst.

Gruß Ralf

Hi,
das ist 1:1 aus der Hilfe kopiert:

http://support.microsoft.com/kb/508386/de

Gruss
Joey

Spoiler
Moin, urbadi,

was habe ich falsch gemacht?

Teppfihler: nicht EndFunction, sondern End Function.

Die Funktion läuft deswegen aber noch lange nicht. Sie setzt ja voraus, dass eine Tabledef namens „Tabelle“ existiert - die müsste aber erstmal jemand anlegen.

Gruß Ralf