• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Bấm Space hiện ra danh sách trong combo box

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Bấm Space hiện ra danh sách trong combo box
• Bấm Space hiện ra danh sách trong combo box

• Bấm Space hiện ra danh sách trong combo box

  huuduy.duy > 12-07-13, 03:57 PM

  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

• RE: Bấm Space hiện ra danh sách trong combo box

  Minh Tiên > 12-07-13, 04:28 PM

  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 !

• RE: Bấm Space hiện ra danh sách trong combo box

  Noname > 12-07-13, 04:39 PM

  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

• RE: Bấm Space hiện ra danh sách trong combo box

  trav2t > 13-07-13, 01:55 AM

  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
• Bài trước Bài tiếp