ใส่ฟังก์ชั่นนี้ไว้ในฟอร์ม วิธีใช้ก็เรียก GetPrevRec("ชื่อฟิลด์") หากมี error หรือหาค่าของเรคอร์ดก่อนหน้าไม่ได้ ก็จะคืนค่า Null กลับมา

Private Function GetPrevRec(FieldNM As String) As Variant
    Dim RS      As DAO.Recordset
    
On Error GoTo ExitRtn

    Set RS = Me.RecordsetClone
    If Me.NewRecord Then
        RS.MoveLast
    Else
        RS.Bookmark = Me.Bookmark
        RS.MovePrevious
    End If
    GetPrevRec = RS(FieldNM)
    RS.Close: Set RS = Nothing
    
ExitRtn:
    Exit Function
End Function


ลองทดสอบด้วยว่าโค้ดรันได้สมบูรณ์หรือไม่ ผมไม่ได้เทสนะครับ ให้ทดลองกับ
1. ฟอร์มที่ไม่มีเรคอร์ดอะไรอยู่เลย
2. ฟอร์มที่มีเรคอร์ด และเราไปที่เรคอร์ดใหม่
3. ฟอร์มที่มีเรคอร์ด และเราอยู่ที่เรคอร์ดแรก
3. ฟอร์มที่มีเรคอร์ด และเราอยู่ที่เรคอร์ดอื่นๆ

ขอคุณมากครับทำได้แล้ว