Office中国论坛/Access中国论坛

标题: 谁能帮我看看怎样通过按钮实现附件上传和超链接地址 [打印本页]

作者: bshchangss 时间: 2012-3-11 08:36
标题: 谁能帮我看看怎样通过按钮实现附件上传和超链接地址
见附件，通过相关按钮实现功能，谢谢！

作者: JosephTan 时间: 2012-3-11 08:51
真不明白为什么总是喜欢把菜单隐藏起来。真是无聊至极的做法。

作者: roych 时间: 2012-3-11 13:32
本帖最后由 roych 于 2012-3-11 13:38 编辑

附件上传和下载请参考红尘的例子：
【源码示例】在数据库中实现文件上传下载
不过个人不建议把附件上传到数据库当中。因为2003版本没有附件字段，只能通过长二进制转换而存取，容易导致数据库统计庞大。
最好的做法是把上传附件时通过对附件地址的读取把文件复制到指定的后台文件夹中，即不影响Access的文件大小，也方便存取（上传下载都只需要FileCopy即可），详细可参考我之前的帖子：
【源码示例】上传与显示——再谈图片在报表与窗体中的应用
下面是上传链接的代码：

Private Sub Command33_Click()
'运行之前，请在VBE界面上依次点击：
'工具\引用\Office Object库（2003版的应该是11.0版本）
Dim Fd As FileDialog
Dim rst As DAO.Recordset
Dim str As String
Set Fd = Application.FileDialog(msoFileDialogFilePicker)
With Fd
.AllowMultiSelect = False
.ButtonName = "上传"
If .Show = True Then
str = .SelectedItems(1)
Else
str = ""
End If
End With
If Len(str) > 0 Then
Set rst = Me.Form.Recordset
rst.Edit
rst("超链接") = "#" & str & "#"
rst.Update
Me.超链接.Requery
End If
End Sub

复制代码

需要注意的是，这里的超链接是上传了，但如果该超链接所在的文件夹或者文件非共享或者无权访问的话，那么除本机用户外，其它人还是打不开的。
[attach]48689[/attach]

作者: bshchangss 时间: 2012-3-11 20:52
为什么我的“FileDialog打开文件对话框”命令不行？

作者: wgh3g 时间: 2012-3-12 11:35
谢谢版主分享，收藏

作者: roych 时间: 2012-3-12 16:27

bshchangss 发表于 2012-3-11 20:52
为什么我的“FileDialog打开文件对话框”命令不行？

'工具\引用\Office Object库（2003版的应该是11.0版本）

你引用了Office库了吗？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)