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...
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 :)
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...
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...
Yeah I copied and pasted
I made a small Db to demonstrate in attachment..
Search for either b,c,d,e,f,g
have commented out the working filter, as you will see.
Thanks again for your time.. I very much appreciate it..
Nick
Is there a chance you can help me with the wildcard syntax. What I have done is wrong and doesn't work.
Guessing something like, but not...:)
Me.[Small_Part_Search_F].Form.Filter = "[PartNumber] =(Like ""*"" & Me.Search_txt2 & ""*"")"
Or
Me.[Small_Part_Search_F].Form.Filter = "[PartNumber]...
haha, sorry, just wanted to make sure you could read it.... You should see my actual search form or customer form.
This isn't going to be what the end user sees, just trying to get it to function as intended.
When on "My Customer Form" you can click to add a purchase order, parsing the...