Access在窗体中动态添加记录对应的图片
- 2017-12-27 15:41:00
- tmtony8 原创
- 7807
前面讲过《Access按记录动态显示图片》。我们可以选择不同的记录显示相关的不同照片。
既然图片可以显示,那么如何在窗体中添加图片呢?
这里我们显示图片的方式是通过读取图片的路径,找到表中记录对应的图片信息。
所以添加图片,我们只需要把图片从一个路径复制到另外的一个显示图片的路径即可。
在《Access弹出文件选择对话框让用户选择图片或照片》一文中提及到如何用对话框选择图片。
自定义文件选择对话框函数
Function GetFileName(ByVal DialogType As Integer) As String Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog(DialogType) With dlgOpen .AllowMultiSelect = True .Title = "添加图片" .Filters.Clear .Filters.Add "图片文件", "*.jpg;*.png" .Show End With If dlgOpen.SelectedItems.Count > 0 Then GetFileName = dlgOpen.SelectedItems(1) Else GetFileName = "" End If Set dlgOpen = Nothing End Function
在窗体中调用该函数,使用FileCopy 函数复制选中的文件到显示图片的文件夹内
Private Sub Command2_Click() FileCopy GetFileName(1), CurrentProject.Path & "\pic" & Me.subform.Form.toolname & ".jpg" End Sub
选中子窗体的记录,运行操作按钮。打开文件选择对话框,选择需要的图片。按确定
即可在指定的记录对应相应的图片
Access数据库自身
- office课程播放地址及课程明细
- Excel Word PPT Access VBA等Office技巧学习平台
- 将( .accdb) 文件格式数据库转换为早期版本(.mdb)的文件格式
- 将早期的数据库文件格式(.mdb)转换为 (.accdb) 文件格式
- KB5002984:配置 Jet Red Database Engine 数据库引擎和访问连接引擎以阻止对远程数据库的访问(remote table)
- Access 365 /Access 2019 数据库中哪些函数功能和属性被沙箱模式阻止(如未启动宏时)
- Access Runtime(运行时)最全的下载(2007 2010 2013 2016 2019 Access 365)
Access Activex第三方控件
- Activex控件或Dll 在某些电脑无法正常注册的解决办法(regsvr32注册时卡住)
- office使用部分控件时提示“您没有使用该ActiveX控件许可的问题”的解决方法
- RTF文件(富文本格式)的一些解析
- Access树控件(treeview) 64位Office下出现横向滚动条不会自动定位的解决办法
- Access中国树控件 在win10电脑 节点行间距太小的解决办法
- EXCEL 2019 64位版(Office 2019 64位)早就支持64位Treeview 树控件 ListView列表等64位MSCOMMCTL.OCX控件下载
- VBA或VB6调用WebService(直接Post方式)并解析返回的XML
Access ADP Sql Server等
- 早期PB程序连接Sqlserver出现错误
- MMC 不能打开文件C:/Program Files/Microsoft SQL Server/80/Tools/Binn/SQL Server Enterprise Manager.MSC 可能是由于文件不存在,不是一个MMC控制台,或者用后来的MMC版
- sql server连接不了的解决办法
- localhost与127.0.0.1区别
- Roych的浅谈数据库开发系列(Sql Server)
- sqlserver 自动备份对备份目录没有存取权限的解决办法
- 安装Sql server 2005 express 和SQLServer2005 Express版企业管理器 SQLServer2005_SSMSEE
文章分类
联系我们
联系人: | 王先生 |
---|---|
Email: | 18449932@qq.com |
QQ: | 18449932 |
微博: | officecn01 |