访问vba超链接将无法正常工作

Question

 Dim dbs As DAO.Database
 Dim rst As DAO.Recordset

    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("יומן תקלות")
    Dim str As String
   rst.MoveFirst

    Do Until rst.EOF
          If IsNull(rst!אישור) Then
               str = rst![מס' תקלה]
               rst.Edit
          rst!אישור = "C:\test\pic\" + str + ".jpg"
          rst.Update
          End If
       rst.MoveNext
    Loop

我有这个代码，它完美无缺 但是，当我试图按下超链接没有任何东西加油 路径正常，还有文件名 我试图右键单击 - ＆gt; hyperling-＆gt;打开hyperling和nothng 请帮帮我

Answer 1

如果单击该链接会引发错误，这是因为提供的链接不正确，但由于没有任何反应，问题可能是由于表中的数据类型错误引起的。

转到表格的设计视图，并将数据类型设置为超链接。