Office中国论坛/Access中国论坛

标题: 为什么我做的窗体连接不到图片 [打印本页]

作者: sailoroyy 时间: 2008-4-2 15:40
标题: 为什么我做的窗体连接不到图片
为什么我做的窗体连接不到图片种显示这一张图片。有那为高手指点一下。
代码如下：
Option Compare Database
Private Sub Image10_Click()
On Error GoTo R
款号.SetFocus
strPic = 款号.Text
Dbpath = Application.CurrentProject.Path
If Dbpath = "\\12345\Dbase\图片" Then
      imgItem.Picture = "\\12345\Dbase\图片\Picture\" & Left(strPic, 3) & "\" & strPic & ".gif"
Else
  imgItem.Picture = [url=file://\\123456\Dbase\图片\Picture\]\\123456\Dbase\图片\Picture\[/url] & Left(strPic, 3) & "\" & strPic & ".gif"
  'imgItem.Picture = "D:\我的图片\图片\Picture\其他\" & strPic & ".gif"
End If
R:
Select Case Err.Number
Case Is = "2220"
imgItem.Picture = ""
Resume Next
Case Else
Resume Next
End Select
End Sub

作者: sailoroyy 时间: 2008-4-2 16:25
附件很大上传不了

作者: sailoroyy 时间: 2008-4-3 09:51
好的，请问我怎么才可以看到呢

作者: hi-wzj 时间: 2008-4-3 10:25
将库复制一份，然后删除无关的项目和内容，压缩后再上传即可。

作者: goto2008 时间: 2008-4-3 14:23
[:31]

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