资源描述：
《DLookup用法示例》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、综合:DLookup用法示例作者：zhengjia…文章来源：Access中国/Office中国点击数：3393更新时间：2004-2-12提示： 以下用法示例适合于大部分的合计函数（域函数如:DMax,DMin等）语法： DLookup(expr,domain,[criteria])参数解释： expr：要获取值的字段名称 domain：要获取值的表或查询名称 criteria：用于限制DLookup函数执行的数据范围。如果不给criteria提供值，Dlookup函数将返回域中的一
2、个随机值。正常用法 用于数值型条件值: DLookup("字段名称","表或查询名称","条件字段名=n") 用于字符串型条件值:(注意字符串的单引号不能丢失) DLookup("字段名称","表或查询名称","条件字段名='字符串值'") 用于日期型条件值:(注意日期的#号不能丢失) DLookup("字段名称","表或查询名称","条件字段名=#日期值#")DimstrAsStringDimrsAsNewADODB.Recordsetstr="select*fromqryf
3、uzhu_in_childwhere入库ID='"&Me.入ID&"'And库存数>0"Setrs=GetRs(str)Ifrs.EOFThengt_MessageBox"你无权使用此功能，请与系统管理员联系！",1ElseDimkcAsLongkc=DLookup("库存数","qryfuzhu_in_child",入库ID=Me.入ID)Me.入数=kcEndIf从窗体控件中引用条件值用法 用于数值型条件值: DLookup("字段名称","表或查询名称","条件字段名="&forms!窗体名!
4、控件名) 用于字符串型条件值:(注意字符串的单引号不能丢失) DLookup("字段名称","表或查询名称","条件字段名='"& forms!窗体名!控件名&"'") 用于日期型条件值:(注意日期的#号不能丢失) DLookup("字段名称","表或查询名称","条件字段名=#"& forms!窗体名!控件名&"#")混合使用方法(支持多条件) 在这种方法中也可以在条件中写入固定的值。 DLookup("字段名称","表或查询名称","条件字段名1="&Forms!
5、窗体名!控件名1 _ &"AND条件字段名2='"&Forms!窗体名!控件名2&"'"_ &"AND条件字段名3=#"&Forms!窗体名!控件名3&"#")注： Dlookup之类的合计函数(域函数)是ACCESS为用户提供的内置函数，通过这些函数可以方便的从一个表或查询中取得符合一定条件的值赋予变量或控件值，就不需要再用DAO或者ADO打开一个记录集，然后再去从中获取一个值，这样所写的代码要少的多。 但是如果需要更灵活的设计，比如所查询的域没有在一个
6、固定的表或查询里，而是一个动态的SQL语法，或是临时生成的复杂的SQL语句，亦或是需要代入循环的条件值等，此时还是需要从DAO或者ADO中定义记录集来获取值。因为Dlookup之类的合计函数必竟是一个预定义好格式的函数，所支持的语法有限，但对于大多数的要求是都能够满足的。ACCESS日期函数部分其它函数 1.将文本型2003.08.04转换为日期型2003-08-04(date(replace("2003.08.04",".","-"))2.根据出生日期算年龄=iif(month(date())-mo
7、nth([出生日期])>-1,year(date())-year([出生日期]),year(date())-year([出生日期])-1)3.取出货期前10天的日期值 dateadd("y",-10,[出货期])取出货期前一个月的日期值 dateadd("m",-1,date())4.显示四位年份 =datepart("yyyy",[日期])5.显示两日期之前相差的天数=datediff("d",[订货日],[发货日）6.取第一个字符=left([产品名称],1)7.取最后两个字符=righ
8、t([资产代码],2)8.去掉首尾空格 ＝trim([地址])9.计算每个月的天数day(dateadd("d",-1,format(date,"yyyy-mm-01")))当系统为每月第一天时弹出提示 private sub form_load()if day(date())=1 thenmsgbox "xxxxxxxxx"end if end sub如何使用刷新后不回到第一笔记录 1. 在 option compare date
