Working on all computers but 1

[cvegas]

The customer had their people come in and reinstall everything on 1 system
after a virus. Operating system is XP Pro on all computers.

My code stopped working on this system. I checked all references and
everything appears to be there.

Using Access 2K Ver9.0.2720

The error happens when a check box is selected to filter the form for orders
that require attention for todays date.

"You can't carry out the action at the present time" The expression may not
result in the name of a macro, name of udf, or Event Procedure. There may
have been an error evaluating the function, event, or macro.

if me.ActiveControl = -1 then
Searchfor = Me.Text92
Me.Filter = "[Drop or Delivery Date]=" &_
format(searchfor, "mm/dd/yyyy")
& "#"
Me.FilterOn = True
Else
Me.filterOn = False
endif

Any direction would be helpful and appreciated

 

[kc-mass]

You are missing an activeX control on that machine or it is on the machine
but not registered.

If you are missing one, copy it from one of the other machines and then
register it with RegSvr32.exe.

Kevin

 

[ryguy7272]

So, the appropriate references are checked, right. That's always a usual
suspect. Is there any error number associated with the error? Error ID, or
some such thing?

Ryan--

 

[Tony Toews [MVP]]

My code stopped working on this system. I checked all references and
everything appears to be there.

Run the following code on that system and let us know the results.

Sub ViewReferenceDetails()

Dim ref As Reference

For Each ref In Access.References
Debug.Print ref.Name & " - " & ref.Major & "." & ref.Minor & "
- " & ref.FullPath
Next ref

End Sub

Using Access 2K Ver9.0.2720

My version of A2000 is 9.0.6926 SP-3 so I'd get SP3 installed on that
system ASAP.

Me.Filter = "[Drop or Delivery Date]=" &_
format(searchfor, "mm/dd/yyyy")
& "#"

You're missing a # on the first line after
.... Delivery Date=#" & _
but that's likely a typo if you didn't copy and paste the code.

Tony
--
Tony Toews, Microsoft Access MVP
Tony's Main MS Access pages - http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/
For a free, convenient utility to keep your users FEs and other files
updated see http://www.autofeupdater.com/
Granite Fleet Manager http://www.granitefleet.com/

 

[AccessVandal via AccessMonster.com]

Just in case of a typo, you miss one charactor "#" and a space at "&_"

Me.Filter = "[Drop or Delivery Date] = #" & _
format(searchfor, "mm/dd/yyyy") & "#"

The customer had their people come in and reinstall everything on 1 system
after a virus. Operating system is XP Pro on all computers.

My code stopped working on this system. I checked all references and
everything appears to be there.

Using Access 2K Ver9.0.2720

The error happens when a check box is selected to filter the form for orders
that require attention for todays date.

"You can't carry out the action at the present time" The expression may not
result in the name of a macro, name of udf, or Event Procedure. There may
have been an error evaluating the function, event, or macro.

if me.ActiveControl = -1 then
Searchfor = Me.Text92
Me.Filter = "[Drop or Delivery Date]=" &_
format(searchfor, "mm/dd/yyyy")
& "#"
Me.FilterOn = True
Else
Me.filterOn = False
endif

Any direction would be helpful and appreciated