[分享]看呀，李寻欢做的酷程序！

sam_yuan

感谢李版主的帮忙，我原来用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

这个程序是不是只能用在OFFICE XP下面，以前我试过好象2000下面不能做。

sam_yuan

我就是在2000下做的.现在我还有一个登陆窗口的问题没解决好,等完成后我将把程序上传.

rogertian

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

cg1

请查看一下 office xp 中的 罗斯文 示例数据库 (northwind.mdb)，里面的雇员窗体有官方详细的示例以及代码。

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

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