تقوم اخي الكريم بنسخ السطرين من الكود وتعديل رقمه ووضعه بالترتيب كما بالكود واضافة المسمى بالرقم في الجدول.. وخالص التحية لمعلمنا الفاضل أبو خليل جزاه الله وكل الإخوة كل خير
If ts1 = 4 Then
Me.no1 = "D" & i + 1
Private Sub ts1_AfterUpdate()
Dim db As Database
Dim rs As Recordset
Dim strSQL As String
Dim i As Long ' (1)هذا السطر
Set db = CurrentDb
strSQL = "SELECT Max(CLng(Right([no1],Len([no1])-1))) AS xc FROM tb WHERE (((tb.chk)=paray()))" '(2) وهذا السطر
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
If rs.RecordCount > 0 Then
rs.MoveFirst
On Error Resume Next
i = rs![xc]
If ts1 = 1 Then
Me.no1 = "A" & i + 1
ElseIf ts1 = 2 Then
Me.no1 = "B" & i + 1
ElseIf ts1 = 3 Then
Me.no1 = "C" & i + 1
End If
End If
rs.Close
Set rs = Nothing
Set db = Nothing
Me.chk = Me.ts1
End Sub