Office中国论坛/Access中国论坛
标题:
[求助]如何定义msoFileDialogFilePicker
[打印本页]
作者:
zhqmpc001
时间:
2007-3-25 05:17
标题:
[求助]如何定义msoFileDialogFilePicker
如何定义msoFileDialogFilePicker
编译错误,变量未定义,明显显示加粗的那句代码,我该怎么改,我试过删除Option Explicit
还是出现同样错误
Option Compare Database
Option Explicit
Dim path As String
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 = 1
.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.下单日期.SetFocus
Me![照片路径].Visible = False
错误信息.Visible = False
End If
End With
End Sub
作者:
nxjswt
时间:
2007-3-25 07:10
你的vba没有引用msoffice 11.0 OBJ
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3