完美解决零件库存月结修改窗体中防止重复的问题
时 间:2012-06-08 07:15:20
作 者:fxs ID:3445 城市:锡林浩特
摘 要:众所周知,在开发中设计库存月结窗体时,因为同一时间的库存内容照理是不能够重复的,但变速箱教程中为了降低难度适应初学者,没有涉及限制重复的内容,但是,追求完美的我们怎么会容忍这种缺憾存在呢?
正 文:
众所周知,在开发中设计库存月结窗体时,因为同一时间的库存内容照理是不能够重复的,但变速箱教程中为了降低难度适应初学者,没有涉及限制重复的内容,但是,追求完美的我们怎么会容忍这种缺憾存在呢?
这种要求在“新增”窗体中并不难实现,但是,在“修改”窗体中实现就不那么容易了,因为修改窗体一打开就和原表中的数据重复,如果此时保存,肯定是重复的,所以实现起来有点困难。
迎难而上是我的特点,立马动手,说干就干,虽然有诸多难题,但是,经过网上的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、代码肯定不尽完美,请高手批评指正。
Access快速开发平台QQ群 (群号:321554481) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)