Dual Processor Computer Hangs When Running Query

Install Microsoft Office 97 Service Release 2

Install Microsoft Jet 3.51

Method 1

1. Press CTRL+ALT+DEL, and then click Task Manager.
2. Click the Processes tab.
3. Right-click MsAccess.exe, and then click Set Affinity.
4. Click to clear either CPU0 or CPU1.
5. Click OK, and then close Task Manager.

Method 2

1. Create a new database.
2. Create a new form.
3. Add a command button named Command0.
4. Click Code on the View menu.
5. Type the following code:

   Option Compare Database
   Option Explicit
   
   Private Declare Function SetProcessAffinityMask Lib "kernel32" _
      (ByVal hProcess As Long, ByVal dwProcessAffinityMask As Long) As Long
   Private Declare Function GetProcessAffinityMask Lib "kernel32" _
      (ByVal hProcess As Long, lpProcessAffinityMask As Long, _
      lpSystemAffinityMask As Long) As Long
   Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
   Private Declare Function OpenProcess Lib "kernel32" _
      (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
      ByVal dwProcessId As Long) As Long
   Private Declare Function CloseHandle Lib "kernel32" _
      (ByVal hObject As Long) As Long
   Private Declare Function GetWindowThreadProcessId Lib "user32" _
      (ByVal hwnd As Long, lpdwProcessId As Long) As Long
   
   Private Const PROCESS_SET_INFORMATION = (&H200&)
   Private Const PROCESS_QUERY_INFORMATION = (&H400&)
   Dim a As Object
   
   Private Sub Command0_Click()
   
      Dim idThread As Long
      Dim idProcess As Long
      Dim ProcessAffinity As Long
      Dim SystemAffinity As Long
      Dim lRet As Long
      Dim hProcess As Long
   
      idProcess = Shell("C:\Program Files\Microsoft" & _
         " Office\Office\MSACCESS.EXE" & _
         " C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb", _
         vbMaximizedFocus)
   
      If idProcess Then
         hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or _
            PROCESS_SET_INFORMATION, False, idProcess)
         lRet = GetProcessAffinityMask(hProcess, ProcessAffinity, _
            SystemAffinity)
         ProcessAffinity = 1 ' this sets the process to only run on CPU 0
                             ' for CPU 1 only use 2 and for CPUs 1 & 2 use 3
         lRet = SetProcessAffinityMask(hProcess, ProcessAffinity)
         CloseHandle (hProcess)
      End If
   
   End Sub
   					

6. Save the form, and then open the form in Form view.
7. Click Command0.

Back to the top

Steps to Reproduce Problem

1. Start Microsoft Access on a dual processor computer and open the sample database Northwind.mdb.
2. Create a new query in Design view.
3. In the Show Table dialog box, click the Tables tab and select the Orders table.
4. Click Add twice so that the Orders table is added to the query twice, and then click Close. Do not create a join between the tables.
5. Drag the asterisk (*) from the Orders table into the query grid, and then drag OrderID from Orders_1 (the second instance of the Orders table) into the query grid.
6. On the Query menu, click Run. The query should return over 688,000 records.
7. On the View menu, click Design View.
8. On the Query menu, click Make-Table Query.
9. In the Make Table dialog box, type qryTestTable and click OK.
10. On the Query menu, click Run. Note that Microsoft Access stops responding before the query finishes processing.

Back to the top