Vba 访问表单!不处理更新
我正在建立一个Access数据库,其中包含一个条目表单和一个更新表单。主表有几个字段,这些字段是通过VBA从数据输入表单上的数据生成的-简短示例:Vba 访问表单!不处理更新,vba,forms,ms-access,Vba,Forms,Ms Access,我正在建立一个Access数据库,其中包含一个条目表单和一个更新表单。主表有几个字段,这些字段是通过VBA从数据输入表单上的数据生成的-简短示例: Private Sub Network_Selection_Exit(Cancel As Integer) PBlue_Network = Forms!frmDataEntry!PBlue_Network ------------------------------- Form_sbfNetwork Selection Private Sub
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
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:
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个错误仔细检查更新表单上是否有控件实际命名为PBlue_Network。检入设计视图/属性页。调用一个控件源可能与控件名不同。请仔细检查更新表单上是否有控件实际命名为PBlue_Network。检入设计视图/属性页。调用控制源可能与控制名称不同。
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