combobox khi enter không dropdown

[DMQ]

Chào các anh chị!
Em có file nhập liệu bằng Form, trong form có 2 combobox, có sự kiện Enter thì Dropdown, nhưng khi em enter xuống combobox thứ 2 thì combobox thứ 2 lại không dropdown.
Em xin nói cách em làm như sau: gỏ ngày 23/08/2018 vào Tb_Ngay->enter->gỏ 123 vào Tb_SP->enter->gỏ ch vào Cb_TraiCay thì lúc này trong Cb_TraiCay hiện "Chanh", lúc này em gỏ enter để chọn "Chanh", và enter lần nữa thì mới nhảy xuống Cb_NuocUong và lúc này Cb_NuocUong mới dropdown.
Ý em muốn là có thể viết code sao để khi cái enter đầu tiên của Cb_TraiCay thì vừa chọn trong Cb_TraiCay vừa nhảy xuống Cb_NuocUong và Cb_NuocUong dropdown.
Ý của em hơi kỳ cục,nhưng không biết có thể làm được không các anh chị?

 

[be_09]

Chào các anh chị!
Em có file nhập liệu bằng Form, trong form có 2 combobox, có sự kiện Enter thì Dropdown, nhưng khi em enter xuống combobox thứ 2 thì combobox thứ 2 lại không dropdown.
Em xin nói cách em làm như sau: gỏ ngày 23/08/2018 vào Tb_Ngay->enter->gỏ 123 vào Tb_SP->enter->gỏ ch vào Cb_TraiCay thì lúc này trong Cb_TraiCay hiện "Chanh", lúc này em gỏ enter để chọn "Chanh", và enter lần nữa thì mới nhảy xuống Cb_NuocUong và lúc này Cb_NuocUong mới dropdown.
Ý em muốn là có thể viết code sao để khi cái enter đầu tiên của Cb_TraiCay thì vừa chọn trong Cb_TraiCay vừa nhảy xuống Cb_NuocUong và Cb_NuocUong dropdown.
Ý của em hơi kỳ cục,nhưng không biết có thể làm được không các anh chị?

Góp ý cho bạn:
Không ai chơi kiểu vậy hết.
Người ta dùng SheetForm để làm hóa đơn bán hàng và dùng nó để in hóa đơn, nếu theo hướng này thì sửa tiêu đề là "Tạo SheetForm để làm hóa đơn bán hàng" rồi đính kèm 1 sheet là danh mục hàng hóa.
Thêm 1 sheet danh mục hàng hóa gồm loại hàng hóa, ĐVT, đơn giá và sử dụng LIstBox để chọn nhập liệu nhanh nhiều loại hàng hóa cùng lúc.

 

[DMQ]

Ý của em là có thể viết code để ngay cái Enter đầu tiên của Cb_TraiCay thì là chọn trong Cb_Traicay và nhảy xuống Cb_NuocUong và Cb_NuocUong Dropdown luôn chứ không phải nhấn Enter lần nữa.

 

[giaiphap]

Ý của em là có thể viết code để ngay cái Enter đầu tiên của Cb_TraiCay thì là chọn trong Cb_Traicay và nhảy xuống Cb_NuocUong và Cb_NuocUong Dropdown luôn chứ không phải nhấn Enter lần nữa.

Thêm đoạn code này.

Private Sub Cb_TraiCay_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then Cb_NuocUong.SetFocus
End Sub

 

[batman1]

Kể cũng lạ. Cứ ai hỏi gì cũng nghĩ là họ muốn SheetForm và làm hóa đơn và in hóa đơn? Đơn giản là người ta muốn tạo UserForm để nhập liệu thôi. Tại sao lại bắt người ta "Tạo SheetForm để làm hóa đơn bán hàng" rồi đính kèm 1 sheet là danh mục hàng hóa?

Mà dữ liệu, cấu trúc UserForm là giả lập, là bịa bừa ra thôi. Cái quan trọng là người ta có trong Form giả lập tự bịa này 2 ComboBox liền nhau y như trong Form thực. Nếu có giải pháp thì người ta sẽ "bê" nó vào tập tin thực của người ta.

Làm gì có làm hóa đơn rồi in hóa đơn ở đây.

Thêm đoạn code này.

Đơn giản được như thế thì tốt quá. Nhưng code đấy chả giải quyết được gì.

 

[be_09]

