Hallo,
ich habe vor, eine Access Anwendung nur noch als Frontend zu benutzen und die Datenhaltung auf MS SQL Server 2005 auszulagern. Allerdings benötige ich den Login Namen des Nutzers, sodass ich nach einigem Suchen auf unten geschriebenen Code stieß. Leider bekomme ich immer nur das Resultat, dass die Routine mit der Meldung „Für mindestens einen erforderlichen Parameter wurde kein Wert angegeben“ abbricht:
Public Function AktuellerBenutzer() As String
On Error GoTo AktuellerBenutzer_Err
Dim rs As ADODB.Recordset
Const strSQL As String = „SELECT SUSER_SNAME“
Set rs = CurrentProject.Connection.Execute(strSQL)
AktuellerBenutzer = rs.Fields(0).Value
AktuellerBenutzer_Exit:
On Error Resume Next
rs.Close
Set rs = Nothing
Exit Function
AktuellerBenutzer_Err:
MsgBox Err.Number & " " & Err.Description, vbExclamation, „Error“
Resume AktuellerBenutzer_Exit
End Function
Setzt man an die Stelle des „SELECT SUSER_SNAME()“ eine beliebige andere Anfrage a la „SELECT a FROM b“, funktioniert alles einwandfrei. Was könnte hier das Problem sein?