大家好,窗体上查询功能和录入功能用不了怎么办啊

大家好,窗体上查询功能和录入功能用不了怎么办啊

Private Sub Form_Current()
On Error GoTo Err_Form_Current
   Forms![职工信息维护查询]![工号] = Me![工号]
   Forms![职工信息维护查询]![姓名] = Me![姓名]
   Forms![职工信息维护查询]![性别] = Me![性别]
   Forms![职工信息维护查询]![民族] = Me![民族]
   Forms![职工信息维护查询]![部门] = Me![部门]
   Forms![职工信息维护查询]![职务] = Me![职务]
   Forms![职工信息维护查询]![公司分机] = Me![公司分机]
   Forms![职工信息维护查询]![薪资] = Me![薪资]
   Forms![职工信息维护查询]![身份证/暂住证号] = Me![身份证/暂住证号]
   Forms![职工信息维护查询]![籍贯] = Me![籍贯]
   Forms![职工信息维护查询]![英语水平] = Me![英语水平]
   Forms![职工信息维护查询]![学历] = Me![学历]
   Forms![职工信息维护查询]![住址] = Me![住址]
   Forms![职工信息维护查询]![联系电话] = Me![联系电话]
   Forms![职工信息维护查询]![聘用日期] = Me![聘用日期]
   Forms![职工信息维护查询]![备注] = Me![备注]
Exit_Form_Load:
   Exit Sub
Err_Form_Current:
   MsgBox Err.Description
   Resume Exit_Form_Current
End Sub