怎么在access中使用dll文件？

sossos

我想自行开发pos的系统，不知怎么控制pos的顾客显示平的显示，显示屏配一个dll文件，据说可以控制显示屏的显示请有用过的朋友指教。我的qq：93786298，希望和大家一起研究探讨

Trynew

和Api函数用法相同，先声明，后调用。

sossos

有具体例子吗？

李寻欢

在帮助里输入dll查询。

WTM1

Public Sub DeclareDLL()
    Dim I As Boolean
    I = False
    Dim R As Reference
    For Each R In References
        If R.Name = "ADOX" Then I = True
        Debug.Print R.Name

    Next
    If I = False Then 'ADOX引用丢失
        MsgBox "ADOX引用不存在,即将加载"
        Dim PathName As String
        PathName = Application.CurrentProject.Path & "\"
        Dim Library As String
        Library = "*.dll" '你需要的dll文件
        References.AddFromFile PathName & Library
    End If
End Sub

sossos

谢谢，我先试试