ถ้าอยากให้ข้อมูลมีแค่ฟิว DocNo แค่ฟิวเดียว พอมีวิธีมั้ยค่ะ
ตัวอย่างเลขที่ DocNo.     AAA00109
001     คือลำดับเลขที่เอกสาร

Private Sub Add_Click()
DoCmd.GoToRecord , , acNewRec
Dim tmpDate As String
Dim tmpCopy As String
Dim nMax As Integer

tmpDate = Format(Now, "YY")
If IsNull(DMax("val(ใส่คำว่าอะไรค่ะ([DocNo],3))", "tbDocuments ", "left([DocNo],3)='" & "AAA" '")) Then
    Me.DocNo = "AAA" & "001"& tmpDate
Else
    nMax = DMax("val(ใส่คำว่าอะไรค่ะ([DocNo],3))", " tbDocuments ", "left([DocNo],3)='" & "AAA" '")
    Me. DocNo = "AAA" & Format(nMax + 1, "000")& tmpDate
End If
End Sub