判断保存

宋雄健　发表于：2011-09-18 21:02:16 　

各位老师:请问附件中的保存代码要怎样写?(在保存数据时,要提示记录不存在就保存,存在就退出)

mmtea 发表于：2011-09-19 01:37:38

你代码中多打了几个'，去掉就可以了

      '如果“供应商资料”为空，则退出
' If rs.RecordCount <= 0 Then
'       Exit Sub
'   End If
' rs.MoveFirst
' For i = 0 To rs.RecordCount - 1

煮茶论道发表于：2011-09-19 06:39:30

哈哈，加了'，就是对这段代码的注释了。代码执行过程中是不会去执行的。

宋雄健发表于：2011-09-19 07:56:40

二位老师:您好!我试了还是不行,能否帮忙改一下,谢谢!

符鸿敏发表于：2011-09-19 10:53:38

看是这样吗？

宋雄健发表于：2011-09-19 13:20:46

4楼老师:您好!您的方法是可以,要是两个字段一起判定代码该怎样写啊,还有我的附件代码错在哪呀,谢谢指教.

细水长流发表于：2011-09-19 19:01:30

在同一数据库中，存在字段内容完全一样的两个表似乎就有问题，为了让其中一表不是多余，本人（刚入门的菜鸟）对程序作了一定修改，你看是否能达到你的要求。

宋雄健发表于：2011-09-20 13:33:13

谢谢

符鸿敏发表于：2011-09-20 20:48:43

5楼所问第一个问题：

假如判断一个字段的代码是： If IsNull(DLookup("供应商名称", "供应商资料", "供应商名称 = " & "'" & [供应商名称] & "'")) Then

那么判断二个字段的代码就是： If IsNull(DLookup("供应商名称", "供应商资料", "供应商名称 = " & "'" & [供应商名称] & "'and 供应商编号 = " & "'" & [供应商编号] & "'")) Then

第二个问题：在代码页面认真对比便知道了。

总记录：8篇页次：1/1 9 1 :

Access交流中心