Want to add buttons to go one record higher

[hendrikbez]

I do have about 14 textboxes inputs.

On one of them I always put in a number "5421MAG2110 eg. The last 4 numbers can change every time, If I put in one tape for 12/01/2016 it will go to next number, If I put in 4 tapes to same date in will use the same number for all 4.

I want to put a plus 1 and keep same buttons on my form, so when I press plus 1 button, it must get the last record number from my table and add a number 1 higher that the one in the table.

I do not know how to do this, is there a sample on how to do this.

[ranman256]

Sub btnAdd_Click()
Dim vNum 

VNum = Dlookup("[num","table","[date]=#" & txtDate & "#")
vNum = vNum + 1

txtCounter = vNum
end sub

[June7]

Your 'number' includes alphas. This will require code to parse the string to extract the numeric sequence, increment, then rebuild the string.

Generating custom unique identifier is a common topic. Start with:
https://www.accessforums.net/forms/a...ing-23329.html
https://www.accessforums.net/databas...try-21975.html

[hendrikbez]

ranman256, thank you, but I only put the date in later,so I need it to do the following

Get the last record (StickerNumber) from table (Tapes) and then put it in the input textbox (StickerNumber) when I press button (+1) to put number in +1, or button (same) do not add extra number in)

Hope you understand what I need. If you need I can send you a sample of my file.

I have tried this, but is says I missing ),], or item in query expression '[stickernumber]'.


Private Sub addnumber_1_Click()
Dim vNum
vNum = DLookup("[StickerNumber", "Tapes", "[stickernumber]=#" & StickerNumber & "#")
vNum = vNum + 1

txtCounter = vNum
End Sub

[June7]

Did you review the links in post 3?

[hendrikbez]

Yes I did, but it does not look what I need

[June7]

It should be relevant and give you basic code constructs to adapt for your situation.