Recent content by tssparky

Is there a way to force ignore case in a search?

what i have is a form button event that dims the vars and opens another form, passes the openArgs and performs a search. The problem I'm having is the search is case sensitive so unless the case is correct i get no results. I have spent a bit of time on it and just can't work it out.. this is...

I have a report with a field called "status" The report only shows items with a status of "open" I want to be able to loop through the line items and change the status's to "closed" with a button click. I can do this with a form if needed. Thanks for your help.

Thanks guys for the help, Particularly MarKK. Using MarKK's Method I use this in our system. I used this in a query to round down to nearest .05 being in a Currency Format. Works well enough if you don't mind loosing up to .04 of a cent every transaction...

Will try that now, this was one of my other ideas but had no idea on how to do it.. Thanks... Will post back how I go....

I tried this Private Function CopyCurrentRecord() Dim strSQL As String Dim strSearchTerm As String strSearchTerm = Me.Text38 strSQL = _ "INSERT INTO SearchData_T " & _ "SELECT * " & _ "FROM [strSearchTerm] " & _ "WHERE SearchTerm = " &...

Hello, So I want to be able to save prior search terms used to search our database so they can be called with, for example, a back button and re perform the search. I can work out how to save the data of one search but not sure how I would go about doing that for the last say 5 searched...

Got it all working, Thanks a lot Don't know what i was thinking to miss that.. Me.Text38 = Int(Replace(Me.Text38, " ", "")) Ended up using this as it's a string and works as intended. Me.Text38 = Replace(Me.Text38, " ", "") Thank you all for the help :)

Yeah it's strange, not sure why.

Thank you for that, unfortunately i'm getting an error. When i paste int(replace(Text38," ","")) I get Compile Error Expected: Identifier And "int" is highlighted Tried as many ways as I could think of (still a beginner), even crashed access twice lol.:).... Any others ways to write...

Hi everyone, I'm using this piece of code to remove any "zero's" at the start of whatever number a person puts into the text box (Text38), this works great. Dim RemZero As Integer For RemZero = 1 To Len(Text38) If Left(Text38, 1) = "0" Then Text38 = Right(Text38, Len(Text38) - 1) End If...

Thank you, works great.......

Thanks for that Moke123, Im getting an error, Private Sub Date_btn_Click() Dim strFilter As String strFilter = "([Order_Date] >= #" & Me.DateFrom & "# And [Order_Date] <= #" & Me.DateTo & "#)" Me.OpenOrderForm.Filter = strFilter ( Method Or data member not found)...

Hello guys, I have A filter that I use to filter a date range of orders, works ok if everything is all on one form. Much the same as the last filter problem I had. So I have a form with Tab Control, a datasheet of all orders in a subform on "Tab1". On "Tab1" (Main)I have the text boxes and...

Thank you Thank you Thank you :):):):):):):):):) Thought it was just a simple error, simple when you know anyway :D Nick