关于照片移位的问题

我猜你是想把照片放在 当页的 “新生注册号页眉”吧？

你傻了吗？ 干嘛代码放在主体里赋值？

你知道这样是每次格式化主体时 都会赋值一次吗？

你有知道 系统是遇到下一条记录不是 “新生注册号”不一样时，才完成这个组的格式化吗？

如果你是知道access报表怎运作，而使用此特性来规划报表的话，你程式没错！

你认为程式错的话，就是你自己用错了！

去，把代码放到 组页眉0_Format 格式化里面！

If FormatCount = 1 Then  '<---- 这句一定要加上，不明白的话，请网上发问
    Dim imgpath1 As String
   
    ' 依据应用程序路径、认证项目名称、姓名得到相片路径
    '
    imgpath1 = Application.CurrentProject.Path & "\kszp\" & Me.新生注册号 & ".jpg"  '<----这句请更新为这样，你写得太笨了！    
    ' 判断照片是否存在，如果不存在则显示一张空白的图片。

   
    On Error Resume Next

    If Dir$(imgpath1) = "" Then imgpath1 = Application.CurrentProject.Path + "\noimg.bmp"
   
    STUIMG.Picture = imgpath1
End If