不能重复保存的问题！！！！！！！！！

liuyuyu880210

请各路朋友给看看这个重复保存的问题怎么解决啊 ：附件有详细

zez

另外,建议ACCESS数据库的设计也更改一下,见附件

zez

Sub 保存单据()

    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim mypath As String
    mypath = ThisWorkbook.Path & "\数据库.mdb"
    Dim sq1 As String
   
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mypath
   
    sq1 = "select * from 数据库 where 编号='" & Range("J2") & "'"
    rst.Open sq1, cnn, adOpenKeyset, adLockOptimistic
    If rst.RecordCount > 0 Then
        MsgBox "已经保存过了"
        GoTo HHH
    End If
    rst.Close
   
   
    sq1 = "select * from 数据库"
    rst.Open sq1, cnn, adOpenKeyset, adLockOptimistic
   
     
    For i = 7 To 12
   
    If Range("f" & i) <> 0 Then
   
    rst.AddNew
    rst.Fields("编号") = Range("J2")
    rst.Fields("年") = Range("D3")
    rst.Fields("月") = Range("F3")
    rst.Fields("日") = Range("G3")
   
   
    rst.Fields("说明") = Range("b" & i)
    rst.Fields("产品名称") = Range("D" & i)
    rst.Fields("规格") = Range("F" & i)
    rst.Fields("型号") = Range("G" & i)
     rst.Fields("数量") = Range("I" & i)
    rst.Fields("金额") = Range("J" & i)
   
   
    rst.Update
   
    End If
   
    Next i
   
    MsgBox "保存成功"
       Range("B7:J12").ClearContents
        Range("J2") = Range("J2") + 1

HHH:
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing   

End Sub
其中:练字部分是建议加上的,如果楼主认为不需要或者加上后操作不方便,可以删除
黄字部分也是建议加上的,主要是更加规范

liuyuyu880210

非常感谢ZEZ的帮忙。你做得代码很管用，顶！！！，但是有个问题，您建议加上的红色代码嫩黄色代码，我看着好像是关于我附件中第二个问题，但是不管用，呵呵，

liuyuyu880210

我又测试了一下，第二个问题管用，但是呢我这里有出现了2个小问题，请zez朋友再次给予帮助，不胜感激！！！

附件里详细说了问题

zez

我觉得你的表设计不是那么地科学,而且不清楚你的意图,所以很难办.就一个简单的最大编号问题.就已经不好办了.因为你的编号是设计成文本类型.,比较大小就不好比较,比如:从EXCEL的要求(也是常识)看,11>9,但计算机作为文本来比较,是"9">"11"这样当你的编号>=9时,新缟的号码永远只会10;
另外年月日分三个字段来做,更换月份时到下一年也不不能从1号开始编号
所以本来很简单的两个问题,由于表的设计不合理变得很复杂了
还有,我看了你改的代码,估计运行后如果有重号的时候,尽管会提示"已经保存过了",但仍然会再保存一次.

[ 本帖最后由 zez 于 2010-8-13 16:49 编辑 ]

liuyuyu880210

还是感谢您的关注，你可能觉得我的表有很多行 列隐藏了有点不可思议，我的销售单据是打印在有固定格式的纸张上，很难调整的正好吧有关文字打印在固定格式上，因此我留了些列 行  做打印调整用得，你还可能觉得我的表没有单价，我们的产品是固定价格，没必要设单价列；
再就是你说得关于编号是文本类型我不太明白，是不是ACCESS这样的数据库就是文本格式呢？
年月日分3个段设，我是为了做单据是只改日期就可以，方便些。到下一年时就是从一号开始编号！
还有,我代码,仍然会再保存一次.
，朋友  您能根据您的想法给我设置吗  我的表怎么设置无所谓，日期怎么设置无所谓，只要是保存（同月内重复编号不能保存或者重复编号保存时后内容覆盖前内容）；增加单据时编号自动根据数据库同月内最大编号+1
另 我的编号是每月都从1号开始编号

zez

建议这样改

liuyuyu880210

谢谢  我试了试  应该是我要的  再次感谢    我在以后的学习中还有可能遇见其他问题，还能继续请教吗  希望得到您的指教！！！！！！

朔方

来学习了，正是咱想找的