Adding a record with a new primary key

[thefairman]

Hello. I am a novice to access. I am creating a form to add records to my database. I have created a primary key that is not autonumber. When adding a new record, I want the form to put a primary key default value of the next number in sequence. How do I do this? Thanks in advance.

[June7]

Requires VBA code. Here is sample from my project:

Public Function GetNewLabNumber() As String
Dim strLabNum As String
strLabNum = Nz(DMax("LabNum", "Submit"), "")
If strLabNum <> "" Then
    If CDate(Left(strLabNum, 4)) = DatePart("yyyy", Date) Then
        GetNewLabNumber = Left(strLabNum, 6) & Format(Right(strLabNum, 4) + 1, "0000")
    Else
        GetNewLabNumber = DatePart("yyyy", Date) & "A-0001"
    End If
Else
    GetNewLabNumber = DatePart("yyyy", Date) & "A-0001"
End If
End Function

[thefairman]

Thanks June7. I'm not a programmer, but I have some people in my office that might be able to help me apply your code to my database. Thanks a lot for sharing.