Solved

# DMAX with Letters - Alphanumeric

Posted on 2006-07-13
455 Views
I have a form where I have a control that calculates a DMax for a field in a table. This works fine and the current value is AT1372

I now need to create the next ID number which will be fed into the next episode that is entered into the database (the answer should be AT1373). Unfortunately I cannot get it to add another digit.

The textbox that I have created which gives the DMax have the following equation:

Textbox is called EPISODEmax

As I mentioned above this is working

I have tried NZ and also +1 outside brackets etc but it won't work. Is there a way of doing this or will the letters (AT) be preventing the calculation?
0
Question by:martywal
[X]
###### Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

• Help others & share knowledge
• Earn cash & points

LVL 4

Assisted Solution

Carl2002 earned 75 total points
ID: 17100564
marytwal

you are correct in your thinking that the AT is preventing the addition as its a textfield. you need to think about splitting the text and numbers adding 1 to the number and then concatenanting again
0

LVL 44

Accepted Solution

GRayL earned 100 total points
ID: 17100599
Assuming there is always a two-letter prefix try this:

=left(mystr,2) & strreverse(val(strreverse(mystr)))+1
0

LVL 65

Assisted Solution

ID: 17100608
U could perhaps use this function to extract the numeric, then add one
e.g.

Public Function ExtractNumeric(ByVal sWord As String) As String

Dim i As Integer
Dim sNewNumber As String

sNewNumber = ""
For i = 1 To Len(sWord)
If IsNumeric(Mid\$(sWord, i, 1)) Then sNewNumber = sNewNumber & Mid\$(sWord, i, 1)
Next i
ExtractNumeric = sNewNumber
End Function

' test sub

Public Sub TestSub()

Dim sOldValue As String
Dim sNewValue As String

sOldValue = "AT1327"
sNewValue = ExtractNumeric(sOldValue)
If sNewValue <> "" Then
sNewValue = Replace(sOldValue, sNewValue, Val(sNewValue) + 1)
Else
sNewValue = 1
End If

MsgBox "From " & sOldValue & vbCrLf & "to " & sNewValue
End Sub

0

Author Comment

ID: 17100694
THanks Experts, I ended up going for the split out into two text boxes and concatenating which did the trick.

Will split points ;-)
0

LVL 44

Expert Comment

ID: 17112344
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

AutoNumbers should increment automatically, without duplicates.  But sometimes something goes wrong, and the next AutoNumber value is a duplicate.  This article shows how to recover from this problem.
The Windows Phone Theme Colours is a tight, powerful, and well balanced palette. This tiny Access application makes it a snap to select and pick a value. And it doubles as an intro to implementing WithEvents, one of Access' hidden gems.
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
###### Suggested Courses
Course of the Month3 days, 7 hours left to enroll