当前表的某一字段输入时改变另一表相应字段的值

表联接如下：

我在增加窗体加入楼主的代码，结果提示错误：

登记窗体代码如下

Private Sub cmd_Save()
    Dim rst As DAO.Recordset
   
    If IsNull(Me.lbID) Then
        MsgBox "请输入使用部门!", vbCritical, "提示："
        Me.lbID.SetFocus
        Exit Sub
    End If
    If IsNull(Me.ygID) Then
        MsgBox "请输入姓名!", vbCritical, "提示："
        Me.ygID.SetFocus
        Exit Sub
    End If
  
    If IsNull(Me.fhID) Then
        MsgBox "请输入房号!", vbCritical, "提示："
        Me.fhID.SetFocus
        Exit Sub
    End If
    If IsNull(Me.lxdh) Then
        MsgBox "请输入联系电话!", vbCritical, "提示："
        Me.lxdh.SetFocus
        Exit Sub
    End If
   
   
    Me.Refresh
    If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
        Set rst = CurrentDb.OpenRecordset("tblzsmx", dbOpenDynaset)
        rst.AddNew
        rst("mxId") = acchelp_autoid("SS", 10, "tblzsmx", "mxId")
     
        rst("lbId") = Me.lbID
        '注这里是lbid不是bxlb
        rst("ygId") = Me.ygID
     
        rst("fhID") = Me.fhID
       
        rst("fj") = Me.fj
        rst("jg") = Me.jg
        rst("kf") = Me.kf
        rst("jfsj") = Me.jfsj
        rst("lfsj") = Me.lfsj
        rst("lxdh") = Me.lxdh
        rst("bz") = Me.bz
        rst.Update
        rst.Close
        Set rst = Nothing
        '刷新数据
        If IsLoaded("usysfrmMain") Then
            DoCmd.Echo False
            Forms!usysfrmMain!frmChild.SourceObject = "frmzsmx_child"
            DoCmd.Echo True
        End If
        MsgBox "保存成功!", vbInformation, "提示"
    
        Me.lbID = Null
'注这里是lbid不是bxlb
        Me.ygID = Null
     
        Me.fhID = Null
         Me.fj = Null
          Me.jg = Null
        Me.kf = Null
         Me.jfsj = Null
          Me.lfsj = Null
           Me.lxdh = Null
            Me.bz = Null
    End If
 
 
   
   
End Sub

Private Sub cmdCancel_Click()
DoCmd.Close acForm, Me.Name
End Sub

Private Sub cmdOK_Click()
 DoCmd.RunSQL "UPDATE tblcodefh SET fhzt=0 WHERE fhmx=" & Me!fhID

cmd_Save
End Sub
Private Sub cmdBX_Click()
     DoCmd.OpenForm "frm_Codesybm_child_Add", , , , , acDialog
End Sub

Private Sub cmdYG_Click()
     DoCmd.OpenForm "frmjbr_child_Add", , , , , acDialog
End Sub

Private Sub lbId_AfterUpdate()
Me.lxdh.SetFocus

End Sub

Private Sub lbId_GotFocus()
Me.lbID.Dropdown

End Sub

Private Sub ygId_AfterUpdate()
Me.lbID.SetFocus

End Sub

Private Sub ygId_GotFocus()
Me.ygID.Dropdown

End Sub

 请教是怎么修改，谢谢！