Office中国论坛/Access中国论坛

标题: 求助！】（msoFileDialogFilePicker）变量问题 [打印本页]

作者: weaky_shao 时间: 2009-7-16 11:30
标题: 求助！】（msoFileDialogFilePicker）变量问题
我使用的是2003版本，想在资料路入窗体加个图片显示的控件，参照了罗斯文雇员信息，可是自己做的时候就出现未变量定义；Microsoft Office 11.0 Objects Library打勾了请各位知道的帮我看看问题在哪啊。

作者: Henry D. Sy 时间: 2009-7-16 11:48
Sub getFileName()
' 显示一个 Office 打开文件对话框，为当前的雇员记录
' 选择一个文件名．如果用户选择了一个文件，
' 则将它显示到图片控件中
Dim fileName As String
Dim result As Integer
Dim Fds As FileDialog
Set Fds = Application.FileDialog(msoFileDialogFilePicker)
With Fds
      .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

作者: Ombre 时间: 2009-7-16 11:56
Set Fds = Application.FileDialog(msoFileDialogFilePicker)中msoFileDialogFilePicker改成常量数字
msoFileDialogOpen = 1
msoFileDialogSaveAs = 2
msoFileDialogFilePicker = 3
msoFileDialogFolderPicker = 4

作者: weaky_shao 时间: 2009-7-16 12:28
谢谢版主
刚刚将上面红色字部分改入出现新情况了用户定义类型未定义

作者: Ombre 时间: 2009-7-16 12:57
什么意思?

作者: weaky_shao 时间: 2009-7-16 18:45
就是2楼的版主回复的帖子上面有红色的字我按照这个改的但是出现了用户定义类型未定义的情况不知道怎么办？请高手帮忙改下谢谢

作者: Ombre 时间: 2009-7-16 19:08
我在3楼不是回复你了么?

作者: Henry D. Sy 时间: 2009-7-16 19:14
需要引用office11

作者: weaky_shao 时间: 2009-7-17 09:03
我引用了啊还是不行

作者: weaky_shao 时间: 2009-7-17 09:19
版主定义用户类型未定义
谢谢啊

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