Auto Increased Value

[vazdajic]

Hello everybody.. As everything is explained on the picture below, please assist if you can.



Thanks.

[June7]

Review https://www.accessforums.net/showthread.php?t=23329

[vazdajic]

Hm.. Too complicated for me, to be honest.. Any simpler solution?

[aytee111]

Create a query for the number part of the req (Right(RT_Req,4))

Create a variable for the req nbr
- Dim ReqNbr as Integer, RTReq AS String
- ReqNbr=CInt(Dlookup("Max(RT_REQ_NBR)","queryname") + 1
- RTReq="RT-" & Format(ReqNbr,"0000")

Create a variable string
- Dim strSQL as String

Populate it with an UPDATE query
- strsql="UPDATE ...."
(create the query in query design, get it working, then copy and paste the SQL to here)
Change the update of RT_Req to: '" & RTReq & "'