MS Access 2010でGetCurrentUserName（）がクラッシュする

Question

Windows 7 Professionalを実行しています。私はMS AccessフロントエンドをMS Accessバックエンドに持っています。フロントエンドの開始時に開くフォームは、アプリケーションをクラッシュさせます。ここで

は、コードは次のとおりです。

Private Sub Form_Open(Cancel As Integer) 
Dim strMyDir As String 
Dim intPos As Integer 
Dim rst As dao.Recordset 
Dim strSQL As String 
Dim rstWhatsNew As dao.Recordset 

DoCmd.ShowToolbar "Database", acToolbarNo 
DoCmd.ShowToolbar "Toolbox", acToolbarNo 
DoCmd.ShowToolbar "Form View", acToolbarNo 

If Application.GetOption("ShowWindowsInTaskbar") = -1 Then 
    Application.SetOption "ShowWindowsInTaskbar", 0 
End If 


If DLookup("Locked", "luLockOut") <> 0 Then 
    MsgBox "Database is being worked on. Please try back in a couple minutes.", vbInformation, " " 
    DoCmd.Quit 
Else 
    strSQL = "Select * From tblLastLogins Where UserName = '" & GetCurrentUserName() & "'" 

私はエラーをトレースしている場所です：GetCurrentUserName（）

Set rst = CurrentDb.OpenRecordset(strSQL) 
     With rst 
      If Not .EOF Then 
       .Edit 
       strSQL = "Select WhatsNewID From tblWhatsNew Where DateAdded >= #" & !LastLoginDate & "#" 
       Set rstWhatsNew = CurrentDb.OpenRecordset(strSQL) 
        While Not rstWhatsNew.EOF 
         DoCmd.OpenForm "frmWhatsNew", , , , , acDialog, rstWhatsNew!WhatsNewID 
         rstWhatsNew.MoveNext 
        Wend 
        rstWhatsNew.Close 
       Set rstWhatsNew = Nothing 
      Else 
       .AddNew 
       !UserName = GetCurrentUserName() 
      End If 
      !LastLoginDate = Now() 
      !IsLoggedIn = -1 
      Me.txtLastLoginID = !LastLoginID 
      .Update 
      .Close 
     End With 
    Set rst = Nothing 
    DoCmd.OpenForm "frmPrivacyNote" 
    Debug.Print Me.txtLastLoginID 
End If 

GetCurrentUserName（）が古くなっているので、もし私は、ユーザー名を追跡する必要があります、現在の構文は何ですか？

さらにフォローアップしてください。正当な理由で、GetCurrentUserName（）のBingに関するデータが見つかりませんでした。それはMOD内の関数なので、なぜMODが呼び出されないのか、または機能が正しくないのかを理解する必要があります。

さらに調査したところ、このエラーの原因であるユーザーの1人が作成した別の機能を持つ参照済みMDBが見つかりました。

これは現在、MS Accessが正しく動作していない問題です。これはユーザーが作成したコードの問題です。

Answer 1

下記のリンクは

あるCurrentUser（）

は、あなたが見（および掲載）している必要がありますので、機能

CurrentUser()

Answer 2

GetCurrentUserName()は、Accessで定義されていないであることを示唆していますそのコード。

あなたがWindowsユーザー名を探している場合は、この機能を使用します。

Public Function GetUserName() As String 
    ' GetUserName = Environ("USERNAME") 
    ' Environ("USERNAME") is easily spoofed, see comment by HansUp 
    GetUserName = CreateObject("WScript.Network").UserName 
End Function 

Source

Answer 3

アンドレは、洞察力のためにどうもありがとうございました！私は、このリンクを見つけた： http://www.codeproject.com/Articles/1422/Getting-User-Information-Using-WSH-and-VBScript

Dim objNet 
On Error Resume Next 

'In case we fail to create object then display our custom error 

Set objNet = CreateObject("WScript.NetWork") 
If Err.Number <> 0 Then     'If error occured then display notice 
    MsgBox "Don't be Shy." & vbCRLF &_ 
       "Do not press ""No"" If your browser warns you." 
    Document.Location = "UserInfo.html" 
             'Place the Name of the document. 
            'It will display again 
End If 

Dim strInfo 
strInfo = "User Name is  " & objNet.UserName & vbCrLf & _ 
      "Computer Name is " & objNet.ComputerName & vbCrLf & _ 
      "Domain Name is " & objNet.UserDomain 
MsgBox strInfo 

Set objNet = Nothing     'Destroy the Object to free the Memory