Đá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] Lỗi khi dùng VBA - Combobox toidjtjmtoi 4 73 7 Giờ trước
Bài mới nhất: shevchenki
  [Hỏi] cách Khóa form không cho click ra ngoài toidjtjmtoi 3 101 08-09-17, 12:30 PM
Bài mới nhất: toidjtjmtoi
  [Lỗi] Lỗi không mở được form cawboy 5 127 28-08-17, 06:42 PM
Bài mới nhất: ongke0711
  Hiện nội dung record của subform lên main form hueqlhc 9 2,782 02-08-17, 04:36 PM
Bài mới nhất: tvn_hut
  [Hỏi] Tại saoform không hiện thị được dấu phân cách hàng ngàn thanhhao 6 256 26-06-17, 11:45 AM
Bài mới nhất: tranthanhan1962

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ơ