|
为何提示变量未定义?请各路高手指点!
我把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
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|