|
access分为前后端,后端放在win2000服务器上,前端几个工作站同时使用。根据交钱数打证。往往钱数还没有打完,是否打证已打上钩了。这种现象是否因为几个人同时打同一个证造成的?
Private Sub 下项纪录_Click()
On Error GoTo Err_下项纪录_Click
Dim 已打数量, 交费数量 As Integer
已打数量 = DCount("财据ID", "bz证", "财据ID = FORMs!bz证窗体!财据ID")
交费数量 = Nz(DLookup("数量", "sf办卡费用查询", "[财据ID] = FORMs!bz证窗体!财据ID"))
If 已打数量 + 1 >= 交费数量 Then
DoCmd.RunSQL "update sf办卡费用查询 set sf办卡费用查询.是否办卡 = -1 where sf办卡费用查询.财据ID = FORMs!bz证窗体!财据ID"
End If
DoCmd.GoToRecord , , acNewRec
财据ID.SetFocus
Exit_下项纪录_Click:
Exit Sub
Err_下项纪录_Click:
MsgBox Err.Description
Resume Exit_下项纪录_Click
End Sub
[em06] |
|