I've got the following code:
Option Compare Database
Public Function getColour() As String
getColour = Me!frmRooms.Form!subfrmChairs.Controls("ColourTypes").Value
End Function
Public Function getType() As String
getType = Me!frmRooms.Form!subfrmChairs.Controls("ChairStyle").Value
End Function
Public Function getCondition() As String
getCondition = Me!frmRooms.Form!subfrmChairs.Controls("Condition").Value
End Function
Public Function getArms() As Boolean
getArms = Me!frmRooms.Form!subfrmChairs.Controls("Arms").Value
End Function
then the following query:
SELECT Items.ItemID, Items.ItemType, Items.ColourTypes, Items.Condition, Items.Arms
FROM Items
WHERE (((Items.ItemType)=getType()) AND ((Items.ColourTypes)=getColour()) AND ((Items.Condition)=getCondition()) AND ((Items.Arms)=getArms()));
I open my form, move to a record who's subform has some chairs in, run the query and get an "Invalid use of Me keyword" error. Can anyone tell me why and how to get round this?
Thanks
Option Compare Database
Public Function getColour() As String
getColour = Me!frmRooms.Form!subfrmChairs.Controls("ColourTypes").Value
End Function
Public Function getType() As String
getType = Me!frmRooms.Form!subfrmChairs.Controls("ChairStyle").Value
End Function
Public Function getCondition() As String
getCondition = Me!frmRooms.Form!subfrmChairs.Controls("Condition").Value
End Function
Public Function getArms() As Boolean
getArms = Me!frmRooms.Form!subfrmChairs.Controls("Arms").Value
End Function
then the following query:
SELECT Items.ItemID, Items.ItemType, Items.ColourTypes, Items.Condition, Items.Arms
FROM Items
WHERE (((Items.ItemType)=getType()) AND ((Items.ColourTypes)=getColour()) AND ((Items.Condition)=getCondition()) AND ((Items.Arms)=getArms()));
I open my form, move to a record who's subform has some chairs in, run the query and get an "Invalid use of Me keyword" error. Can anyone tell me why and how to get round this?
Thanks