请各位高手帮我看看:问题出在哪?

ouxingwang

下载郑版主的程序,运行正常,然而我一挂上我的数据库就链接不上,请各位高手帮我看看我的前台数据库frontBase中的frmConnect窗体中的代码错在哪?代码如下:

'******************************************************************

'by zhengjialon on 2004/7/10

[url=mailto:'zhengjialon@hotmail.com]'zhengjialon@hotmail.com[/url]

'http://www.office-cn.net

'功能:自动刷新后台数据库在当前目录中的链接表

'     后台数据库现在是固定，可以设成变量

'     后台未加密码，加密码后需要了解一下链接格式。

'     无论你将此文件夹拷贝到哪里都可以自动刷新后台链接表。

'*******************************************************************

Public Function Links() As Boolean

On Error GoTo Errlbl:

    Dim tabDef As TableDef

   

    For Each tabDef In CurrentDb.TableDefs

        If Len(tabDef.Connect) > 0 Then

            tabDef.Connect = ";DATABASE=" & Application.CurrentProject.Path & "\backdata.mdb" & "WD=" & 123456

            tabDef.RefreshLink

        End If

    Next

    MsgBox "链接完成"

    Links = True

Exitsub:

    Exit Function

Errlbl:

    MsgBox "错误号:" & Err.Number & " 连接不成功！请检查后台数据库是否在当前目录中以及名称是否有误！"

    Links = False

End Function

Public Function CheckLinks() As Boolean

On Error GoTo Errlbl:

' 检查到后台数据库的链接；如果链接存在且正确的话，返回 True 。

    Dim dbs As Database, rst As DAO.Recordset

    Set dbs = CurrentDb()

   

    ' 打开链接表查看表链接信息是否正确。

    Set rst = dbs.OpenRecordset("分户帐")

    rst.Close

    ' 如果没有错误，返回 True 。

    CheckLinks = True

Exitsub:

    Exit Function

Errlbl:

    If Err.Number = 3044 Then

        CheckLinks = fasle

    Else

        MsgBox "错误号:" & Err.Number & " " & Err.Description

    End If

End Function

Private Sub Form_Load()

    If CheckLinks = False Then

   

        '开始连接后台数据库

        If Links = False Then

            DoCmd.Close acForm, Me.Name

            Exit Sub

        Else

            DoCmd.Close acForm, Me.Name

            '然后打开程序的主窗体或登陆窗体等

            DoCmd.OpenForm "tbl1"

        End If

        

    Else

        DoCmd.Close acForm, Me.Name

        '然后打开程序的主窗体或登陆窗体等

        DoCmd.OpenForm "tbl1"

    End If

End Sub

ouxingwang

感谢版主的指点!