Đá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ấy dữ liệu từ 2 subform trong Mainform thanhtruong 20 508 21-04-17, 06:36 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Hỏi về setting textbox và tabindex trên from và trong subfrom HoangManh 3 101 07-04-17, 11:57 AM
Bài mới nhất: HoangManh
  [Help] Truy vấn nhiều giá trị, nhập trong 1 textbox duy nhất ở form ckno1no 11 854 23-01-17, 01:32 PM
Bài mới nhất: ckno1no
  [Help] khoanh vùng tìm kiếm trong Search Form Godspear 3 223 19-01-17, 05:31 AM
Bài mới nhất: Godspear
  [Hỏi] Nhập dữ liệu sai trong combobox sẽ đưa ra thông báo cannguyen 2 250 12-12-16, 12:06 PM
Bài mới nhất: cannguyen

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ơ