Kể cũng lạ. Cứ ai hỏi gì cũng nghĩ là họ muốn SheetForm và làm hóa đơn và in hóa đơn? Đơn giản là người ta muốn tạo UserForm để nhập liệu thôi. Tại sao lại bắt người ta "Tạo SheetForm để làm hóa đơn bán hàng" rồi đính kèm 1 sheet là danh mục hàng hóa?

Mà dữ liệu, cấu trúc UserForm là giả lập, là bịa bừa ra thôi. Cái quan trọng là người ta có trong Form giả lập tự bịa này 2 ComboBox liền nhau y như trong Form thực. Nếu có giải pháp thì người ta sẽ "bê" nó vào tập tin thực của người ta.

Làm gì có làm hóa đơn rồi in hóa đơn ở đây.


Đơn giản được như thế thì tốt quá. Nhưng code đấy chả giải quyết được gì.

- Do chủ Topic nêu vấn đề không được rõ ràng.
- Căn cứ vào chỗ cái số phiếu (theo suy luận của tôi có thể nó là phiếu tính tiền) nên tôi mới góp ý là nên sử dụng SheetForm cho thuận tiện cho việc lập phiếu và in ấn, chứ không phải a thần phù nhảy vào xem khơi khơi rồi cái gì cũng góp ý sử dụng SheetForm.
- Ngay chỗ 2 cái Combobox nếu không dùng để gán ĐVT và đơn giá thì chọn nó để làm cái gì? Không lẽ chọn loại trái cây và thức uống để xem chơi?
- Việc còn lại thì chủ Topic cần làm cái gì đó thì tự khắc họ sẽ phản hồi hoặc họ thích làm theo kiểu gì thì đó là chuyện của họ, chứ không ai rảnh để ngồi góp ý ba cái thứ linh tinh.

 

[DMQ]

Tới anh @be09 : Đúng như Thầy @batman1 nói, cái mấu chốt của em là vấn đề Enter ở Cb_TraiCay, khi có code thì em "Bê" vào sử dụng thôi.
Tới anh @giaiphap : code anh chưa đúng ạ.

 

[batman1]

Một ngày bạn nhấn Enter trong combobox bao nhiêu lần mà tiết kiện thế? Đập Enter 2 cái liền thì khác mấy đập 1 lần?

Thôi, chủ Nhật làm chơi cho bạn.

Có thể Enter và cũng có thể click chuột để chọn

Tôi kiểm tra 2 lần, bạn kiểm tra kỹ.

Thêm code

Private Sub Cb_TraiCay_DropButtonClick()
    If Len(Cb_TraiCay.Tag) Then
        Cb_TraiCay.Tag = ""
        SendKeys "~"
    Else
        Cb_TraiCay.Tag = "x"
    End If
End Sub

 

[DMQ]

Cám Ơn Thầy @batman1 đã giúp.
Em test với file bài #1(chỉ tới Cb_NuocUong là hết) thì đúng rồi Thầy ơi. Nhưng khi gán code vào Form thực của em (sau Cb_NuocUong còn thêm control khác nữa - ví dụ còn Tb_SL, như file này em đưa lên) thì khi mở form và Enter ở Cb_TraiCay thì bật nút "Num Lock" làm không gỏ số vào Tb_SL được. Em có nhớ đọc được ở đâu đó trên GPE có nói tới vụ lệnh "SenKey" ảnh hưởng tới nút "Num Lock".
Mong Thầy xem giúp.

 

[batman1]

Cám Ơn Thầy @batman1 đã giúp.
Em test với file bài #1(chỉ tới Cb_NuocUong là hết) thì đúng rồi Thầy ơi. Nhưng khi gán code vào Form thực của em (sau Cb_NuocUong còn thêm control khác nữa - ví dụ còn Tb_SL, như file này em đưa lên) thì khi mở form và Enter ở Cb_TraiCay thì bật nút "Num Lock" làm không gỏ số vào Tb_SL được. Em có nhớ đọc được ở đâu đó trên GPE có nói tới vụ lệnh "SenKey" ảnh hưởng tới nút "Num Lock".
Mong Thầy xem giúp.

Dữ liệu có thể giả lập, bịa ra, nhưng cấu trúc dữ liệu, controls, và cách thức làm việc luôn phải cung cấp đầy đủ và chính xác ngay từ đầu.

Tôi không chơi trò thông tin nhỏ giọt, sửa đi sửa lại.

Nói cho cùng bạn nghĩ nhiều trò nhưng làm thì người khác cầy nên bạn không ngại.

Tôi dừng ở đây.