Đánh giá chủ đề:
  • 2 Votes - 2 Average
  • 1
  • 2
  • 3
  • 4
  • 5
TỚI, LÙI TRONG LISTBOX
#11
(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 ạ

[Hình: ScreenHunter_01Jun101537.jpg]

1/ Cho hiển thi txtRecCnt
2/ ControlSource của txtRecCnt = "of " & [lstItems].[ListCount]
3/ ControlSource của txtRecPos = [lstIntems].[ListIndex+1]
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , uronmapu
#12
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 ạ
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
#13
Ok hết rồi ạ

Mã:
=[lstItems].[ListIndex]+1
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
#14
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
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
#15
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
#16
Sao file của bạn bi die hoai vậy ?024
ღღღღღTài sản của hugox03 (View All Items) ღღღღღ
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
  Lọc có điều kiện ở listbox phiacuoiconduong 2 97 18-11-16, 06:40 PM
Bài mới nhất: ongke0711
  [Help] Giúp đỡ về cách xóa nội dung trong một field nam8384 2 118 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 360 12-10-16, 01:01 AM
Bài mới nhất: toancvp
  Lọc theo điều kiện trong listbox Ranju 3 183 06-10-16, 05:26 PM
Bài mới nhất: Ranju
  Định dạng trong listbox feeling 3 163 06-10-16, 02:44 PM
Bài mới nhất: jeck09nt

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ơ