• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 421
  • Last Modified:

Access is returning a blank help window

How do I resolve these blank help windows.  

The blank window title bar contains "Microsoft Visual Basic Help".  The window below the title bar is the same gray color that the window control button are in the right corner of the title bar.  

My line of code is as follows.
    rsCategories.Open sSQL, cnDevDB, adOpenKeyset, adLockPessimistic, adCmdText
I select the word Open and depress the F1 key.

The selected references are as follows.
Visual Basic for Applications
Microsoft Access 11.0 Object Library
OLE Automation
Microsoft ActiveX Data Objects Recordset 2.8 Library
Microsoft DOA 3.6 Object Library
Microsoft ActiveX Data Objects 2.5 Library

I have performed a repair installation on Access 2003.  That reported complete and successful.
If I select the Open follwing the connection variable, the help for ADO 2.5 API Reference Open Method (ADO Connection) opens correctly.  If I click on the see also link and select Open Method (ADO Recordset), the help screen opens correctly.

I presume the problem is related to my choosing to open the connection in the Form_Load subroutine and open the recordset in a seperate function which is called by several events.

Any suggestions?
' Declarations are as follows
Option Compare Database
Option Explicit
' Declare Applix Tables Connection
Public cnDevDB As ADODB.Connection
Public cnProdDB As ADODB.Connection
Private rsCatagories As Recordset
Private rsParts As Recordset
' Connection made as follows
Private Sub Form_Load()
On Error GoTo err_Form_Load
    Dim sWorking As String
    Set cnDevDB = New ADODB.Connection
    Set cnProdDB = New ADODB.Connection
    ' Assumes data is in same directory as ApplixClient.mdb
    sWorking = strWorkingPath
    ' Open connections to Dev and Prod server
    cnDevDB.Open "DSN=dcd_koktsv51;" & _
       "Uid=applix;" & _
    MsgBox "Connection State ==>" & GetState(cnDevDB.State), , "odbc connection"
' Recordset opened as follows.
' The Combo0 box list is then populated with those part categories.
    Dim sSQL As String
    Dim fs As Object
'    Set fs = CreateObject("Scripting.FileSystemObject")
'    Set F = fs.GetFile(sFileName)
'    Set ts = F.OpenAsTextStream(ForReading, TristateUseDefault)
'    Set cnCurrentApp = New ADODB.Connection
    Select Case Me.Frame2.Value
        Case 2
            sServer = "Prod"
        Case Else
            sServer = "Dev"
    End Select
    Debug.Print GetState(cnDevDB.State)
    Set rsCatagories = New ADODB.Recordset
'    DoCmd.Hourglass True
    sSQL = "NEW QUERY: select categorycode, category, lms_catalog_name from family where lms_catalog_name is not null order by category asc"
    If sServer Like "Dev" Then
        rsCatagories.Open sSQL, cnDevDB, adOpenKeyset, adLockPessimistic, adCmdText
        rsCatagories.Open sSQL, cnProdDB, adOpenKeyset, adLockPessimistic, adCmdText
    End If

Open in new window

1 Solution
Just as a guess change:

Private rsCatagories As Recordset
Private rsParts As Recordset

Private rsCatagories As ADODB.Recordset
Private rsParts As ADODB.Recordset

Perhaps also try doing a reinstall and check to make sure that all the help files are installed on local device (Not Install on first use, or anything like that)

My guess is that either the Access Help engine can't determine which open help file to open, or (more likely) that the one it thinks it should open can't be found.
MikeySampleAuthor Commented:
The problem was the result of the declaration statement and set statement not matching.

Featured Post

Never miss a deadline with monday.com

The revolutionary project management tool is here!   Plan visually with a single glance and make sure your projects get done.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now