系统时间问题

lyp6160

一文本框的格式设定为“中日期”，当输入数据后可正确显示日期，如2004/02/26，但用VBA代码查找数据表的同样设置和同样显示的日期却找不到，如：
If Not IsNull(DLookup("[时间]", "数据表", "[时间] = # " & 文本框名 & "#")) Then
无法找到该日期的数据，后来发现是VBA调用的文件框的日期是系统设定的格式，例如系统设定为短日期格式就不能相等了，即：2004/02/26 <> 04/2/26.把系统的时间格式改为中日期就可以找到了。
1、请问用什么代码将系统设定的日期改为中日期呢，我不想在每台机上用手工设定格式。
2、有什么方法可以在不改变系统日期格式情况下使上面的语句相等并找到数据？

zhengjialon

可以用FORMAT函数格式化

lyp6160

谢谢版主
If Not IsNull(DLookup("[时间]", "数据表", "[时间] = # " & 文本框名 & "#")) Then
这段代码如何写，是不是如下句式：
If Not IsNull(DLookup("[时间]", "数据表", "[时间] = # " & Format(文本框名,"yyyy,mm,dd") & "#")) Then
我试过不行啊。

LYP6160

可以了，正确的方法如下：
http://www.accfans.net/BBS/announce/announce.asp?BoardID=101&ID=1792&Upflag=1&Num=1