Search results

Worked it out myself: Yay OnCurrent Me.PendingFilterCount = DCount("[ID]", "MyQueryBehindTheForm", "[Status] = 'Pending'")

My form has several filter "buttons". What I am looking to do illustrate, underneath the button,how many records are pertaining to that particular filter so that it flags to the user that there are issues with those particular records. I already have an OnCurrent as so : Private Sub...

Many thanks isladogs.

I am trying to filter my data based upon the content of the data within the field that I wish to filter. I'm getting rather lost. Could you help me please? This is what I have tried on click DoCmd.ApplyFilter , "SalesPerson = Me.Salesperson" DoCmd.RunCommand acCmdRecordsGoToLast Thanks for...

Figured it out: DoCmd.ApplyFilter , "Status Like 'Pre*' "

I'm confused by the use of single and double quotes. Could somebody please help me with my syntax. Thanks

Thanks Doc. I'm still struggling though!!!

Hi All I want to capture all variables that begin with the word "Pre" DoCmd.ApplyFilter , "Status = 'Pre*'" I'm a bit confused by & and '''''''' and """"""""" Is there a go to place to learn the syntax? Thanks in advance

I just happened to try yours first and it worked ! I didn't need to compare.

Thanks Guys I tried Gasman's solution and it works perfectly. Many thanks.

Just having trouble getting my filter to work: Dim strMyLast As String strMyLast = "Status <> 'Completed' And User = Me.UserName" Debug.Print strMyLast Me.Filter = strMyLast Me.FilterOn = True Im trying to filter my form by everything not completed and by the a field called userName that...

I am trying to automate exporting several RunSavedExport but I've come up against the " IDENTITY_INSERT is already on" I have tried to call a pass-through query after each import as follows: ALTER PROCEDURE [dbo].[IdentityMyTable] AS BEGIN SET IDENTITY_INSERT [dbo].[tblMyTable] OFF END But...

FIXED I found this. With Me.Recordset .FindFirst "[ID] = " & Me.GotoCPID If .NoMatch Then MsgBox Me.GotoCPID & " was not found" End With

I tried to put it before the code but when I debug its says that "Only Comments may appear after end Sub, end property End function" I then removed it all together but still no results !!

This is my current code that doesn't error. It just doesn't work. I have entered my own field names instead of Arny's generic names. GotoCPID is the search field ID is the field to search Private Sub GotoCPID_AfterUpdate() Dim strSavedSearch As String If Trim(Me.GotoCPID & "") <> ""...

I'm afraid Im getting no results from the changed code Arny ?

Hi Minty I'm struggling to remove the * correctly !!! Could you possibly help by editing this please? the FieldToSearch is a Unique ID .FindNext "[FieldToSearch] LIKE '*" & Me.txtSEARCH & "*'"

The field that I am searching IS the index !!

Thanks Arnelgp. It works fine however it takes over a minute to actually work !!!

I have a search field on my form as a filter. Could anybody direct me to AfterUpdate the forms data set remains in the same order but the focus goes to the relevant "searched" record. Oh PS. It's on a split form (sorry !!)