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.