• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Không dừng lại được tại kết quả bản ghi cuối và bản ghi đầu

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Không dừng lại được tại kết quả bản ghi cuối và bản ghi đầu
• Không dừng lại được tại kết quả bản ghi cuối và bản ghi đầu

• Không dừng lại được tại kết quả bản ghi cuối và bản ghi đầu

  uronmapu > 12-06-12, 09:32 PM

  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

• RE: Không dừng lại được tại kết quả bản ghi cuối và bản ghi đầu

  uronmapu > 13-06-12, 08:49 AM

  Xin mọi người giúp đỡ e với ạ
  
  Em cảm ơn nhiều

• RE: Không dừng lại được tại kết quả bản ghi cuối và bản ghi đầu

  uronmapu > 13-06-12, 11:42 AM

  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
  
  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

• RE: Không dừng lại được tại kết quả bản ghi cuối và bản ghi đầu

  uronmapu > 17-06-12, 11:29 PM

  Đã 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
• Bài trước Bài tiếp