Incremental Numbering

[netman1002]

I am computerizing service tickets - I would like to create an incremental number as one of the fields. In addition I need to be able to set the starting value of the number

Scott

[MMcCarthy]

I am computerizing service tickets - I would like to create an incremental number as one of the fields. In addition I need to be able to set the starting value of the number

Scott

This would have to be set programmatically behind the data entry form probably in the On Current event.

 
Dim tempNum As Integer
 
tempNum=DMax("[ServiceID]","[TableName]")
 
If tempNum=0 or IsNull(tempNum) Then
    Me.ServiceID = 1 ' or whatever number you want
Else
    Me.ServiceID = tempNum + 1
End If
 
 

[Killer42]

Would IsNull work on an Integer?

[NeoPa]

Good spot Killer
Try this (plagiarised shamelessly from MMcCarthy's post)

'Any number here to start the count (at conBase + 1)
Private Const conBase As Integer = 0
 
Me.ServiceID = Nz(DMax("[ServiceID]", "[TableName]"), conBase) + 1

[MMcCarthy]

Thanks guys.

I'm always doing stupid things like that. Feel free to correct any time.

Good spot Killer
Try this (plagiarised shamelessly from MMcCarthy's post)

'Any number here to start the count (at conBase + 1)
Private Const conBase As Integer = 0
 
Me.ServiceID = Nz(DMax("[ServiceID]", "[TableName]"), conBase) + 1

[NeoPa]

Don't think of it like that M.
I always feel extra pleased if I can improve on something you've posted, and that's because of the reputation you've earned for high-quality work.