向高手请教：Access程序在另二台电脑中出现的奇怪的问题

getusfree

各位高手：已编程好一个数据库，在我的电脑（Win7，Access2003）上一切正常，在另一台电脑上安装后（XP,Access2003)也完美运行，但在另二台电脑上（同样都是XP和2003）上却出现莫名其妙的问题，描述如下：

1. 在那二台电脑上，一个打开新窗体的按纽没有作用，而别的打开窗体的按纽却正常，这个按纽对应的代码：
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "公司团组流程 领导检视"

    stLinkCriteria = "[团组名称]=" & "'" & Me![团组名称] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
  Me.Visible = False
Exit_Command2_Click:
    Exit Sub

Err_Command2_Click:
    MsgBox Err.Description
    Resume Exit_Command2_Click
End Sub



这段代码，是从一个列表框里选择一个团组名称后，打开这个团组。同样的手法，也是从另一个列表框里选择，在程序别的地方打开这个团组的窗口却一切正常，但就这个不行，二台电脑都一样。 这个问题在我的和另一台电脑上没有，只在那二台上有

2. 在一个SQL语句里，这二台电脑提示以下语句中：
Public Sub FindData(n As String)


    Dim rs As New ADODB.Recordset
    Dim rsStr As String

    rsStr = "SELECT 类型,单位,出访国家,出访目的,批准天数,团组人数,团长,团员,经办人,接案日期,团组联系人 " _
            & "FROM [公司团组流程] WHERE ((团组名称='" & n & "'));"

    rs.Open rsStr, CurrentProject.Connection, adOpenStatic, adLockReadOnly


    If rs.EOF Or rs.BOF Then

    MsgBox ("没有此号码的护照，请检查输入或先登记此新护照"), vbOKOnly, "Jason提示"
    Else



这里面， rs.Open rsStr, CurrentProject.Connection, adOpenStatic, adLockReadOnly 出现黄色错误提醒，而在我的和另一台电脑里却一切正常。

3. 在从此论坛里找的，禁止SHIFT语句，如下：
unction ChangeProperty(strPropName As String, varPropType As Variant, varPropvalue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropvalue
    ChangeProperty = True

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropvalue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If

End Function





这里面，出现黄色提醒这句
Set dbs = CurrentDb
错误



向各位高手请教，这些错误是由于什么造成的？DLL？应该如何解决？焦急之中。

谢谢帮助！

tmtony

缺少DAO  或相关引用
如果缺少，从有的电脑复制dao过去 注册dll

roych

有没有引用了DAO 3.6的库？如果安装的是Office绿色版（或者D版）的，有可能存在库丢失的问题。重新引用下再看看？

getusfree

tmtony 发表于 2011-6-17 12:39
缺少DAO  或相关引用
如果缺少，从有的电脑复制dao过去 注册dll

谢谢您的回答，请问，应如何引用DAO？以及相关的DLL文件是哪些？可能告之？

getusfree

roych 发表于 2011-6-17 13:10
有没有引用了DAO 3.6的库？如果安装的是Office绿色版（或者D版）的，有可能存在库丢失的问题。重新引用下再 ...

谢谢您的回复！怎样引用DAO3.6库？盼能告之为感！再次感谢！

roych

按下Alt+F11进入VBE界面，依次点击：工具\引用，在右侧滚动条往下拉动，直到找到DAO3.6版本库，如图所示：

getusfree

谢谢ROYCH版主的热心帮助。
经检查，出问题的电脑里，您所说的DAO3.6引用已钩选，和您提供的截图是一样的。

现将错误的截图传上，以便诊断：



点击调试后，提示问题在：




请帮助我看看是哪里出了问题？万分感谢！

aslxt

检查l链接表是否正常？

getusfree

aslxt 发表于 2011-6-17 20:39
检查l链接表是否正常？

谢谢ASLXT回复。已检查，如下：

getusfree

不好意思，上面看错了。链接表正常