Office中国论坛/Access中国论坛

标题: [求助] [打印本页]

作者: empire 时间: 2004-3-21 18:57
标题: [求助]
我有一段代码从罗斯文示例库中复制出来的，功能是：选择一个文件名．如果用户选择了一个文件，则将它显示到图片控件中。代码为：

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”变量未定义。不知是何问题，请各位高手指教。
代码可在罗斯文示例数据库的雇员窗体的代码中找到。

[此贴子已经被作者于2004-3-21 10:57:49编辑过]

作者: yangzn 时间: 2004-3-21 20:03
你应该在罗斯文代码中查找msoFileDialogFilePicker这个变量类型申明的模块，然后把那个模块也导入你的数据库中就可以了。

作者: yrg13 时间: 2004-3-21 20:33
你没有对 microsoft office....（因在网吧后面什么忘了）的引用，你可与罗斯文示例中的引用对照一下。

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