Hi Gasman,
This is a multi user environment, generally up to 6 people concurrently using the system
not sure on the duplicate, chat GTP suggested this tidied version
Private Sub addNewId()
' Check if the Report No has already been generated
If Mid(Me.[Report No] & vbNullString, 3, 1)...