変数フィールドでDLookup値を取得できません

Question

私はAccessにBAF_Userという名前の2つのフィールド（BAFUser、BRID）を持つuserformを持っています。

次のコードを使用してWindowsユーザー名を取得し、DLookupを使用してそれを比較し、アクセスファイルにログインしているユーザーのフルネームを取得します。

Option Compare Database 

Public Function GetUserName() As String 
Dim wshNet As Object 
Dim As String 
Set wshNet = CreateObject("WScript.Network") 
GetUserName = wshNet.UserName 
Set wshNet = Nothing 
MyName = DLookup("[BAFUser]", "BAF_User", "[BRID] = '" & GetUserName & " '") 
End Function 

Private Sub Form_Load() 
MsgBox "Welcome" + MyName 
End Sub 

これは値が表示されていないため、間違ったことをキャッチすることができません。

ありがとうございました。

Answer 1

なぜグローバル変数を使用しますか？関数を呼び出して値を返すだけです。

Public Function GetUserName() As String 
Dim wshNet As Object 
Set wshNet = CreateObject("WScript.Network") 
GetUserName = DLookup("[BAFUser]", "BAF_User", "[BRID] = '" & wshNet.UserName & "'") 
Set wshNet = Nothing 
End Function 

Private Sub Form_Load() 
MsgBox "Welcome " & GetUserName 
End 

代替：あなたはここでは関係のスペースを持っている
MsgBox "Welcome " & DLookup("[BAFUser]", "BAF_User", "[BRID] = '" & Environ("USERNAME") & "'"