Question

我试图用我的datatbase中的管理表替换VBA中的所有路径常量，这样用户就可以更改文件夹和文件的位置，而无需编辑vba代码。

代码如下

Private Sub Command8_Click()

    Debug.Print DLookup("fsFileLink", "tblFileSystem", "fsFileName= 'TEMPLATES'")
    MsgBox = DLookup("fsFileLink", "tblFileSystem", "fsFileName= 'TEMPLATES'")

End Sub

debug.print返回

C:\Users\... \templates\

但msgbox返回错误“left必须是variant或object”。如何将我的dlookup值作为一个字符串，我可以在文本框中显示和编辑？

谢谢

Answer 1

我正在使用以下代码：

Dim strCOCTemplate As String

strCOCTemplate = Nz(DLookup("fsFileLink", "tblFileSystem", "fsFileName= 'TEMPLATE_COC2'"), "none")

If strCOCTemplate = "none" Then Err.Raise Number:=11001, Description:=ERR_DESC_11001 
Set docJobSpec = WordApp.Documents.Add(Template:=strCOCTemplate, NewTemplate:=True)

Dlookup返回一个变体，但Template:=不能接受空值并抛出一个akward错误。我通过使用nz()函数返回一个字符串补偿了这一点，并提出了我自己的自定义错误，表示该表无法找到数据

Dlookup超链接显示在MsgBox中

1 个答案: