Đá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 5 230 15-11-17, 03:47 PM
Bài mới nhất: tranthanhan1962
  Câu lệnh nào ẩn button trong form? William 3 241 15-11-17, 11:30 AM
Bài mới nhất: cpucloi
Photo Thiết kế combobox chứa giới tính trong Access binhpc 4 179 09-11-17, 03:05 PM
Bài mới nhất: ongke0711
  coppy dữ liệu giữa 2 subform trong 1 form doandiepanh 3 138 24-10-17, 03:07 PM
Bài mới nhất: tranthanhan1962
  [Help] 2 subform trong mainform pvhung76 7 278 18-10-17, 11:48 PM
Bài mới nhất: tranthanhan1962

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ơ