我正在使用Entry表单和Update表单构建Access数据库。主表有几个字段,这些字段是通过VBA从数据输入表单上的数据构建的 - 简短示例:
Private Sub Network_Selection_Exit(Cancel As Integer)
PBlue_Network = Forms!frmDataEntry!PBlue_Network
-------------------------------
Form_sbfNetwork Selection
Private Sub Existing_Click()
' Only pull documentation for Requested Networks
If Not Existing = "Existing" Then
If Network_CD = 1 Then Forms!frmDataEntry!PBlue_Network = "AI"
End If
“数据输入”表单正常工作,但“更新”表单使用几乎相同的代码为我提供了2465:
Form_sbfNetWork_Update
Private Sub Existing_Click()
' Only pull documentation for Requested Networks
If Not Existing = "Existing" Then
If Network_CD = 1 Then Forms!frmProvUpdate!PBlue_Network = "AI"
End If
----------------------------------------------
Form_frmProvUpdate
Private Sub Network_Updates_Exit(Cancel As Integer)
PBlue_Network = Forms!frmProvUpdate!PBlue_Network
我不确定我哪里出错了,但更新一直给出2465错误