Office中国论坛/Access中国论坛

标题: access共享出的错误 [打印本页]

作者: wati 时间: 2002-7-8 19:24
标题: access共享出的错误
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]

作者: HG 时间: 2002-7-8 19:28
請問您是讓用戶共享同一窗體，還是沒個有都有一個前端分發。
如果是共享同一窗體，則就公出現您所說的哪種情況，(可以用記錄鎖來解決)。

作者: wati 时间: 2002-7-9 03:38
每个用户有自己的前端，后端数据库共享。比如一个证交钱数量为两个，往往打过一个后，即执行sql语句，设：是否办卡 = -1。请问版主这种现象是否可通过悲观锁定解决？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)