Hi Arnelgp,
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim strNewLeadNum As String
Dim v As Variant
strNewLeadNum = Nz(DMax("LeadNo", "tblLeadGeneration", "[LeadNo] like " & Left$(Year(Date), 2) & "*"), "")
If Len(strNewLeadNum) < 1 Then
strNewLeadNum = Right$(Year(Date), 2) & "-0001"...