Update form

[gerrymouse1]

Hello,



I have a table with 5 areas on it. From a combo box. Each of these areas then have items entered against them and they are each given a number. Because I have 5 different areas I can have duplicate numbers.

eg Area 1 - Idea No 5
Area 4 - Idea No 5

Therefore AutoNumber does not work for this problem!

To get around this when an idea is entered I have a button on my form linked to a query. The query simply lists the Maximum Idea number of each Area. I simply call the query and increment by 1, (Add 1)

Dim Num As Integer
 
Num = Nz(DLookup("[MaxOfIdea No]", "[Max Number Of Ideas Query]", "[FI Area] = Forms![Ideas 2]![FI_Area]"))
 
Me.Idea_No = Num + 1

This is pretty simply. However the text box on the form does not update until the user clicks on the text box. How do I get the form to update the information after the button has been clicked????

Any help welcome!!!!

[gerrymouse1]

Problem sorted.

I renamed the text box the name of mu command button.

That was why I was getting strange results.

Cheers anyway for any one who had a look and a ponder!!