Office中国论坛/Access中国论坛

标题: [分享]看呀，李寻欢做的酷程序！ [打印本页]

作者: sam_yuan 时间: 2004-1-4 06:22
标题: [分享]看呀，李寻欢做的酷程序！
感谢李版主的帮忙，我原来用OLE来装图片，最后形成了达到30G的巨型的数据库，现在李版主给了个好东东，用图像控件来做，而且还可以看见JPG图像，这样数据库只有几百K，程序如下：
做一个图片，取名为err.jpg,当找不到该人照片时用err.jpg代替
Private Sub Form_Current()
      If Dir("e:\jpg\" & Me.id & ".jpg") = "" Then
         Image7.Picture = "e:\jpg\err.jpg"
      Else
         Image7.Picture = ("e:\jpg\") & Me.id & ".jpg"
      End If
End Sub
不过这程序最好再改进一下：当没有记录时，此程序会出错，显示：
运行时错误`2427`
你输入的表达式没有数值

[此贴子已经被作者于2004-1-3 22:24:17编辑过]

作者: rogertian 时间: 2004-1-4 18:13
这个程序是不是只能用在OFFICE XP下面，以前我试过好象2000下面不能做。

作者: sam_yuan 时间: 2004-1-4 18:17
标题: 可以呀
我就是在2000下做的.现在我还有一个登陆窗口的问题没解决好,等完成后我将把程序上传.

作者: rogertian 时间: 2004-1-4 18:43
好啊，我一直想看一看这样的程序怎样做的，这种东西用在人事管理上是很有用的。我做过一个打印厂证的程序，就是因为不知道这里怎么用，一直搞不定。用OLE数据库实在是太大了。

作者: cg1 时间: 2004-1-4 18:59
请查看一下 office xp 中的罗斯文示例数据库 (northwind.mdb)，里面的雇员窗体有官方详细的示例以及代码。

唯一的缺憾是无法在 access2000 下调用 Application.FileDialog 来打开通用对话框，这点你完全可以用 API 函数解决

[attach]2997[/attach]

[此贴子已经被作者于2004-1-4 11:01:03编辑过]

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