Search results

VBA code in Excel does not necessarily work in access. The link will not help me.

I can change the code to this suggestion, but then it errors out on WScript.Echo and says object required. The runtime 424 error.

I cannot get this code to run in access 2010. It shows no missing references, but errors that Object required. Thanks for any help provided. Dim wshShell, btn Set wshShell = WSCript.CreateObject("WScript.Shell") btn = wshShell.PopUp("Filter data wil be removed.", 2, "Data Unfilter:"...

pBaldy, this fixed the issue, works perfect. Thank you very much.

The report open fine, just when I click on one of the buttons to apply the filter from an option group selection, it pops up the window asking for a parameter value for "Z".

The report being discuss in this thread ask for a parameter value for "Z" when I apply a filter, it does it on AllCriteria button, the NoMoveCriteria button, or the CompanyCriteria button. I cannot find out why. If any can review the code below and point me in the right direction it would be...

This is what worked for me, I use strFilter2, because strFilter1 is the company, there are 4 different company that this data would apply to. "SC" is sight code that is given by the railroad. I have to use a command button to fire the different filters, one apply strFilter1, and one button...

I got it working, I was thinking to much. You advice worked. The data field I was using is in time format down to the second.

I tried this sir, can't seem to get it to work. Private Sub NoMove_Click() Select Case Me.NoMove.VALUE Case 1 Me.Filter = "CLM = Now() -2" Me.FilterOn = True End Select If Me.Filter = "" Then MsgBox "The filter returned Null" Else End If End Sub

How do I implement that into my code, I have not used this function before in an option group. Thanks for your help.

I have a retort that I want to use an option button to filter the report is a specific date is 48 hours before the current time. I'm not having any luck. Below is the code I have been playing with, but no go. :banghead:I appreciate any help provided. Thanks in advance.... Private Sub...

Ok. thanks.

I open the report. I click on Update Report, this will delete the current records in the CustomerStatus table and add records to the Customer Status table based on the selection of the parameters in the append query. Once these queries run, the report will only with the CustomerStatus table as...

Not sure this will work since there are 2 different forms involved, one form has listbox with the Destination City and the other form has listbox with the Current City. The command buttons are on the report and will load whichever form you want to filter Destination or Current.

I have a report on this report there is a Destination City field and a Current City field, loaded from a table. I have a command button that loads a form to filter on the destination city, I have another command button that loads a form to filter on the current city location. What I would like...

pr2, worked like a champ, I cannot thank you enough.

This is the field with the apostrophe in it. It is in red. DoCmd.OpenReport "rptPolyRezCost-Alt", acViewReport, , "Desc IN(" & strWhere & ")"

Where does that fit into my code?

I use the follwing code to filter a report based on the listbox selection on a form. Below is the code I use, the problem it will error if the results have an apostrophe in the string. Please help. Private Sub FilterDesc_Click() Dim strWhere As String Dim ctl As Control Dim varItem As Variant...

I must be missing something, I collect the filter in with the first 2 option groups in the first message, that filter is not applying with the about code that is behind a command button event.