เรียน อาจารย์
รบกวนถามเรื่อง การสร้าง ปุ่ม move first , Move Previous , Move Next , Move last ใน Microsoft access นะค่ะ
พยายามทำอยู่หลายรอบ แต่ก็ไม่ไปซักกะที ไม่รู้ติดตรงไหนค่ะ
คือ ฐานข้อมูลเป็น Sql Server ต้องใช้ คำสั่ง Sql ทั้งหมดเลยค่ะ แต่มาติดตัวนี้ละ งง ๆ มากๆ เลยค่ะ



code ดังนี้

Private Sub CmdFirst_Click()
        chk = "MoveFirst"
        Firstnext
        to_txt
End Sub

Private Sub CmdLast_Click()
        chk = "Movelast"
        Firstnext
        to_txt
End Sub

Private Sub CmdNext_Click()
        chk = "Movenext"
        Firstnext
        to_txt
End Sub

Private Sub CmdPrevious_Click()
        chk = "Previous"
        Firstnext
        to_txt
End Sub

Sub Firstnext()
'    OpendbUser
'    SQLUser = "Select * from TTQC019901 order by TTQC01990101"
'    With ConnectDBUser(SQLUser)
               If rsUser.RecordCount = 0 Then MsgBox "¢éÍÁÙÅÇèÒ§", vbCritical + vbOKOnly, "Empty": Exit Sub
                        If chk = "Previous" Then
                                rsUser.MovePrevious
                                If rsUser.BOF Then rsUser.MoveFirst
                        ElseIf chk = "Movelast" Then
                                rsUser.MoveLast
                                If rsUser.EOF Then rsUser.MoveLast
                        ElseIf chk = "Movenext" Then
                                If rsUser.EOF Then rsUser.MovePrevious: Exit Sub
                                rsUser.MoveNext
                        ElseIf chk = "MoveFirst" Then
                                    rsUser.MoveFirst
                                    If rsUser.BOF Then rsUser.MoveFirst
                        End If
'        End With
End Sub



Sub to_txt()
           OpendbUser
            SQLUser = "Select * from TTQC019901 order by TTQC01990101 DESC"
               With ConnectDBUser(SQLUser)
                        TxtUser_account = .Fields("TTQC01990111")
                        txtname = .Fields("TTQC01990102")
                        TxtEmp_no = .Fields("TTQC01990101")
                        CmbCom = .Fields("TTQC01990108")
                        CmbDep = .Fields("TTQC01990109")
                        CmbSec = .Fields("TTQC01990110")
                        
                        If .Fields("TTQC01990103") = "Admin" Then
                           OptAdmin.Value = True
                        Else
                            OptUser.Value = True
                        End If
            End With
End Sub