＃测试版的通讯管理数据库＃

eio

问题可能出自【进度条】的窗体。该进度条是在本站抄的，只是Form_Timer设置过，以及某些参数调整一下，在me一下没有问题的。
Option Compare Database

Private Sub Form_Load()
   
   
    Dim CDB As Long
       Me.文本4.Width = 0
    CDB = Me.文本4.Width / Me.文本0.Width
    Me.文本12.Value = Format(CDB, "80%")
  
End Sub

Private Sub Form_Timer()
    Me.文本4.Width = Me.文本4.Width + 200
    CDB = Me.文本4.Width / Me.文本0.Width
    Me.文本12.Value = Format(CDB, "0%")
    If Me.文本12.Value = "50%" Then Me.文本12.ForeColor = RGB(192, 192, 192)
    If Me.文本4.Width + 67 > Me.文本0.Width Then
       Me.文本12.Value = Format(2, "0%")
        DoCmd.Close acForm, "schedule"
       DoCmd.OpenForm "link"
   
    End If
End Sub

Private Sub 取消_Click()
    DoCmd.Close
End Sub

zhengjialon

作者是在只考虑到在98里用，在2000里是没有WINDOWS\DESKTOP这个路径的，2000的自已建一个就好了，不过好不止这一个错误。

eio

zhengjialon，是否需将安装路径改为D盘？嘿嘿，2000没有WINDOWS\DESKTOP路径，那么程序路径可能也不相同，请问大家，安装程序如何处理？

eio

李兄的错误我未见过，是什么原因呢？

zhengjialon

安装路径做成可选的就行了。

eio

那么在你的机器上可以使用吗？
setup可以更改路径啊

[此贴子已经被作者于2003-2-18 13:26:35编辑过]

zhengjialon

我新建了WINDOWS\DESKTOP这个路径后就可以了。