Đá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
  Code VBA không chạy trong access 2016 tranthanhan1962 1 13 2 Giờ trước
Bài mới nhất: ongke0711
  [Help] chụp hình webcam trong access babyrock2009 16 537 01-09-17, 01:58 PM
Bài mới nhất: lehongduc
Exclamation [Help] Truy vấn từ 1 list box trong form và điều chỉnh kích thước form tien1505 4 179 01-07-17, 12:34 AM
Bài mới nhất: tien1505
  Lấy dữ liệu từ 2 subform trong Mainform thanhtruong 39 1,960 10-06-17, 08:22 AM
Bài mới nhất: thanhtruong
  Câu lệnh nào ẩn button trong form? William 1 147 01-06-17, 04:26 PM
Bài mới nhất: cpucloi

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ơ