problem linking vba modules in MS Access 2007
Posted
by Ted
on Stack Overflow
See other posts from Stack Overflow
or by Ted
Published on 2010-06-09T19:14:14Z
Indexed on
2010/06/11
8:22 UTC
Read the original article
Hit count: 211
ms-access-2007
I am upgrading a database system from Access 2000 db to Access 2007, which communicates with several chemistry measuring devices(pH meter, scale, etc) via an RS 232 serial port. The first db consists of several modules containing vba code that enables the communications with the ports, as well as supports the code behind the forms in the second db. The user, or lab tech, navigates through the forms in the second db to interact with the lab devices, and also to generate the reports which display the info. from the devices. The reports are also part of the second db. The code works in Access 2000, but once I convert it to 2007, the code in the second db cannot find the function calls in the first db that dictate the progression from screen to screen. I have tried importing the modules into the second db, and I have tried linking them, but it still doesn't work. The error message is #438: "Object doesn't support this property or method." Any suggestions would be greatly appreciated.
Here is the code for the first function that is not being called correctly:
Description:
' This routine is used to return to the calling form and close the active form.
'
' Input:
' strFormCalled --- the active form
' strCallingForm --- the form that called the active form
' blnUnhideOrOpen --- whether to open or just unhide form
Public Sub basReturnToCallingForm(ByVal strFormCalled As String, ByVal _
strCallingForm As Variant, Optional blnUnhideOrOpen As Boolean = True)
On Error GoTo err_basReturnToCaliingForm
If Not basIsBlankString(strCallingForm) And blnUnhideOrOpen Then
DoCmd.OpenForm strCallingForm, acNormal
Else
Call basUnHideForm(strCallingForm)
End If
Call basCloseForm(strFormCalled)
exit_basReturnToCaliingForm:
Exit Sub
err_basReturnToCaliingForm:
Err.Raise Err.Number, "basReturnToCaliingForm", Err.Description
End Sub
I will post the second function shortly, but I have to go to a meeting... The second funtion that isn't 'working' is a cmdStartClick that is supposed to be called when a user initializes a pump. However, within that function, it's also sticking on a line that is supposed to progress to the next form in the db. The other thing is that the code works in Access 2002, but not in Access 2007...
© Stack Overflow or respective owner