pulledoutmyhair
Registered User.
- Local time
- Today, 08:27
- Joined
- Sep 29, 2009
- Messages
- 11
Hi All,
I am having some serious issues with a simple search box and the cmd button (using embedded macro onclick)for it. everytime I click the button I get the message Object or Class does not support the set of events. Using access 2007. Copied the embedded macro from an access 2007 template.
Here is the embmacro:
Begin
Condition ="[Forms]![Customer List]![Searchbox] Is Null"
Action ="RunCommand"
Comment ="Clear Filter when search box
empty"
Argument ="144"
End
Begin
Condition ="..."
Action ="SetProperty"
Argument ="cmdShowAll"
Argument ="0"
Argument ="0"
End
Begin
Condition ="..."
Action ="StopAllMacros"
End
Begin
Action ="SetTempVar"
Comment ="Handle \"'s in search"
Argument ="strSearch"
Argument ="Replace([Forms]![Customer
List]![SearchBox],\"\"\"\",\"\"\"\"\"\")"
End
Begin
Comment ="Build the Filter"
End
Begin
Action ="SetTempVar"
Argument ="strFilter"
Argument ="\"([Last Name] Like \"\"*\" &
[TempVars]![strSearch] & \"*\"\")\""
End
Begin
Action ="SetTempVar"
Argument ="strFilter"
Argument ="[TempVars]![strFilter] & \" OR
([First Name] Like \"\"*\" &
[TempVars]![strSearc"
"h] & \"*\"\")\""
End
Begin
Action ="SetTempVar"
Argument ="strFilter"
Argument ="[TempVars]![strFilter] & \" OR
([E-mail Address] Like \"\"*\" &
[TempVars]![strS"
"earch] & \"*\"\")\""
End
Begin
Action ="SetTempVar"
Argument ="strFilter"
Argument ="[TempVars]![strFilter] & \" OR
([Job Title] Like \"\"*\" &
[TempVars]![strSearch"
"] & \"*\"\")\""
End
Begin
Action ="SetTempVar"
Argument ="strFilter"
Argument ="[TempVars]![strFilter] & \" OR
([Mobile Phone] Like \"\"*\" &
[TempVars]![strSea"
"rch] & \"*\"\")\""
End
Begin
Action ="SetTempVar"
Argument ="strFilter"
Argument ="[TempVars]![strFilter] & \" OR
([Business Phone] Like \"\"*\" &
[TempVars]![strS"
"earch] & \"*\"\")\""
End
Begin
Action ="ApplyFilter"
Argument =""
Argument ="=[TempVars]![strFilter]"
End
Begin
Action ="RemoveTempVar"
Argument ="strFilter"
End
Begin
Action ="RemoveTempVar"
Argument ="strSearch"
End
Begin
Action ="SetProperty" Picture: Search.bmp
Argument ="cmdShowAll"
Argument ="0"
Argument ="1"
End
I am having some serious issues with a simple search box and the cmd button (using embedded macro onclick)for it. everytime I click the button I get the message Object or Class does not support the set of events. Using access 2007. Copied the embedded macro from an access 2007 template.
Here is the embmacro:
Begin
Condition ="[Forms]![Customer List]![Searchbox] Is Null"
Action ="RunCommand"
Comment ="Clear Filter when search box
empty"
Argument ="144"
End
Begin
Condition ="..."
Action ="SetProperty"
Argument ="cmdShowAll"
Argument ="0"
Argument ="0"
End
Begin
Condition ="..."
Action ="StopAllMacros"
End
Begin
Action ="SetTempVar"
Comment ="Handle \"'s in search"
Argument ="strSearch"
Argument ="Replace([Forms]![Customer
List]![SearchBox],\"\"\"\",\"\"\"\"\"\")"
End
Begin
Comment ="Build the Filter"
End
Begin
Action ="SetTempVar"
Argument ="strFilter"
Argument ="\"([Last Name] Like \"\"*\" &
[TempVars]![strSearch] & \"*\"\")\""
End
Begin
Action ="SetTempVar"
Argument ="strFilter"
Argument ="[TempVars]![strFilter] & \" OR
([First Name] Like \"\"*\" &
[TempVars]![strSearc"
"h] & \"*\"\")\""
End
Begin
Action ="SetTempVar"
Argument ="strFilter"
Argument ="[TempVars]![strFilter] & \" OR
([E-mail Address] Like \"\"*\" &
[TempVars]![strS"
"earch] & \"*\"\")\""
End
Begin
Action ="SetTempVar"
Argument ="strFilter"
Argument ="[TempVars]![strFilter] & \" OR
([Job Title] Like \"\"*\" &
[TempVars]![strSearch"
"] & \"*\"\")\""
End
Begin
Action ="SetTempVar"
Argument ="strFilter"
Argument ="[TempVars]![strFilter] & \" OR
([Mobile Phone] Like \"\"*\" &
[TempVars]![strSea"
"rch] & \"*\"\")\""
End
Begin
Action ="SetTempVar"
Argument ="strFilter"
Argument ="[TempVars]![strFilter] & \" OR
([Business Phone] Like \"\"*\" &
[TempVars]![strS"
"earch] & \"*\"\")\""
End
Begin
Action ="ApplyFilter"
Argument =""
Argument ="=[TempVars]![strFilter]"
End
Begin
Action ="RemoveTempVar"
Argument ="strFilter"
End
Begin
Action ="RemoveTempVar"
Argument ="strSearch"
End
Begin
Action ="SetProperty" Picture: Search.bmp
Argument ="cmdShowAll"
Argument ="0"
Argument ="1"
End