ACCESS与PB程序共用SQL库出现问题了

jiayinlb

代码:
    Dim JLH As String
    JLH = Format(CLng(DMax("XH", "futian_user_JLB") + 1))
    CurrentDb.Execute "INSERT INTO futian_user_JLB( XH, BH, FZBH, SSDJ ) SELECT '" & JLH & "',BH,FZBH,'" & Me.SJDJ & "' FROM futian_user_HD WHERE futian_user_HD.BH='" & Me.XMBH & "';"
说明:生成futian_user_JLB中的新记录,futian_user_HD 为另一基本表,Me.XMBH ，Me.SJDJ 为窗体中文本框
问题:这段代码应用于一个ACCESS二次开发中,与一个PB程序共同调用SQL库,使用过程中有时会出现生成JLH重复不能新增记录,有时在ACCESS这边,有时在PB程序那边.关掉程序后再进入又可以了.也没什么规律性.
小弟猜想是不是两种程序同时间点调用表时,同时向里面写入同一号导致的,但又怎么解决呢?PB那边是没法改的.

Grant

很有可能是PB打开某个表的时候锁定了该表.

jiayinlb

PB程序锁定某个表，ACCESS调用时出问题，有可能，
但是现在的情况是PB程序也会出现不能新增记录的情况，好像说不过去了

jiayinlb

避免沉了，自己顶下