access数据库,打出来的照片都是第一张,怎么办?
来源:百度知道 编辑:UC知道 时间:2024/05/22 16:00:53
access数据库,打印带有数据和照片的表格,
照片是存放在另外的文件夹下,利用文件名和数据表中的记录对应上。
现在视图窗口上看都正常,照片随记录变化。
但是批量打印为何数据有变化,而打出来的照片都是第一张?
怎么让打印时照片也随记录变化啊?
给个实例或者网上同类问题的解答链接也行啊。
我没baidu到。
1、在窗体中直接查看并批量打印,怎样加游标啊?
2、图片在窗体视图中是可变的,就是打印时不变。
3、打印时数据是变的,只有图片不变。
代码如下:
Option Compare Database
Dim imgpath As String
Private Sub Form_AfterUpdate()
End Sub
Private Sub Form_Current()
imgpath = ""
hideImageFrame
错误信息.Visible = False
' 依据应用程序路径、认证项目名称、姓名得到相片路径
imgpath = "d:\khd\zp\" & Me![code] & Me![name] & ".bmp"
' 判断照片是否存在,如果不存在则显示一张空白的图片。
If Dir(imgpath) = "" Then
错误信息.Caption = "照片未找到。"
错误信息.Visible = True
Else
Me![zpimg].Picture = imgpath
showImageFrame
End If
End Sub
照片是存放在另外的文件夹下,利用文件名和数据表中的记录对应上。
现在视图窗口上看都正常,照片随记录变化。
但是批量打印为何数据有变化,而打出来的照片都是第一张?
怎么让打印时照片也随记录变化啊?
给个实例或者网上同类问题的解答链接也行啊。
我没baidu到。
1、在窗体中直接查看并批量打印,怎样加游标啊?
2、图片在窗体视图中是可变的,就是打印时不变。
3、打印时数据是变的,只有图片不变。
代码如下:
Option Compare Database
Dim imgpath As String
Private Sub Form_AfterUpdate()
End Sub
Private Sub Form_Current()
imgpath = ""
hideImageFrame
错误信息.Visible = False
' 依据应用程序路径、认证项目名称、姓名得到相片路径
imgpath = "d:\khd\zp\" & Me![code] & Me![name] & ".bmp"
' 判断照片是否存在,如果不存在则显示一张空白的图片。
If Dir(imgpath) = "" Then
错误信息.Caption = "照片未找到。"
错误信息.Visible = True
Else
Me![zpimg].Picture = imgpath
showImageFrame
End If
End Sub
我也没搞太清楚```和楼上的差不多吧
还是你的图片是静态的 不能改了``
数据库游标设置一下
打印的程序清除一下缓存 你再试下````
1.程序没有移动数据库游标。
2.图片位置设为了静态变量,没法改变。
3.打印程序没有清楚缓存。
发文件到yymhy@163.com看看
1.程序没有移动数据库游标。
2.图片位置设为了静态变量,没法改变。
3.打印程序没有清楚缓存。
或发文件到yymhy@163.com看看