设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 3358|回复: 1
打印 上一主题 下一主题

[宏/菜单/工具栏] 为何提示变量未定义?请各路高手指点!

[复制链接]
跳转到指定楼层
1#
发表于 2003-11-5 18:50:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
为何提示变量未定义?请各路高手指点!

我把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
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2003-11-6 17:04:00 | 只看该作者
谢谢大家了!
我知道是为什么了,只要在VB编辑器中点“工具”,“引用”,点选“VISUAL FOR APP....,microsoft acess 11.0object....,microsoft Dao3.6,ole.auto.....,microsoft.office 10.0obje...四项即可。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-5 02:36 , Processed in 0.091429 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表