完美解决零件库存月结修改窗体中防止重复的问题-fxs专栏

众所周知，在开发中设计库存月结窗体时，因为同一时间的库存内容照理是不能够重复的，但变速箱教程中为了降低难度适应初学者，没有涉及限制重复的内容，但是，追求完美的我们怎么会容忍这种缺憾存在呢？

这种要求在“新增”窗体中并不难实现，但是，在“修改”窗体中实现就不那么容易了，因为修改窗体一打开就和原表中的数据重复，如果此时保存，肯定是重复的，所以实现起来有点困难。

迎难而上是我的特点，立马动手，说干就干，虽然有诸多难题，但是，经过网上的UMVsoft1老师（不知道名称对不对）的手把手指导（远程），终于完美解决了修改窗体的防止重复代码，成果不敢独享，特发上来大家给学习、修改、评论。

思路：

1、修改窗体采用非绑定表的方法；

2、建立临时表，通过查询把同一库存月份的数据追加到临时表中；

3、利用dcount函数判断重复，弹出提示框。

代码如下（零件库存月结）：

Private Sub cmd_save()
    Dim rst As DAO.Recordset
    Dim strsql As String
    If IsNull(Me.ljid) Then
        MsgBox "请输入零件名称！", vbCritical, "提示："
        Me.ljid.SetFocus
        Exit Sub
    End If
    If IsNull(Me.kcl) Then
        MsgBox "请输入库存量!", vbCritical, "提示："
        Me.kcl.SetFocus
        Exit Sub
    End If

    Me.Refresh
    DoCmd.SetWarnings False
    DoCmd.RunSQL "Insert INTO tblljkcyj_temp ( ID, ljid, kcl, kcyf ) Select tblLjkcyj.ID, tblLjkcyj.ljid, tblLjkcyj.kcl, tblLjkcyj.kcyf FROM tblLjkcyj Where (tblLjkcyj.kcyf)=#" & Me.kcyf & "#;"

   Docmd.setwarnings true
    If DCount("ljid", "tblljkcyj_temp", "ljid='" & Me.ljid & "'") > 0 Then
        If DCount("kcl", "tblljkcyj_temp", "kcl=" & Me.kcl & "") > 0 Then

            MsgBox "同一库存月份的零件名称重复或您未做任何修改！", vbCritical, "警告！"
            Me.ljid.SetFocus
            Exit Sub
        End If
    End If
    strsql = "select* from tblljkcyj where id=" & numselectID & ""
    Set rst = CurrentDb.OpenRecordset(strsql, dbOpenDynaset)
    If MsgBox("您确认要保存吗？", vbYesNo + vbInformation, "提示”") = vbYes Then
        rst.Edit
        rst!ljid = Me.ljid
        rst!kcl = Me.kcl
        rst!kcyf = Me.kcyf
        rst.Update
        rst.Close
        Set rst = Nothing
    End If
    DoCmd.Echo False
    Forms!usysfrmmain!frmChild.SourceObject = "frmljkcyj_child"
    DoCmd.Echo True
    DoCmd.Close acForm, "frmljkcyj_child_edit"
End Sub

需要说明的几点：

1、每次打开和关闭修改窗体时，临时表要清空；

2、如果没有做任何修改就保存，会提示，但是如果修改零件或者库存量就不会提示了；

3、代码肯定不尽完美，请高手批评指正。