Hỏi : Tôi có 1 combo box (cboMaHang), tôi muốn khi con chuột hoặc con trỏ nhảy đến cboMahang thì hộp danh sách tự động thả xuống, phải làm sao ?
Đáp : có nhiều cách, cách đơn giản nhất là tận dụng method sãn có của combo box : Dropdown.
Cách dùng:
Mã:
Private Sub cboMahang_GotFocus()
cboMahang.Dropdown
End Sub
__________________________________ Hỏi : Tôi có 1 combo box (cboMaHang), tôi muốn khi người dùng đánh mã hàng không có trong hộp danh sách thì hiện lên thông báo lỗi, phải làm sao ?
Đáp : dùng sự kiện NotInList của combo box
Private Sub cboMaHang_NotInList(NewData As String, Response As Integer)
Mã:
Response = acDataErrContinue
MsgBox "Ma hang nay khong co.", , "Bao loi !"
End Sub
Bổ sung : Mở properties của cboMaHang --> Tab Data --> Limit To List : Yes
1/ Các bạn tải file "Cach tao MeNu bang macro" được đính kèm dưới bài viết về máy và giải nén nó vào một thư mục nào đó trong máy của bạn
2/ Nhấn chuột phải vào màn hình Desktop, chọn Properties, trong tab Appearance, nhấn Advanced. Trong khung Item chọn Active Title Bar, trong khung font chọn Tahoma(nhằm thể hiện tiếng Việt Unicode)
3/ Mở file (Nhớ nhấn phím Shift khi mở, nếu không sẽ không thấy cái Database đâu, chỉ thấy mỗi thanh MeNu thôi)
4/ Trong phần Macro của Database, các bạn lần lượt mở từng macro một để nghiên cứu, trong đó mrcMain là macro chính để tạo MeNu, các macro còn lại là phục vụ cho mrcMain
5/ Để có thể tạo MeNu, sau khi tạo các macro xong, các bạn chọm mrcMain(không cần Desgin), vào MeNu Tools/Macro/Create MeNu from Macro. Nhấn Yes khi có thông báo
6/ Vào MeNuTools/Startup, ghi tên chương trình vào hộp Application Title, chọn Icon cho chương trình nếu muốn, tắt hết tất cả các hộp kiểm, chọn mrcMain trong Menu Bar
Như vậy là các bạn đạ tạo được MeNu riêng của minh rồi đấy
Chúc các bạn thực hành tốt
Thân
P/S : Khi các bạn muốn dùng file mẫu để thử và xem cái Menu được tạo ra như thế nào, các bạn chỉ được nhấn nút Thoát hoặc Tác Giả thôi, còn các menu khác sẽ báo lỗi đấy
Viết bởi: Noname
17-09-10, 04:44 PM
Chuyên mục: Ms Excel
- Không có hồi đáp
Giáo trình Pivot table
Tác Giả: Ptm0412 ( Phạm thành Mỹ)
Site: Giaiphapexcel
[iframe]https://docs.google.com/gview?a=v&pid=explorer&chrome=false&api=true&embedded=true&srcid=0B1XcxCMU5rSWNzY0ZTkyMzEtZTk0NS00NGVhLThiZmUtYjhjZTBmYmQ5ZDI0&hl=en[/iframe]
Hỏi:Trong query của access, có cách nào thêm được trường số thứ tự vào không? VD mình select từ bảng DM_DoiTuong được các trường HoTen, NgaySinh, QueQuan. Mình muốn thêm vào cột STT
Đáp: Quochoi_05 - Danketoan
Mã:
SELECT (Select Count (*) FROM [DM_DoiTuong ] as Temp WHERE [Temp].[HoTen] < [DM_DoiTuong].[HoTen])+1 AS STT, DM_DoiTuong.HoTen, DM_DoiTuong.NgaySinh, DM_DoiTuong.QueQuan
FROM DM_DoiTuong
ORDER BY DM_DoiTuong.HoTen;