设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

[Access本身] 请教如何判断表中数量字段(只有一条记录)是否为零

[复制链接]
跳转到指定楼层
1#
发表于 2009-4-22 18:21:09 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
用宏执行一个查询,执行之前要判断表1中数量字段(只有一条记录)是否为零,若为零则执行,不为零则不执行,请教
如何设计。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2009-4-22 18:22:53 | 只看该作者
更正一下,是字段值
3#
发表于 2009-4-22 19:08:21 | 只看该作者
If DLookup("数量","表") =0 then
4#
 楼主| 发表于 2009-4-22 19:55:53 | 只看该作者
真是太感谢这位朋友了!
5#
 楼主| 发表于 2009-4-22 20:58:53 | 只看该作者
真不好意思,搞了半天也没弄来,想麻烦Koutx朋友在附件中做一下可否,谢谢!

本帖子中包含更多资源

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

x
6#
 楼主| 发表于 2009-4-22 22:16:20 | 只看该作者
不会代码真急人,哪位朋友帮帮我啊!
7#
发表于 2009-4-22 23:10:02 | 只看该作者
查询更正如下:
  1. INSERT INTO 表3 ( 名称, 数量, 单价 )
  2. SELECT 表2.名称, 表2.数量, 表2.单价
  3. FROM 表2;
复制代码

  1. Private Sub Command0_Click()
  2.     On Error GoTo Err_Command0_Click
  3.     Dim a
  4.     a = DLookup("数量", "表1")
  5.     If a <> 0 Then
  6.         Exit Sub
  7.     Else
  8.         DoCmd.RunMacro "宏1"
  9.         MsgBox "ok"
  10.     End If
  11. Exit_Command0_Click:
  12.     Exit Sub

  13. Err_Command0_Click:
  14.     MsgBox Err.Description
  15.     Resume Exit_Command0_Click

  16. End Sub
复制代码

本帖子中包含更多资源

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

x
8#
发表于 2009-4-23 11:04:08 | 只看该作者
等待学习中
9#
 楼主| 发表于 2009-4-23 21:26:31 | 只看该作者
再次感谢Henry D. Sy版主,下乡刚回来看到了满意的帮助,解决了我在设计中的弯路,太好了.
10#
 楼主| 发表于 2009-4-28 10:52:38 | 只看该作者
再次请教Henry D. Sy版主,这样的判断可以在宏条件中设置吗,因为用宏比较简单一些,谢谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-5-26 21:09 , Processed in 0.114648 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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