I imported a module from an Access 2.0 database into Access 97. Can I tell by looking at the code what must be changed to 32-bit DLL calls?

[MLH]

Here is the code. I got it off the MicroSoft
site (for Access 2.0) and modified a few lines
per recommendation of some of you in this
newsgroup. This code runs fine in Access 2.0,
but not at all in Access 97.
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxx
Option Compare Database 'Use database order for string comparisons
Option Explicit

Type RECT_Type
left As Integer
top As Integer
right As Integer
bottom As Integer
End Type

Declare Function GetActiveWindow% Lib "User" ()
Declare Function GetDesktopWindow% Lib "User" ()
Declare Sub GetWindowRect Lib "User" (ByVal Hwnd%, lpRect As
RECT_Type)
Declare Function GetDC% Lib "User" (ByVal Hwnd%)
Declare Function CreateCompatibleDC% Lib "GDI" (ByVal hdc%)
Declare Function CreateCompatibleBitmap% Lib "GDI" (ByVal hdc%,
ByVal nWidth%, ByVal nHeight%)
Declare Function SelectObject% Lib "GDI" (ByVal hdc%, ByVal
hObject%)
Declare Function BitBlt% Lib "GDI" (ByVal hDestDC%, ByVal X%, ByVal
Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal
YSrc%, ByVal dwRop&)
Declare Function OpenClipboard% Lib "User" (ByVal Hwnd%)
Declare Function EmptyClipboard% Lib "User" ()
Declare Function SetClipboardData% Lib "User" (ByVal wFormat%,
ByVal hMem%)
Declare Function CloseClipboard% Lib "User" ()
Declare Function ReleaseDC% Lib "User" (ByVal Hwnd%, ByVal hdc%)
Declare Function DeleteDC% Lib "GDI" (ByVal hdc%)

Global Const SRCCOPY = &HCC0020
Global Const CF_BITMAP = 2

Function ScreenDump()
'*******************************************
' Activate by pressing CTRL-W
'*******************************************
Dim Msg As String, Title As String, Defvalue As String, Answer As
String, Work As String, CurrentType As Integer
CurrentType = Application.CurrentObjectType
Work = " "
Msg = "Whole (S)creen or just the (W)indow?" ' Set
prompt.
Msg = Msg & Work & " (CTRL-W activates)" ' Set
prompt.
Title = "InputBox Demo" ' Set
title.
Defvalue = "W" ' Set
default return value.
Answer = InputBox(Msg, Title, Defvalue) ' Get
user input.

Dim AccessHwnd%, DeskHwnd%
Dim hdc%
Dim hdcMem%
Dim rect As RECT_Type
Dim junk%
Dim fwidth%, fheight%
Dim hBitmap%

DoCmd.Hourglass True

'---------------------------------------------------
' Get window handle to Windows and Microsoft Access
'---------------------------------------------------
DeskHwnd = GetDesktopWindow()
If Answer = "S" Then
AccessHwnd = GetActiveWindow()
Else
Select Case CurrentType
Case A_FORM
AccessHwnd = Screen.ActiveForm.Hwnd
Case A_REPORT
AccessHwnd = Screen.ActiveReport.Hwnd
Case Else
MsgBox "Gotta be a form or a report."
Exit Function
End Select

End If

'---------------------------------------------------
' Get screen coordinates of Microsoft Access
'---------------------------------------------------
Call GetWindowRect(AccessHwnd, rect)
fwidth = rect.right - rect.left
fheight = rect.bottom - rect.top

'---------------------------------------------------
' Get the device context of Desktop and allocate memory
'---------------------------------------------------
hdc = GetDC(DeskHwnd)
hdcMem = CreateCompatibleDC(hdc)
hBitmap = CreateCompatibleBitmap(hdc, fwidth, fheight)

If hBitmap <> 0 Then
junk = SelectObject(hdcMem, hBitmap)

'---------------------------------------------
' Copy the Desktop bitmap to memory location
' based on Microsoft Access coordinates.
'---------------------------------------------
junk = BitBlt(hdcMem, 0, 0, fwidth, fheight, hdc, rect.left,
rect.top, SRCCOPY)

'---------------------------------------------
' Set up the Clipboard and copy bitmap
'---------------------------------------------
junk = OpenClipboard(DeskHwnd)
junk = EmptyClipboard()
junk = SetClipboardData(CF_BITMAP, hBitmap)
junk = CloseClipboard()
End If

'---------------------------------------------
' Clean up handles
'---------------------------------------------
junk = DeleteDC(hdcMem)
junk = ReleaseDC(DeskHwnd, hdc)

DoCmd.Hourglass False

End Function

[Douglas J. Steele]

That's probably because Access 2.0 was 16 bit, and Access 97 is 32 bit. All
of the APIs changed in the move from 16 bit to 32 bit.

