设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

[窗体] 文件名判别

[复制链接]
跳转到指定楼层
1#
发表于 2009-2-16 18:57:35 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在例子中的导入窗体中,当在选择好要导入的文件(XSL格式)后,TEXT0文本框会显示所选择的文件名,我想此文件名中如果不包括有“游客表”这三个关键字时,在“导入一”按钮的单击事件中给予提示,并不导入数据。我想用LIKE写表达式,但达不到目的,请大家帮忙修改。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2009-2-16 19:06:49 | 只看该作者
不好意思,1楼说错了,我的意思是说,当此文件名中如果不包括有“参观表”这三个关键字时,在“导入一”按钮的单击事件中给予提示,并不导入数据。我想用LIKE写表达式,但达不到目的,请大家帮忙修改。
3#
发表于 2009-2-16 19:10:09 | 只看该作者
用insrt()函数
4#
发表于 2009-2-16 19:31:48 | 只看该作者
If Not Me.Text0 Like "*参观表*" Then
        MsgBox "请选好表"
    Else
        MsgBox "OK"
    End If
5#
 楼主| 发表于 2009-2-17 08:46:03 | 只看该作者
十分感谢两位指教!
6#
 楼主| 发表于 2009-2-17 18:06:38 | 只看该作者
6D大哥,还要再向你请教:
我想当文件名中如果不包括有“参观表”这三个关键字,或者说不包括有“游客表”这三个关键字时给予提示,于是,我将代码改成如下,但运行不正确,如何修改?请指教!
If Not Me.Text0 Like "*参观表*" or Not Me.Text0 Like "*游客表*" Then
        MsgBox "请选好表"
    Else
        MsgBox "OK"
    End If
7#
发表于 2009-2-17 20:21:37 | 只看该作者
If Me.Text0 Like "*游客表*" Then
        MsgBox "OK"
    ElseIf Me.Text0 Like "*参观表*" Then
        MsgBox "OK"
    Else
        MsgBox "请选好表"
    End If
8#
发表于 2009-2-17 20:23:22 | 只看该作者
或者
If Me.Text0 Like "*游客表*" Or Me.Text0 Like "*参观表*" Then
        MsgBox "OK"
    Else
        MsgBox "请选好表"
    End If
9#
发表于 2009-2-17 21:01:57 | 只看该作者
If Not (Me.Text0 Like "*参观表*" or Me.Text0 Like "*游客表*") Then
        MsgBox "请选好表"
Else
        MsgBox "OK"
End If


If Not Me.Text0 Like "*参观表*" and not Me.Text0 Like "*游客表*") Then
        MsgBox "请选好表"
Else
        MsgBox "OK"
End If


请参考布尔运算和化简公式。


以下摘自 Microsoft Access 2003 Help

/********** OFFICE-CN *************** OFFICE-CN ******************* OFFICE-CN ***************************/


******************
*  一切皆有可能  *
******************

.

.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .
10#
 楼主| 发表于 2009-2-18 08:29:24 | 只看该作者
6D版主及CHM两位高明!十分多谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-16 16:53 , Processed in 0.103422 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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