Office中国论坛/Access中国论坛

标题: 为何提示变量未定义？请各路高手指点！ [打印本页]

作者: hgh8341 时间: 2003-11-5 18:50
标题: 为何提示变量未定义？请各路高手指点！
为何提示变量未定义？请各路高手指点！

我把office xp中的罗斯文数据库的“雇员”表和“雇员”窗全复制到我的一个数据库中，运行时为何总是提示“变量未定义”，因为我查了一下FileDialog的属性，他是用来打开一个窗口的，msoFileDialogFilePicker 参数用来打开“文件选取器”对话框，msoFileDialogFolderPicker 参数用来打开“文件夹选取器”对话框，msoFileDialogOpen参数用来打开 “打开”对话，msoFileDialogSaveAs参数用来打开 “另存为”对话框，这几个参数都是常数，为什么提示是变量？
源码如下：
Sub getFileName()
' 显示一个 Office 打开文件对话框，为当前的雇员记录
' 选择一个文件名．如果用户选择了一个文件，
' 则将它显示到图片控件中
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
'msoFileDialogFilePicker “文件选取器”对话框
'msoFileDialogFolderPicker “文件夹选取器”对话框
'msoFileDialogOpen “打开”对话框
'msoFileDialogSaveAs “另存为”对话框
      .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
[attach]2337[/attach]

作者: hgh8341 时间: 2003-11-6 17:04
谢谢大家了！
我知道是为什么了，只要在VB编辑器中点“工具”，“引用”，点选“VISUAL FOR APP....,microsoft acess 11.0object....,microsoft Dao3.6,ole.auto.....,microsoft.office 10.0obje...四项即可。

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