toidjtjmtoi > 18-03-19, 04:23 PM
toidjtjmtoi > 22-03-19, 09:48 PM
ongke0711 > 23-03-19, 08:04 AM
(22-03-19, 09:48 PM)toidjtjmtoi Đã viết: Cho em hỏi sửa code như nào để sử dụng nhiều combobox trong 1 form ạ
Private faytCbTenTruong As New clsFAYTCombo
Private faytCbHoTen As New clsFAYTCombo
Private Sub Form_Load()
Dim rsTenTruong As DAO.Recordset
Dim rsHoTen As DAO.Recordset
Set rsTenTruong = CurrentDb.OpenRecordset(Me.cboTenTruong.RowSource)
Set Me.cboTenTruong.Recordset = rsTenTruong
faytCbTenTruong.InitalizeFilterCombo Me.cboTenTruong, "Truong", False
Set rsHoTen = CurrentDb.OpenRecordset(Me.cboNhanVien.RowSource)
Set Me.cboNhanVien.Recordset = rsHoTen
faytCbHoTen.InitalizeFilterCombo Me.cboNhanVien, "HoTen", False
End Sub
toidjtjmtoi > 28-03-19, 04:57 PM
toidjtjmtoi > 28-03-19, 05:07 PM
AnNguyen > 18-07-20, 07:25 PM
hungtano > 29-12-21, 12:32 PM
ongke0711 > 29-12-21, 04:28 PM
(29-12-21, 12:32 PM)hungtano Đã viết: Thân gửi bạn ongke0711 !
Trở lại vấn đề sử dụng multi-filelds trong combox, tôi đã sử dụng class của bạn và thấy rất tôt, gần như 99% chỉ còn 1 lỗi nhỏ là ký tự dđ khi gõ vào (vấn đề này ae đã trao đổi nhiều).
Tôi có 1 ý kiến nhỏ và đề xuất với bạn (cũng ko hoàn hảo lắm): khi nhập các từ tìm kiếm, nếu ký tự đầu tiên là các ký tự thuần Việt như: đ,ă,ư,.. ví dụ như: đà nẵng, đạn, ăn uống,..... bạn chỉ cần nhập thêm 1 ký tự trống phía trước, [ đà] thay vì [đà] thì việc tìm kiếm sẽ rất ok. Như vậy khi viết xong phần mềm, bạn phải hướng dẫn cho người sử dụng khi gặp tình huống này. Hơi bất tiện 1 chút nhưng thỏa mãn yêu cầu.
Từ đó tôi trao đổi với bạn: nếu thấy cách "chữa cháy" của tôi OK, đề nghị bạn tìm cách đưa vào trong class giải thuật: khi người dùng gõ vào combo box sẽ luôn có 1 ký tự trống phía trước và như vậy sẽ giải quyết được lỗi nhỏ trong class của bạn.
Thân chào và mong hồi âm!
hungtano > 02-01-22, 05:41 PM
ongke0711 > 02-01-22, 05:49 PM