Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Không dừng lại được tại kết quả bản ghi cuối và bản ghi đầu
#1
Chào cả nhà,

Mình có 1 listbox liệt kê 1 loạt danh sách

Mình có tạo các nút tiến tới bản ghi tiếp theo và lùi về bản ghi trước đó

Lênh bên dưới đã chạy nhưng khi tiến đến bản ghi cuối và lùi về bản ghi đầu nó ko dừng lại mà lại chạy tiếp ...
Xin mọi người xem code e và bổ xung giúp ạ
Mã:
Private Sub gotoNext_Click()
On Error GoTo Err_gotoNext_Click
   With Me.lstItems
      .SetFocus
      If .ListIndex < .ListCount Then
         .ListIndex = .ListIndex + 1
      End If
   End With
Exit_gotoNext_Click:
   Exit Sub
Err_gotoNext_Click:
   'MsgBox Err.Description
   'MsgBox "End the Record"
   Resume Exit_gotoNext_Click
   MsgBox "End the Record"
End Sub

Private Sub gotoPrevious_Click()
On Error GoTo Err_gotoPrevious_Click
    
   With Me.lstItems
      .SetFocus
    'End If
      If .ListIndex < .ListCount Then
         .ListIndex = .ListIndex - 1
      End If
   End With
Exit_gotoPrevious_Click:
   Exit Sub
Err_gotoPrevious_Click:
   'MsgBox Err.Description
   'MsgBox "End the Record"
   Resume Exit_gotoPrevious_Click
End Sub

Cảm ơn
Chữ ký của uronmapu Cảm ơn cả nhà

Để học Access không nên ngại đặt câu hỏi


Uron
Reply
Những người đã cảm ơn
#2
Xin mọi người giúp đỡ e với ạ

Em cảm ơn nhiều
Chữ ký của uronmapu Cảm ơn cả nhà

Để học Access không nên ngại đặt câu hỏi


Uron
Reply
Những người đã cảm ơn
#3
Mình làm được nút lùi về bản ghi đầu sẽ có thông báo được rồi nhưng làm với nút tiến thì nó cứ chạy hoài, hết giá trị cuối nó lại chạy vòng lên đầu chạy tiếp sad

Câu lệnh của mình với nút lùi

Mã:
Private Sub gotoPrevious_Click()
On Error GoTo Err_gotoPrevious_Click
    
   With Me.lstItems
      .SetFocus
      If .ListIndex < .ListCount Then
         .ListIndex = .ListIndex - 1
         MsgBox "First Contact", , "First Contact"
      End If
   End With
Exit_gotoPrevious_Click:
   Exit Sub
Err_gotoPrevious_Click:
   'MsgBox Err.Description
   'MsgBox "End the Record"
   Resume Exit_gotoPrevious_Click
End Sub

Mình làm tương tự với nút tiến nhưng ko được

Mã:
Private Sub gotoNext_Click()
On Error GoTo Err_gotoNext_Click
   With Me.lstItems
      .SetFocus
    If .ListIndex < .ListCount Then
        .ListIndex = .ListIndex + 1
        MsgBox "End the Contact", , "End the Contact"
         End If
   End With
Exit_gotoNext_Click:
   Exit Sub
Err_gotoNext_Click:
   'MsgBox Err.Description
   Resume Exit_gotoNext_Click
End Subp

Xin mọi người tư vấn
Chữ ký của uronmapu Cảm ơn cả nhà

Để học Access không nên ngại đặt câu hỏi


Uron
Reply
Những người đã cảm ơn
#4
Đã có lời giải

Chia se mọi người lệnh bên dưới với Listbox cho dù mọi người ko muốn chia se với Uron

Mã:
Private Sub gotoNext_Click()
On Error GoTo Err_gotoNext_Click
    
   With Me.lstItems
      .SetFocus
      If [lstItems].[ListIndex] + 1 < [lstItems].[ListCount] - 1 Then
         .ListIndex = .ListIndex + 1
         ElseIf [lstItems].[ListIndex] + 1 = [lstItems].[ListCount] - 1 Then
         MsgBox "End the Record"
        
      End If
   End With
Exit_gotoNext_Click:
   Exit Sub
Err_gotoNext_Click:
   'MsgBox Err.Description
   'MsgBox "End the Record"
   Resume Exit_gotoNext_Click
End Sub
Chữ ký của uronmapu Cảm ơn cả nhà

Để học Access không nên ngại đặt câu hỏi


Uron
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Tại saoform không hiện thị được dấu phân cách hàng ngàn thanhhao 6 182 26-06-17, 11:45 AM
Bài mới nhất: tranthanhan1962
  Hướng Dẫn xin các acc chỉ dùm e sữa lại cấu trúc lệnh kế tiếp mà không được conmaleTK21 3 122 22-06-17, 11:00 PM
Bài mới nhất: tranthanhan1962
  hàm Dlookup không hoạt động ở máy khác thanhtruong 3 172 17-06-17, 07:32 PM
Bài mới nhất: tranthanhan1962
Sad Refresh form không được William 5 186 01-06-17, 04:50 PM
Bài mới nhất: cpucloi
  Demo Form Tìm kiếm (ngay khi gõ) nhiều tiêu chí (dùng Hàm) ongke0711 0 152 08-05-17, 02:33 AM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