设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

[宏/菜单/工具栏] [已解决]条件表达式

[复制链接]
跳转到指定楼层
1#
发表于 2009-4-1 20:36:55 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 yexiangzi 于 2009-4-1 22:14 编辑

请问各位大大, 当table1存在,执行query1的宏的条件表达式该怎么写? query1 sql= drop table1
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2009-4-1 20:40:06 | 只看该作者
是不是当库中存在着table1表就删除掉他??
3#
 楼主| 发表于 2009-4-1 20:57:36 | 只看该作者
是呀, 就是这样
4#
发表于 2009-4-1 21:02:33 | 只看该作者
那就先判断后删除
5#
发表于 2009-4-1 21:07:20 | 只看该作者
Dim tbl As DAO.TableDef
    For Each tbl In CurrentDb.TableDefs
        If tbl.Name = "table1" Then
            CurrentDb.Execute "DROP TABLE table1"
            Exit For
        End If
    Next
6#
 楼主| 发表于 2009-4-1 21:08:02 | 只看该作者
...... 就是想问一下那个判断的表达式该怎么写? =.=
7#
发表于 2009-4-1 21:14:16 | 只看该作者
...... 就是想问一下那个判断的表达式该怎么写? =.=
yexiangzi 发表于 2009-4-1 21:08

本帖子中包含更多资源

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

x
8#
发表于 2009-4-1 21:19:00 | 只看该作者

ACCESS中无法通过jet-sql来实现这个判断。VBA中可以如下。

if not isnull(dlookup("id","msysobjects","name='table1'")) then
   currentproject.execute "drop talbe table1"


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

.
ACMAIN - Access论坛回贴准则(个人).
.

9#
 楼主| 发表于 2009-4-1 21:29:23 | 只看该作者
本帖最后由 yexiangzi 于 2009-4-1 22:12 编辑

谢谢各位大大的帮忙
10#
发表于 2009-4-3 11:04:37 | 只看该作者
学习下
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-14 16:13 , Processed in 0.104581 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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