请问代码出现二义性怎么修改

huayuanwang

Option Compare Database
Private Sub Form_Current()
Dim 公司员工档案信息管理 As String
If IsNull(Me.员工姓名) Then Forms!公司员工档案信息管理!Image1.Visible = False  '无人员编号则隐藏图片
公司员工档案信息管理 = CurrentProject.Path & "\照片\" & Me.员工姓名 & ".jpg"     '合成图片路径
If Dir(公司员工档案信息管理) = "" Then
    Forms!公司员工档案信息管理!Image1.Visible = False   '如果找不到图片则隐藏图片
Else
    Forms!公司员工档案信息管理!Image1.Picture = 公司员工档案信息管理      '读取并显示图片
    Forms!公司员工档案信息管理!Image1.Visible = True    '设置图片可视
End If
End Sub


Option Compare Database
Private Sub Form_Current()
On Error GoTo Error_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_Current:
  Exit Sub
Error_Form_Current:
  MsgBox Err.Description
  Resume Exit_Form_Current
End Sub

zxb7679

Exit_Form_Current:
  Exit Sub
Error_Form_Current:
  MsgBox Err.Description
  Resume Exit_Form_Current
End Sub

zxb7679

这是别人写的语句吧，你注释掉一个再试一试。

huayuanwang

上面一段代码是点击子窗体中的某条记录，在窗体中同步显示照片。
下面一段代码是同步子窗体中与窗体中的数据。
按楼上的方法试了，但不成功，在此还是要谢谢楼下的老师!