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

yaoiii

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

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

yaoiii

感谢各位斑竹和高手对我的帮助,最后查到的原因竟和最初的查错方向差了那么多,好失败.我现在直接用系统的各种按钮,但还是对这个单击事件的代码耿耿于怀,终于知道了只知其一的后果了,还得潜水学习!

Grant

最好能将其精简上传,便于查找问题.

yaoiii

找到出错原因,粘贴按钮的代码不对,当粘贴多条记录时就会出错,代码如下,(还是不会改!)

Private Sub Command1_Click()  '粘贴
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70
End Sub

andymark

以下是引用yaoiii在2007-5-28 10:17:00的发言：



是本机上调试正常,其他客户机正常,偏偏充当服务器的不正常.郁闷[em06]

      建议先关闭服务器的杀毒软件

      检查服务器的机器的连接,重新手动连接测试一下

Grant

说明问题不是在与Access你应该在杀毒软件等下手去查.

yaoiii

以下是引用Grant在2007-5-28 1:13:00的发言：
既然在本机正常,我想你应该查找下网络的原因.

是本机上调试正常,其他客户机正常,偏偏充当服务器的不正常.郁闷[em06]

Grant

既然在本机正常,我想你应该查找下网络的原因.

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编辑过]

yaoiii

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