มือใหม่ครับคือผมต้องการสร้างลำดับที่อัตโนมัติ ในตาราง Patien ในฟิลด์ Patien_ID โดยอ้างอิงจากอีกตารางหนึ่งคือ Patein History ฟิลด์ Patien_ID โดยมีเหตุการณ์ที่จะสร้างดังนี้ครับ
   1.ฟิลด์ Patien_ID ในตาราง Patien ว่างไม่มีข้อมูลให้อ้างอิงจากตาราง Patien Hitorry ฟิลด์ Patien_ID
   2.ฟิลด์ Patien_ID ในตาราง Patien มีข้อมูลให้อ้างอิงตาราง Patien ฟิลด์ Patien_ID ตารางของมันเอง

ตาราง Patien
   Patien_ID
   540005
ตาราง Patien Hitory
   Patien_ID
540001
540002
540003
540004
ซึ่งผมได้เขียน code ดังนี้
Private Sub Cmdnewid_Click()
Me.Patien_ID = AotoNo
End Sub
Function AotoNo() As String
Dim x As Variant
Dim bx As String
    x = DMax("Right(Patien_ID,4)", "Patien", "left(Patien_ID,2)=" & Format(Now(), "yy"))
    If IsNull(x) Then bk = 1 Else bk = x + 1
    AotoNo = Format(Now(), "yy") & "" & Format(bk, "0000")
End Function

ไม่รู้ผมต้องเขียนเหงือนไขเพิ่มเติมอย่างไรดีท่านอาจารย์และผู้รู้ช่วยตอบหน่อยขอบพระคุณครับ