John Big Booty
AWF VIP
- Local time
- Today, 15:59
- Joined
- Aug 29, 2005
- Messages
- 8,263
This should do it;
Code:
Dim strOrdNum As String
If Me.OrderNum = 0 Or IsNull(Me.OrderNum) Then 'check if this record already holds and order number
strOrdNum = Nz(DMax("OrderNum", "Table1"), 1)
Me.OrderNum = "ORD" & Right(strOrdNum, Len(strOrdNum) - 3) + 1
End If