新手求助~遇到了几个问题

gdwt · 发表于 2006-9-28 11:55

TLPlok3X.rar (28.05 KB, 下载次数: 8)

第1次使用ACCESS，想统计车间的一些生产信息（练习中只用了很少的信息）

目的：两个功能：1 能录入每天的生产信息

2 设计一个查找界面根据不同的条件查找结果（只从一张表中数据查找）

遇到的问题：1 录入功能能录入信息，但录了第1条后不能录第二条，而是将刚录得信息覆盖掉了

2 查找功能不知如何实现，没用过这个功能，用SQL语法写的语句运行出错

麻烦各位大虾帮忙修改下或提供些好的方法与建议，功能很简单，会得话应该几分钟就搞定了！~！

小弟先谢了~~

ycyhjj2865 · 发表于 2006-9-30 15:44

查询部份：

请使用窗体的RecordSource属性！

stemp = "SELECT * FROM 生产日报表 WHERE (((生产日报表.日期) " _
    & "Between #" & Me.date_from & "# And #" & Me.date_to & "# ) AND " _
    & "((生产日报表.编码)= '" & Me.segment1 & "')) " _
    & "ORDER BY 生产日报表.日期 DESC , 生产日报表.编码 DESC;"

Me.查询日报表_子窗体.Form.RecordSource = stemp
Me.查询日报表_子窗体.Requery

新增部份：

rs.AddNew '你没有使用这个语句造成无法成功的加入新记录

————————————————————————————

修改后的例子如下：

G5sEYUlS.rar (33.84 KB, 下载次数: 12)

注意：这个例子中没有加入必要的业务逻辑错误代码，请自己进行设计；就是在新增记录时，是不允许控件内为空值或空字符串；查询时也是同样，必须将各控件中填入要查询的字符等等。。。。。。。

来点暴风雨 · 发表于 2006-9-30 19:02

学习了，如果在录入点确定后想把文本框里面的数据清空以便重新输入该怎样写代码呢？

gdwt · 发表于 2006-10-5 17:28

回楼上的：可以加入以下语句

Me.日期 = Null

Me.编码 = Null

Me.XX =Null。。。。。

gdwt · 发表于 2006-10-5 17:33

QUOTE:

以下是引用ycyhjj2865在2006-9-30 15:44:44的发言：

查询部份：

新增部份：

rs.AddNew '你没有使用这个语句造成无法成功的加入新记录

非常感谢。终于搞定了

不过我的查询部分没有写语句，只是在查询的条件中设置了一下

Like IIf(IsNull([Forms]![查询]![segment1]),'*',[Forms]![查询]![segment1]) --编码

Between (IIf(IsNull([Forms]![查询]![date_from]),#2006-9-1#,[Forms]![查询]![date_from])) And (IIf(IsNull([Forms]![查询]![date_from]),#2099-9-1#,[Forms]![查询]![date_to])) --日期

感觉这样更好，不用写VB语句，通过条件生成器自动生成，一般不会出错。

		自动登录	找回密码
密码			免费注册