[求助]链接表的问题，怪,有时数据无法存入到后台去

yaoiii

链接表的问题，，怪，，急.....
有一个较奇怪的问题困扰了我几天了，有一个局域网共享方式的数据库(已拆分,有安全控制),前站使用Access2000数据库，内部所有表都是使用的链接表方式链到其它数据库中的数据表，本机测试调试正常，但安装到其它机后有时数据无法存入到后台去,也不见任何提示,正常退出后,再登陆时总发现最后录入的好多数据都没有了,自己怀疑是某个原因导致前台的数据并不往后台连接表里存,可是为什么没有提示呢?我怎么来发现这个错误原因呢?

[此贴子已经被作者于2007-5-26 0:51:17编辑过]

yaoiii

自己顶,但愿一点通大师能看见

一点通

我没有发现过这个问题,或许是你的代码有问题,上传上来分析一下

yaoiii

代码确实因为很多原因无法上传(关键是我一直没有发现问题所在,无法简化,超大),请教高手们有没有什么办法可以对数据是否确实存入到后台返回个提示?

[此贴子已经被作者于2007-5-26 20:01:44编辑过]

andymark

其他客户机,有时可以有时不行??

yaoiii

以下是引用andymark在2007-5-26 21:05:00的发言：


其他客户机,有时可以有时不行??

放后台共享文件的的机器不行,组网方式:对等网络,文件夹共享后客户机直接读写他,但是放后台共享文件的的机器的读写方式也是和其他的一样的

一点通

有什么见不了光的,我又不是叫你将表中的数据传上来,只是叫你将相关的代码上传,怕别人偷你的师?

yaoiii

再顶最后一次,寻象一点通那样的高手代码确实没法上传,要不发你邮箱好吗?

[此贴子已经被作者于2007-5-28 0:00:58编辑过]

yaoiii

大师您言重了,我也是在学啊,看了您的很多指导,对您非常崇拜,还竹笛等斑竹都是我没见面的老师!

yaoiii

这是前台的相关表里唯一的代码:
Option Compare Database
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim slr As String
    slr = CurrentUser()
    If slr = "" Then
    slr = "非法登陆者"
    End If
最后更新时间 = Now()
受理人 = slr
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim slr As String
    slr = CurrentUser()
    If slr = "" Then
    slr = "非法登陆者"
    End If
最后更新时间 = Now()
受理人 = slr
End Sub
在后台找到名为"MSysCompactError"的一个表,内容如下:
MSysCompactError ErrorCode ErrorDescription ErrorRecid ErrorTable
-1206 没有找到字段 'Description'。  总配信息
-1206 没有找到字段 'Description'。 总配信息
-1206 没有找到字段 'Description'。  总配信息
-1206 没有找到字段 'Description'。  总配信息
-1206 没有找到字段 'Description'。  总配信息
-1206 没有找到字段 'Description'。  总配信息
-1206 没有找到字段 'Description'。  总配信息
-1605 没有找到字段 'Description'。 总配信息
-1605 没有找到字段 'Description'。  总配信息
-1522 主表的引用字段中，找不到唯一的索引。  设备详细信息


请老师们看看.

[此贴子已经被作者于2007-5-28 3:28:17编辑过]