Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

如何用if语言判断查询的数据?

良斌  发表于:2010-07-07 09:11:04  
复制

请教,如何用if语言判断查询的数据?

 

Top
煮江品茶 发表于:2010-07-07 09:37:29

请教,“请教,如何用if语言判断查询的数据?”何意?

过程中if还是结果上if,字段值if还是筛选数据的条件if?

还盼告之,谢谢。



萧云 发表于:2010-07-07 10:47:53

注意:概念有误,IF 是语句不是语言,它是条件判断语句,可以控制程序的流向。

 

另外建议你在提问时将问题表达清楚,尽量将主谓宾书定完整,方便你快速得到帮助。



良斌 发表于:2010-07-07 12:37:45

不好意思,初涉浅知。

  我希望了解的是:用选择查询,从一表中找出一档或几档符合条件的项。继而想用IF判断语句分辨该查询出的结果里的数据的大小。

   不知是否表达清楚?



凡卓 发表于:2010-07-07 13:55:16

下面代码是我实际中的一个运用,供你参考:

目的是用于判断:当表[DN Summary]中[Total Plts]字段的值为0时,将Printed的字段值设为True。

 

Sub Count0PltasPrinted()
Dim Rst As Recordset
Dim DNcc As String, LastDN As String
Dim Plts As Currency

    Set Rst = CurrentDb.OpenRecordset("DN Summary")
    Rst.MoveFirst
    LastDN = Rst!DN
    
    Do Until Rst.EOF
        If Int(Rst![Total Plts]) = Rst![Total Plts] And Rst![Total Plts] = 0 Then
           Rst.Edit
           Rst!Printed = True
           Rst.Update
        End If
        Rst.MoveNext
    Loop
    Rst.Close
End Sub

 

 



煮江品茶 发表于:2010-07-07 14:23:13
举例说明,或者上传实例。

良斌 发表于:2010-07-07 19:42:16

凡桌好,没有完全看懂示例,请教:Dim DNcc As String, LastDN As String中的DNcc与LastDN和表的名称[DN Summary]中的DN是否有关联?如果没有关联是否可以用其他任何字母代替?

 

 


 



良斌 发表于:2010-07-08 08:25:36

望各位楼主帮忙。



良斌 发表于:2010-07-08 08:27:34
望各位楼主帮忙!

良斌 发表于:2010-07-08 08:34:37
良斌 发表于:2010-07-11 09:31:17

 我用一下代码解决的问题,供有兴趣者参考。 

 

 

    Dim cnxn As New ADODB.Connection 

    Dim rs As New ADODB.Recordset 

    Dim strSQL As String .
   Set cnxn = CurrentProject.Connection 
   strSQL = "SELECT * FROM 菜品更新表 WHERE 编号 = 1001;" 
   rs.Open strSQL, cnxn, adOpenKeyset, adLockOptimistic 

   If rs!数量 = 0 Then
    MsgBox "抱歉,该菜品已售罄", 64
    Else
      End If
     rs.Close
     Set rs = Nothing
     Set cnxn = Nothing

 



煮江品茶 发表于:2010-07-11 09:59:30

如果记录集就一条记录,大可不必如此复杂。写一条语句即可:

if dlookup("数量","菜品更新表","编号=1001")=0 then msgbox "鬼打架的,卖光了!"



良斌 发表于:2010-07-11 12:36:38
谢谢!又学一招,获益匪浅。

总记录:12篇  页次:1/1 9 1 :