Solved

Invalid use of Property

Posted on 2004-09-27
11
371 Views
Last Modified: 2012-06-27
HI Experts,

The following code produces an "Invalid use of Property" Error, and I can't tell why, please help.

Private Sub txtPO_Exit(Cancel As Integer)

Dim SQL As String
Dim rst As Recordset
       
If Not IsNull(txtPO) Then
        SQL = "Select * From [Skid List] Where PO = '" & txtPO & "'"
        Set rst = CurrentDb.OpenRecordset(SQL)
           
        lblSkidsUsed.Visible = True
        NewSkid.Visible = True
        SkidList.Visible = True

        If rst.BOF And rst.EOF Then
            EditSkid.Visible = False
            PrintSkidLabel.Visible = False
            DeleteSkid.Visible = False
        Else
            EditSkid.Visible = True
            PrintSkidLabel.Visible = True
            DeleteSkid.Visible = True
        End If

End If
End Sub
0
Comment
Question by:IndyBean
  • 4
  • 4
  • 2
  • +1
11 Comments
 
LVL 36

Expert Comment

by:SidFishes
ID: 12163069
first try adding me! to each control

me!NewSkid.Visible = True

if that doesn't work which line doesn it break on?
0
 
LVL 1

Author Comment

by:IndyBean
ID: 12163087
It doesn't take me into the step through view of the code it's a message box error.

The me! seems not to have helped
0
 
LVL 36

Expert Comment

by:SidFishes
ID: 12163137
you can either hit control-Break at the message box and select debug or

put a breakpoint at

If Not IsNull(txtPO) Then

to add a break point just put your cursor in the line you want and press F9

now run your code and step thru with F8
0
Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

 
LVL 26

Expert Comment

by:dannywareham
ID: 12163138
I take it that PO is a text-valued object?

Try changing:
SQL = "Select * From [Skid List] Where PO = '" & txtPO & "'"

to

SQL = "Select * From [skid list] Where PO = " & chr(34) & me.txtPO & chr(34) & """
0
 
LVL 1

Author Comment

by:IndyBean
ID: 12163188
The breakpoint didn't do it.

I don't know that it's the code. It's a message box that only allows "Okay".

---------------------------------------------------------------------------------------------------------\

The expression On Exit you entered as the event property setting produced the following error: Invalid use of Property.

*The expression may not result in the name of a macro, the name of a user-defined function, or [Event Procedure].
*There may have been an error evaluating the function, event or macro.

----------------------------------------------------------------------------------------------------------
0
 
LVL 1

Author Comment

by:IndyBean
ID: 12163200
I exited Access and went back in and now its the same message except the error is now

Variable not defined.
0
 
LVL 36

Accepted Solution

by:
SidFishes earned 125 total points
ID: 12163204
in your code window

select debug - compile..

.it -should- show you the error
0
 
LVL 77

Expert Comment

by:peter57r
ID: 12163207
Hello IndyBean,

> The following code produces an "Invalid use of Property" Error,
on which line?

Do you have a reference to DAO3.6 set?
If so do you have a reference to ActiveXDataObjects 2.n set?
If so remove the setting for ADO.

Pete
0
 
LVL 26

Expert Comment

by:dannywareham
ID: 12163246
Alternatively, try:

SQL = "SELECT * FROM [skid list] "
SQL = SQL & "WHERE ((("[PO])= " & chr(34) & [me].[txtPO] & chr(34) &));"

The error will be formed as a result of the SQL statement - guaranteed....
0
 
LVL 1

Author Comment

by:IndyBean
ID: 12163257
Alright that's just rediculous. I had in another function; NewSkid_OnClick()

Dim rst As RecordSet

it didn't like the line apparently and said that rst later in the function was not defined.

It had nothing to do with the code I got the problem from.

It works fine now. Thank you
0
 
LVL 36

Expert Comment

by:SidFishes
ID: 12163268
that's why the debug compile is useful...it will find all those undefined variables that give you strange error messages
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The first two articles in this short series — Using a Criteria Form to Filter Records (http://www.experts-exchange.com/A_6069.html) and Building a Custom Filter (http://www.experts-exchange.com/A_6070.html) — discuss in some detail how a form can be…
Introduction When developing Access applications, often we need to know whether an object exists.  This article presents a quick and reliable routine to determine if an object exists without that object being opened. If you wanted to inspect/ite…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

832 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question