代码之家 › 专栏 › 技术社区 › shiv chhabra

无法使用变量字段获取DLookup值

userform ms-access vba

shiv chhabra · 技术社区 · 7 年前

我在Access中有一个名为BAF_User的userform,有2个字段(BAFUser,BRID)。

我使用下面的代码获取windows用户名,然后使用DLookup进行比较,获得登录到Access文件的用户的全名。

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

但这并没有显示出价值,我无法抓住我做错了什么。

谢谢你的帮助。

1 回复 | 直到 7 年前

June7 7 年前

为什么使用全局变量?只需调用函数并使其返回值。

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") & "'"

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前