• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 379
  • Last Modified:

Invalid use of Property

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
IndyBean
Asked:
IndyBean
  • 4
  • 4
  • 2
  • +1
1 Solution
 
SidFishesCommented:
first try adding me! to each control

me!NewSkid.Visible = True

if that doesn't work which line doesn it break on?
0
 
IndyBeanAuthor Commented:
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
 
SidFishesCommented:
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
Transaction-level recovery for Oracle database

Veeam Explore for Oracle delivers low RTOs and RPOs with agentless transaction log backup and transaction-level recovery of Oracle databases. You can restore the database to a precise point in time, even to a specific transaction.

 
dannywarehamCommented:
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
 
IndyBeanAuthor Commented:
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
 
IndyBeanAuthor Commented:
I exited Access and went back in and now its the same message except the error is now

Variable not defined.
0
 
SidFishesCommented:
in your code window

select debug - compile..

.it -should- show you the error
0
 
peter57rCommented:
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
 
dannywarehamCommented:
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
 
IndyBeanAuthor Commented:
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
 
SidFishesCommented:
that's why the debug compile is useful...it will find all those undefined variables that give you strange error messages
0

Featured Post

Upgrade your Question Security!

Add Premium security features to your question to ensure its privacy or anonymity. Learn more about your ability to control Question Security today.

  • 4
  • 4
  • 2
  • +1
Tackle projects and never again get stuck behind a technical roadblock.
Join Now