Search results

No, It is numbers only

This is 100% correct

THANK YOU!! I tried to spin it around but got more errors. I didn't quite have it right :) This works PERFECT! :) It also helps (for me anyhow) to be able to see the correct code and learn from it ;)

The approach I have taken works perfectly for the application I am using. The only issue I am having is getting the correct messages to display when needed and I am sure this is only going to require a minor change from what I have cobbled together.

Can you give me a hint? I have literally pieced this together from half a dozen different sites lol

Yes, I considered a simple combo box but the list of quotes would go on for miles and it's just not a neat approach for this particular scenario.

Hmmm.. I am obviously missing something important lol. But I'm not sure what. I now have the following code Private Sub EditQuoteBtn_Click() If IsNull(DLookup("QuoteNumber", "JobDetails", "QuoteNumber=" & Me.QuoteSearchTxt)) Then MsgBox MESSAGETEXT, vbExclamation, "Quote Number Does Not...

Hi guys! My question for this week is... lol I have created a text box in my main screen/form to enter a quote number and then created a button to start a search for that quote number. This in turn opens a form to be able to edit that specific quote. I have also added an error message if the...

Cool :) I hope you got through all the floods OK.

So much help with the last question so I'll try my luck again lol. I have created a button on my form and used the following code to save a quote as a PDF and name it "

Good to know. I was under the impression that if left blank it would be treated as null rather than 0. I'll remove it to tidy it up (y):)

Thank you mate that works perfectly, except I added the Nz back in to convert to Null to a 0 :) If Nz(DCount("QuoteNumber", "JobDetails")) = 0 Then QuoteNumber = 6000 Else QuoteNumber = DMax("QuoteNumber", "JobDetails") + 1 End If

I thought I might be clever.. but failed lol. Is there something in this that I am missing or will this just not work as I'm thinking? This works to add the 6000 in as the first record but it wont add the next record in as 6001 If IsNull(Me.QuoteNumber) Then QuoteNumber =...

OK I used the code as above on the BeforeInsert and it works great!! QuoteNumber = Nz(DMax("QuoteNumber", "JobDetails"), 6000) + 1 Thanks to everyone for the help :) I have one more request if it is possible to do lol With an empty database, the form now creates the first number as 6000 (if...

I'm getting a compile error for some reason saying the +1 should be a =1 :confused:

Sorry, Where do I use this?

I personally believe the human is the most dangerous, disrespectful and ignorant animal on the planet lol... But I'll leave that for a different forum lol. ;)

I'm not sure this is the best approach but this is what I have... JobID = AutoNumber QuoteNumber = Calculated = [JobID]+6000 This works but fails if a record is not completed or if a record is deleted as the QuoteNumber would then not match quotes that he sends out. So How do I start a new...

Hi everyone! New to the forum (Yeah... I guess that's obvious lol). Live in the land down under, Gold Coast, QLD, Australia with all of the world's most dangerous animals 😂 Have been away from access for a long long time and now trying to find my way through the maze of functions, codes and...