Office中国论坛/Access中国论坛

标题: 毕业作品就快交,有要事相求,一个添加图片的按钮事件的实现 [打印本页]

作者: sdbigstar 时间: 2005-4-26 21:53
标题: 毕业作品就快交,有要事相求,一个添加图片的按钮事件的实现
各位大哥,我在做一个成绩登记的系统作为毕业作品,而且很快就要交啊.遇到一个问题

在一个学生基本情况的窗体上,如果我要添加某个同学的信息,其中要加入该同学的照片

我按照罗斯文的例子加上语句:

Sub getFileName()
' 显示一个 Office 打开文件对话框，为当前的雇员记录
' 选择一个文件名．如果用户选择了一个文件，
' 则将它显示到图片控件中
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "选择雇员照片"
.Filters.Add "所有文件", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "位图文件", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![照片路径].Visible = True
Me![照片路径].SetFocus
Me![照片路径].Text = fileName
Me![姓氏].SetFocus
Me![照片路径].Visible = False
错误信息.Visible = False
End If
End With
End Sub

但是编译的时候说msoFileDialogFilePicker是未定义函数啊.请问我应该怎样解决啊

是否要加模块之类的,万分感谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

作者: 方漠 时间: 2005-4-28 19:48
照NorthWind VBA里的“引用”引用类库。

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