Function NewSample

[azhar2006]

Hello June7
There are lines of codes you


Is it possible for example in DB

Public Function NewSample() As String
Dim strLabNum As String
'search for aborted lab number and use that record, else if none then create new record
strLabNum = Nz(DLookup("LabNum", "Submit", "IsNull(DateEnter)"), "")
If strLabNum <> "" Then
    CurrentDb.Execute "UPDATE Submit SET DateEnter=#" & Date & "# WHERE LabNum='" & strLabNum & "'"
Else
    strLabNum = Nz(DMax("LabNum", "Submit"), "")
    If strLabNum = "" Then
        'this accommodates very first generated number of blank database
        strLabNum = Year(Date) & "A-0001"
    Else
        'this accommodates change in year
        If Left(strLabNum, 4) = CStr(Year(Date)) Then
            strLabNum = Left(strLabNum, 6) & Format(Right(strLabNum, 4) + 1, "0000")
        Else
            strLabNum = Year(Date) & "A-0001"
        End If
    End If
    CurrentDb.Execute "INSERT INTO Submit(LabNum, DateEnter, EnterWho) VALUES('" & strLabNum & "', #" & Date & "#, '" & Form_Menu.cbxUser & "')"
End If
Form_SampleManagement.ctrSampleList.Requery
NewSample = strLabNum
End Function

[June7]

Download db that code is in from https://app.box.com/shared/r8nea07sng

It is split design. Hold down shift key while opening frontend.

[azhar2006]

Thank you very much
But what is the name of the function did not see it

[June7]

It is in the Misc module. The function name might be different in that uploaded version. Maybe GetNewLabNumber. I will have to check later.

[azhar2006]

I have not found Thank you very much June
Is it possible to create something simple from one table

[June7]

I just confirmed in my current version that the function is named NewSample and it is in the Misc module. I am not going to build another db to demonstrate what is already available in provided db. Take the code sample and adapt to your requirements. When you encounter specific issue, post question.

[azhar2006]

Well, and I will work on it Thank you June