将相机集成到MS Access时出错

Question

我从以下代码获得了代码：

https://www.developerfusion.com/thread/46191/how-to-capture-picture-using-webcam-in-vb60/

但是，在使用此代码时，我收到了编译错误>

必须更新此项目中的代码才能在64位系统上使用。请查看并更新声明语句，然后使用PtrSafe属性标记它们。

我用了 ：

#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal ms as Long)
#End If

它不起作用。

Answer 1

除非您的数据库需要在较低的qqxswpoior上运行，否则不需要条件编译（#If VBA7）。如果最旧的版本是Office 2007you只需要

Office 2010

因为qxxswpoiconvertsPrivate Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As Long) to data-typeVBA7on Office x86和toLongPtron Office x64。

认识到参数Longstays aLongLongas它不是指针/句柄。有关更多信息，请参阅ms。

如果您需要在使用VBA7之前支持旧的Office版本：

Long