Forms PtrSafe属性错误MS访问
我试图将记录输入MS Access表单,但出现以下编译错误: “此项目中的代码必须更新才能在64位系统上使用。请检查并更新Declare语句,然后用PtrSafe属性标记它们。” 数据库中的代码如下所示:Forms PtrSafe属性错误MS访问,forms,vba,ms-access,Forms,Vba,Ms Access,我试图将记录输入MS Access表单,但出现以下编译错误: “此项目中的代码必须更新才能在64位系统上使用。请检查并更新Declare语句,然后用PtrSafe属性标记它们。” 数据库中的代码如下所示: Private Sub cboProjectID_Change() Dim VarComboKey As Integer VarComboKey = Me.cboProjectID.Value Me!cboErrCod1.RowSource = "SELECT DI
Private Sub cboProjectID_Change()
Dim VarComboKey As Integer
VarComboKey = Me.cboProjectID.Value
Me!cboErrCod1.RowSource = "SELECT DISTINCT [Error_Reason_Code], [Reason_Code_Desc] FROM [HDR_ErrCodes] WHERE [project_ID] = " & VarComboKey
Me!cboErrCod2.RowSource = "SELECT DISTINCT [Error_Reason_Code], [Reason_Code_Desc] FROM [HDR_ErrCodes] WHERE [project_ID] = " & VarComboKey
Me!cboErrCod3.RowSource = "SELECT DISTINCT [Error_Reason_Code], [Reason_Code_Desc] FROM [HDR_ErrCodes] WHERE [project_ID] = " & VarComboKey
Me!cboErrCod4.RowSource = "SELECT DISTINCT [Error_Reason_Code], [Reason_Code_Desc] FROM [HDR_ErrCodes] WHERE [project_ID] = " & VarComboKey
Me!cboErrCod5.RowSource = "SELECT DISTINCT [Error_Reason_Code], [Reason_Code_Desc] FROM [HDR_ErrCodes] WHERE [project_ID] = " & VarComboKey
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim ctl As Control
On Error GoTo Err_BeforeUpdate
If Me.Dirty Then
If MsgBox("Do you want to save?", vbYesNo + vbQuestion, _
"Save Record") = vbNo Then
Me.Undo
End If
End If
Exit_BeforeUpdate:
Exit Sub
Err_BeforeUpdate:
MsgBox Err.Number & " " & Err.Description
Resume Exit_BeforeUpdate
End Sub
有人能帮我更新代码以防止出现此错误吗?经过一番搜索,我找到了declare语句所在的位置。此代码修复了它:
#If VBA7 Then
Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
#Else
Private Declare Function GetTickCount Lib "kernel32" () As Long
#End If
这并不是全部代码。你已经在某处声明了。