The biggest change is that virtually all Integer declarations need to be
changed to Long. Having said that, though, it's possible that some of the
specific functions got changed with the migration (sorry, but it's been too
long since I've done these sorts of conversions, and I don't remember
whether any of your declarations fall into that category)

Start with the following KB articles:
http://msdn.microsoft.com/library/te...n_acc97con.htm
http://msdn.microsoft.com/library/te...n_32bitapi.htm

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"MLH" <CR**@NorthState.net> wrote in message
news:pn********************************@4ax.com...

Here is the code. I got it off the MicroSoft
site (for Access 2.0) and modified a few lines
per recommendation of some of you in this
newsgroup. This code runs fine in Access 2.0,
but not at all in Access 97.
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxx
Option Compare Database 'Use database order for string comparisons
Option Explicit

Type RECT_Type
left As Integer
top As Integer
right As Integer
bottom As Integer
End Type

Declare Function GetActiveWindow% Lib "User" ()
Declare Function GetDesktopWindow% Lib "User" ()
Declare Sub GetWindowRect Lib "User" (ByVal Hwnd%, lpRect As
RECT_Type)
Declare Function GetDC% Lib "User" (ByVal Hwnd%)
Declare Function CreateCompatibleDC% Lib "GDI" (ByVal hdc%)
Declare Function CreateCompatibleBitmap% Lib "GDI" (ByVal hdc%,
ByVal nWidth%, ByVal nHeight%)
Declare Function SelectObject% Lib "GDI" (ByVal hdc%, ByVal
hObject%)
Declare Function BitBlt% Lib "GDI" (ByVal hDestDC%, ByVal X%, ByVal
Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal
YSrc%, ByVal dwRop&)
Declare Function OpenClipboard% Lib "User" (ByVal Hwnd%)
Declare Function EmptyClipboard% Lib "User" ()
Declare Function SetClipboardData% Lib "User" (ByVal wFormat%,
ByVal hMem%)
Declare Function CloseClipboard% Lib "User" ()
Declare Function ReleaseDC% Lib "User" (ByVal Hwnd%, ByVal hdc%)
Declare Function DeleteDC% Lib "GDI" (ByVal hdc%)

Global Const SRCCOPY = &HCC0020
Global Const CF_BITMAP = 2

Function ScreenDump()
'*******************************************
' Activate by pressing CTRL-W
'*******************************************
Dim Msg As String, Title As String, Defvalue As String, Answer As
String, Work As String, CurrentType As Integer
CurrentType = Application.CurrentObjectType
Work = " "
Msg = "Whole (S)creen or just the (W)indow?" ' Set
prompt.
Msg = Msg & Work & " (CTRL-W activates)" ' Set
prompt.
Title = "InputBox Demo" ' Set
title.
Defvalue = "W" ' Set
default return value.
Answer = InputBox(Msg, Title, Defvalue) ' Get
user input.

Dim AccessHwnd%, DeskHwnd%
Dim hdc%
Dim hdcMem%
Dim rect As RECT_Type
Dim junk%
Dim fwidth%, fheight%
Dim hBitmap%

DoCmd.Hourglass True

'---------------------------------------------------
' Get window handle to Windows and Microsoft Access
'---------------------------------------------------
DeskHwnd = GetDesktopWindow()
If Answer = "S" Then
AccessHwnd = GetActiveWindow()
Else
Select Case CurrentType
Case A_FORM
AccessHwnd = Screen.ActiveForm.Hwnd
Case A_REPORT
AccessHwnd = Screen.ActiveReport.Hwnd
Case Else
MsgBox "Gotta be a form or a report."
Exit Function
End Select

End If

'---------------------------------------------------
' Get screen coordinates of Microsoft Access
'---------------------------------------------------
Call GetWindowRect(AccessHwnd, rect)
fwidth = rect.right - rect.left
fheight = rect.bottom - rect.top

'---------------------------------------------------
' Get the device context of Desktop and allocate memory
'---------------------------------------------------
hdc = GetDC(DeskHwnd)
hdcMem = CreateCompatibleDC(hdc)
hBitmap = CreateCompatibleBitmap(hdc, fwidth, fheight)

If hBitmap <> 0 Then
junk = SelectObject(hdcMem, hBitmap)

'---------------------------------------------
' Copy the Desktop bitmap to memory location
' based on Microsoft Access coordinates.
'---------------------------------------------
junk = BitBlt(hdcMem, 0, 0, fwidth, fheight, hdc, rect.left,
rect.top, SRCCOPY)

'---------------------------------------------
' Set up the Clipboard and copy bitmap
'---------------------------------------------
junk = OpenClipboard(DeskHwnd)
junk = EmptyClipboard()
junk = SetClipboardData(CF_BITMAP, hBitmap)
junk = CloseClipboard()
End If

'---------------------------------------------
' Clean up handles
'---------------------------------------------
junk = DeleteDC(hdcMem)
junk = ReleaseDC(DeskHwnd, hdc)

DoCmd.Hourglass False

End Function

[MLH]

Thx, Doug. I'll check it out.