Help! Compile Error: Method or data member not found

[bradleyp]

Hi all,

Hopefully somebody can help. In Access 2002-SP2, I receive an error
from the VB Editor if I try to compile the following code (see below).
The error is as follows:

Compile Error: Method or data member not found

The follow subroutine is highlighted (specifically .txtNR_Program1 ):

'Assign values to 'Not Reported' column on the report.

Private Sub Detail_Format(C ancel As Integer, FormatCount As Integer)
Me.txtNR_Progra m1.Value = Tests_Status(1, "2005_2424" , "", "", "")
Me.txtNR_Progra m2.Value = Tests_Status(1, "p2427", "", "", "")
Me.txtNR_Progra m3.Value = Tests_Status(1, "p2428a", "p2428b", "", "")
End Sub

The code for the function, Tests_Status(), is listed below. The
function is in a separate module.

Public Function Tests_Status(in tStatus As Integer, _
strProgram1 As String, _
strProgram2 As String, _
strProgram3 As String, _
strProgram4 As String) As Integer
'For Access, define some object variables and make connections.
Dim cnn As ADODB.Connectio n
Set cnn = CurrentProject. Connection
Dim rst As New ADODB.Recordset
rst.ActiveConne ction = cnn
'Declare function variable
Dim intCountTests As Integer
Dim strStatus_F As String
Dim strProgram1_F As String
Dim strProgram2_F As String
Dim strProgram3_F As String
Dim strProgram4_F As String
'Get function inputs and format.
strStatus_F = "=" & intStatus & ""
strProgram1_F = "='" & strProgram1 & "')"
strProgram2_F = "='" & strProgram2 & "')"
strProgram3_F = "='" & strProgram3 & "')"
strProgram4_F = "='" & strProgram4 & "');"
'Build a SQL string
rst.Open "SELECT Count(tblTests.[LSTS_Reported]) AS [Count_Tests] "
& _
"FROM tblSamples INNER JOIN tblTests " & _
"ON tblSamples.LSTS _Number = tblTests.LSTS_N umber " & _
"WHERE (tblTests.LSTS_ Reported " & strStatus_F & _
"AND tblSamples.Prog ram_Number " & strProgram1_F & _
"OR (tblTests.LSTS_ Reported " & strStatus_F & _
"AND tblSamples.Prog ram_Number " & strProgram2_F & _
"OR (tblTests.LSTS_ Reported " & strStatus_F & _
"AND tblSamples.Prog ram_Number " & strProgram3_F & _
"OR (tblTests.LSTS_ Reported " & strStatus_F & _
"AND tblSamples.Prog ram_Number " & strProgram4_F
'Obtain records from the recordset called "rst"
intCountTests = rst("Count_Test s")
'Clear the object variables
rst.Close
cnn.Close
'Return value
Tests_Status = intCountTests
End Function

Why am I getting this error? Note that the report works fine in
operation. I only get this error when I try to compile the code. Thanks
in advanced.

Peter

[Steve Jorgensen]

It's possible you have some form corruption. First, try changing
Me.txtNR_Progra m1 to Me!txtNR_Progra m1, and see if that helps. If it does
help, you probably do have form corruption, and it's probably not completely
fixed. In that case, you should rename the form, paste the controls and code
into a new form object, then delete the old form.

By the way, a policy of using ! instead of . for referencing controls on forms
seems to help reduce the frequency of form corruption problems.

On 26 Apr 2005 09:15:31 -0700, br******@inspec tion.gc.ca wrote:

Hi all,

Hopefully somebody can help. In Access 2002-SP2, I receive an error
from the VB Editor if I try to compile the following code (see below).
The error is as follows:

Compile Error: Method or data member not found

The follow subroutine is highlighted (specifically .txtNR_Program1 ):

'Assign values to 'Not Reported' column on the report.

Private Sub Detail_Format(C ancel As Integer, FormatCount As Integer)
Me.txtNR_Progra m1.Value = Tests_Status(1, "2005_2424" , "", "", "")
Me.txtNR_Progra m2.Value = Tests_Status(1, "p2427", "", "", "")
Me.txtNR_Progra m3.Value = Tests_Status(1, "p2428a", "p2428b", "", "")
End Sub

The code for the function, Tests_Status(), is listed below. The
function is in a separate module.

Public Function Tests_Status(in tStatus As Integer, _
strProgram1 As String, _
strProgram2 As String, _
strProgram3 As String, _
strProgram4 As String) As Integer
'For Access, define some object variables and make connections.
Dim cnn As ADODB.Connectio n
Set cnn = CurrentProject. Connection
Dim rst As New ADODB.Recordset
rst.ActiveConne ction = cnn
'Declare function variable
Dim intCountTests As Integer
Dim strStatus_F As String
Dim strProgram1_F As String
Dim strProgram2_F As String
Dim strProgram3_F As String
Dim strProgram4_F As String
'Get function inputs and format.
strStatus_F = "=" & intStatus & ""
strProgram1_F = "='" & strProgram1 & "')"
strProgram2_F = "='" & strProgram2 & "')"
strProgram3_F = "='" & strProgram3 & "')"
strProgram4_F = "='" & strProgram4 & "');"
'Build a SQL string
rst.Open "SELECT Count(tblTests.[LSTS_Reported]) AS [Count_Tests] "
& _
"FROM tblSamples INNER JOIN tblTests " & _
"ON tblSamples.LSTS _Number = tblTests.LSTS_N umber " & _
"WHERE (tblTests.LSTS_ Reported " & strStatus_F & _
"AND tblSamples.Prog ram_Number " & strProgram1_F & _
"OR (tblTests.LSTS_ Reported " & strStatus_F & _
"AND tblSamples.Prog ram_Number " & strProgram2_F & _
"OR (tblTests.LSTS_ Reported " & strStatus_F & _
"AND tblSamples.Prog ram_Number " & strProgram3_F & _
"OR (tblTests.LSTS_ Reported " & strStatus_F & _
"AND tblSamples.Prog ram_Number " & strProgram4_F
'Obtain records from the recordset called "rst"
intCountTests = rst("Count_Test s")
'Clear the object variables
rst.Close
cnn.Close
'Return value
Tests_Status = intCountTests
End Function

Why am I getting this error? Note that the report works fine in
operation. I only get this error when I try to compile the code. Thanks
in advanced.

Peter

[bradleyp]

Hi Steve,

That worked!

Strange! I never would have figured that out. Thanks again.

Peter
Steve Jorgensen wrote:

It's possible you have some form corruption. First, try changing
Me.txtNR_Progra m1 to Me!txtNR_Progra m1, and see if that helps. If it does help, you probably do have form corruption, and it's probably not completely fixed. In that case, you should rename the form, paste the controls and code into a new form object, then delete the old form.

By the way, a policy of using ! instead of . for referencing controls on forms seems to help reduce the frequency of form corruption problems.