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

TỚI, LÙI TRONG LISTBOX

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • TỚI, LÙI TRONG LISTBOX
• TỚI, LÙI TRONG LISTBOX

• RE: TỚI, LÙI TRONG LISTBOX

  Xuân Thanh > 10-06-12, 06:47 PM

  (10-06-12, 06:34 PM)uronmapu Đã viết: Bác có thể xem file của e và thử được ko?
  
  File đây ạ: http://www.mediafire.com/?eudr6u97z7d937y
  
  Em làm ko chạy ạ
  
  E muốn nó hiện thị theo kiểu này ạ
  
  

  
  1/ Cho hiển thi txtRecCnt
  2/ ControlSource của txtRecCnt = "of " & [lstItems].[ListCount]
  3/ ControlSource của txtRecPos = [lstIntems].[ListIndex+1]

• RE: TỚI, LÙI TRONG LISTBOX

  uronmapu > 10-06-12, 06:59 PM

  Cái này thì ok rồi ạ
  
  2/ ControlSource của txtRecCnt = "of " & [lstItems].[ListCount]
  
  Còn phần 3 e vẫn ko lên bác ạ

• RE: TỚI, LÙI TRONG LISTBOX

  uronmapu > 10-06-12, 09:41 PM

  Ok hết rồi ạ
  
  

  Mã:

  =[lstItems].[ListIndex]+1

• RE: TỚI, LÙI TRONG LISTBOX

  uronmapu > 12-06-12, 03:04 PM

  Em xin hỏi thêm là với lệnh tiến và lùi của em như bên dưới thì làm thế nào để nó lùi về giá trị thứ 2 thì sẽ thông báo là giá trị đầu, tiến về giá trị cuối có thông báo là giá trị cuối
  
  Cảm ơn
  
  

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

• RE: TỚI, LÙI TRONG LISTBOX

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

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

• RE: TỚI, LÙI TRONG LISTBOX

  hugox03 > 06-03-13, 12:12 PM

  Sao file của bạn bi die hoai vậy ?
• Bài trước Bài tiếp