Đá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
  Tạo Menu dạng TreeView bằng Query (không dùng ActiveX) ongke0711 4 269 06-12-16, 09:16 PM
Bài mới nhất: toancvp
  [Hỏi] Làm sao để ấn định Null cho trường Date khi sử dụng Class Module Minh Tiên 8 615 18-11-16, 09:29 AM
Bài mới nhất: MinhnHang
  [Help] Giúp đỡ về cách xóa nội dung trong một field nam8384 2 119 17-10-16, 08:43 PM
Bài mới nhất: toancvp
  [Hỏi] Sử dụng chuột giữa trong subform là report. toancvp 10 361 12-10-16, 01:01 AM
Bài mới nhất: toancvp
  [Help] Áp dụng query lọc dữ liệu nhập vào form amazonvn82 8 1,355 05-10-16, 03:11 PM
Bài mới nhất: amazonvn82

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ơ