Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Bấm Space hiện ra danh sách trong combo box
#1
Em có 1 Form có chứa các Combo box. Thường khi cho dữ liệu chứa trong combo box thì phải click vô dấu tam giác của Combo box. Nay em muốn khi mình bấm Tab đến vị trí của Combo box và bấm phím Space thi sẽ hiện ra danh sách trong combo box và dỉ chuyển đến vị trí mình muốn sau đó bâm Enter thi dữ liệu được chọn
File của em đây http://www.mediafire.com/?xs4fn016hzx5cq0
Trân trọng cảm ơn
Chữ ký của huuduy.duy Xin chào, mình là huuduy.duy, Tham gia http://thuthuataccess.com/forum từ ngày 24-06 -13.
ღღღღღTài sản của huuduy.duy (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
Sao bạn không tạo thói quen di chuyển con trỏ đến cbo box và bấm tổ hợp phím Alt + dấu mũi tên đi xuống sẽ mở danh sách dữ liệu trong combo.

Còn theo yêu cầu của bạn thì viết code cho Cbo cần mở là:

Private Sub Combo_Change()
Me.Combo.Dropdown
End Sub

Thế là OK !
Thân chào !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn huuduy.duy
#3
Ngoài ra ta có thể dùng phím F4 để xổ, Nó là quy định chung cho hầu hết tất cả cả combobox trong các ngôn ngữ thông dụng. Kể cả cửa sổ trong Windows
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn huuduy.duy
#4
Code trên chưa chuẩn đâu bạn. Bạn thêm copy và paste code này vào form nhé:

Option Compare Database


'Đây là code dùng để xổ xuống danh sách trong combo
'Đồng thời khi nhập từ bàn phím, combo tự động lọc dữ liệu cho bạn

Private Sub Combo3_GotFocus()
Me.Combo3.Dropdown
End Sub
Private Sub Combo5_GotFocus()
Me.Combo5.Dropdown
End Sub
Private Sub Combo7_GotFocus()
Me.Combo7.Dropdown
End Sub

'Đây là code không cho người ta nhập từ bàn phím nhưng chưa được khai báo trong combo
'Bắt buộc chọn từ danh sách hoặc nhập từ bàn phím nhưng đã được khai báo trước trong combo


Private Sub Combo3_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
MsgBox "Thong tin khong dung. De nghi chon tu danh sach.", , "Thong bao!"
End Sub
Private Sub Combo5_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
MsgBox "Thong tin khong dung. De nghi chon tu danh sach.", , "Thong bao!"
End Sub
Private Sub Combo7_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
MsgBox "Thong tin khong dung. De nghi chon tu danh sach.", , "Thong bao!"
End Sub
Reply
Những người đã cảm ơn huuduy.duy


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Cách đề tạo Combo Box và List Box Tương ứng Godspear 10 314 6 Giờ trước
Bài mới nhất: toancvp
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
  Query hiện lên trên form? feeling 4 167 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  [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

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ơ