Microsoft Office Acess无响应

James　发表于：2010-12-10 08:54:28 　

大家好，我是新成员丹雅(crp6071)，很开心呢能够成为Access软件网的成员。

在这里，我向各位编程高手请教一个问题。我自己开发了一个Access程序，在我的电脑上可以正常运行，但是在别人的电脑上打开，系统就会提示“Microsoft Office Access 无响应”。经测试，发现是由于一段代码引起的。该段代码写在Form_Load事件里，详情如下：

Dim strsql As String
Dim rst As ADODB.Recordset
Dim un As String
un = Environ("Username")
strsql = "select * from tblUser where UserID ='" & un & "'"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open strsql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
If rst.RecordCount = 0 Then
    MsgBox "很抱歉，您不是该系统的合法用户，请与管理员联系！", vbOKOnly, "提示"
    DoCmd.Close acForm, Me.Name
    DoCmd.Quit
    Exit Sub
End If

rst.close

set rst = nothing

请问原因是什么？谢谢！

（注：我们使用的是2007版本的Microsoft Office）。

Top

煮江品茶发表于：2010-12-10 13:55:43

Environ是不是一个自定义函数？这个函数是不是没有拷贝过来？

Top

丹雅发表于：2010-12-13 16:25:23

谢谢煮江品茶的帮助。

Environ是VBA自带的函数，不是自定义函数。

其作用是取得当前登录电脑用户的用户名。

Top

小魏发表于：2010-12-13 21:26:52

这段代码看起来没有明显的错误,不是造成程序假死的原因.

你调试一下程序,看看有没有丢失的引用.特别是ADODB;

另外,你的这段代码其实是想看看当前的电脑的用户是否在系统中有注册,你可以DLOOKUP的域函数来处理,会可靠许多.

Top

煮江品茶发表于：2010-12-14 11:46:28

这段代码可以用以下代码替换：

if Dcount("*","tblUser","UserID ='" & un & "'")=0 then
    MsgBox "很抱歉，您不是该系统的合法用户，请与管理员联系！", vbOKOnly, "提示"
    DoCmd.Close acForm, Me.Name
    DoCmd.Quit

Exit Sub
end if

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

Microsoft Office Acess无响应