Newvalue của ComboBox

[Davidsy]

Em cài thuộc tính MatchRequire của một combobox là true để bắt buột người sử dụng chỉ nhập đúng những gì đã đăng kí trong cbo này.
Tuy nhiên trong trường hợp có một Newvalue phát sinh, em muốn hiện thông báo hỏi ý kiến người dùng là có muốn đăng kí luôn giá trị mới này không ...
Bên Access giải quyết rất dễ ... còn bên excel này em bó tay ...

Bác nào biết chỉ giúp em với ...

Dai khai thu tuc nhu sau ...
Hoi = msgbox("Ban muon cap nhat gia tri moi nay vao danh sach khong?", vbQuestion + vbYesno)
if hoi = vbyes then
'Additem update
else
'giữ nguyên con trõ trong ô cbo này để nhập lại
end if

 

[levanduyet]

Cũng dễ tương tự !!!

Em cài thuộc tính MatchRequire của một combobox là true để bắt buột người sử dụng chỉ nhập đúng những gì đã đăng kí trong cbo này.
Tuy nhiên trong trường hợp có một Newvalue phát sinh, em muốn hiện thông báo hỏi ý kiến người dùng là có muốn đăng kí luôn giá trị mới này không ...
Bên Access giải quyết rất dễ ... còn bên excel này em bó tay ...

Bác nào biết chỉ giúp em với ...

Dai khai thu tuc nhu sau ...
Hoi = msgbox("Ban muon cap nhat gia tri moi nay vao danh sach khong?", vbQuestion + vbYesno)
if hoi = vbyes then
'Additem update
else
'giữ nguyên con trõ trong ô cbo này để nhập lại
end if

Để làm điều này bạn có thể thực hiện như sau:
_ Giả sử combobox của bạn có nguồn dữ liệu từ một bảng được đặt tên là cbbSource1.
_ Khi muốn mở rộng list của combobox này bạn cũng làm tương tự thủ tục bạn đề cập ở trên, ở tại code nhằm thêm mục vào bạn thêm mục vào cbbSource1 (Thêm mục mới vào danh sách và cập nhật tên).
Tôi nghĩ như vậy cũng được.
Nếu để cho việc cập nhật này chuyên nghiệp hơn thì bạn phải viết các thủ tục riêng để đáp ứng nhu cầu như: Thêm item, Xóa item, Sửa item theo yêu cầu.

Lê Văn Duyệt