Button Next Record khi đến row cuối cùng thì về record đầu tiên

[duhero]

E chào cả nhà, em có đang làm 1 ứng dụng nhỏ cho mình, nhưng đang bị mắc chỗ button NEXT
khi đang ở row cuối cùng của table mà nhấn tiếp thì báo lỗi, giờ e muốn nó quay trở về row đầu tiên thì làm như thế nào ạ?
Cảm ơn các bác đã quan tâm ạ

 

[chucuoi92]

Tạo một biến bằng số dòng cuối,Nút NEXT thêm điều kiện đó vào.

 

[duhero]

bác chỉ e cụ thể được không? e ko rành về nó lắm chỉ là mày mò tự làm cho mình thui

 

[chucuoi92]

bác chỉ e cụ thể được không? e ko rành về nó lắm chỉ là mày mò tự làm cho mình thui

Thì phải có file "cụ tỉ" ra sao thì mới biết chứ
Bạn hỏi như vậy thì cũng chỉ trả lời vậy thôi.

 

[duhero]

Thì phải có file "cụ tỉ" ra sao thì mới biết chứ
Bạn hỏi như vậy thì cũng chỉ trả lời vậy thôi.

ah code của em lượm nhặt như này:

Private Sub cmdEdit_Click()
    
    If Me.cmdEdit.Caption = "Lock" Then
    Me.cmdEdit.Caption = "Edit"
    Me.cmdEdit.BackColor = vbYellow
        Me.AllowAdditions = False
        Me.AllowEdits = False
        Me.AllowDeletions = False
        DoCmd.GoToRecord , , acNext
        
    Else
    Me.cmdEdit.Caption = "Lock"
    Me.cmdEdit.BackColor = vbRed
        Me.AllowAdditions = True
        Me.AllowEdits = True
        Me.AllowDeletions = True
    End If
End Sub

 

[duhero]

E đã làm được rồi. thank @chucuoi92

 

[chucuoi92]

E đã làm được rồi. thank @chucuoi92

Bạn giỏi thiệt đó. Mình xem code của bạn mà chẳng hiểu "mô tê" gì cả.

 

[duhero]

Không dám, mình ko phải dân code ko dám nhận đâu ạ. Code trên của nút sửa khi nhấn vào nó mới cho sửa và chuyển màu thành vàng, ấn lại lần nữa nó khóa ko cho sửa và chuyển thành màu đỏ thôi ạ