viết code cho Form tìm kiếm (3 người xem)

[quykh]

Em có file đưa lên, mong mọi người giúp đỡ!!!!
[TABLE="width: 1347"]
[TR]
[TD="colspan: 4"]Khi Form hiện, listbox không có dữ liệu.[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 7"]1/ Khi chọn xưởng ở Cmb_Xưởng thì hiện dữ liệu của Xưởng đó trong Listbox.[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 7"]2/ Khi chọn Đơn Hàng ở Cmd_Đơn Hàng thì hiện dữ liệu của Đơn Hàng đó trong Listbox.[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 18"]3/ Khi chọn tháng ở Cmd_Tháng thì sẽ hiện dữ liệu của xưởng đó trong listbox và tbx_Tổng số lượng nhận sẽ tính tổng của số lượng nhận của xưởng đó trong tháng đó(Ở đây là điều kiện And của Xưởng nhận và Tháng)[/TD]
[/TR]
[TR]
[TD="colspan: 8"]4/ Ở Cmb_Tháng mong các AC giúp em chỉ thể hiện tháng thôi, còn của em là ngày tháng năm[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 8"]5/ Khi em chọn dòng nào trong listbox thì dữ liệu sẽ hiện trong 3 textbox ở dưới đẻ sửa(Nhán nút Sửa)[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

 

[quykh]

Mong Các AC giúp em với!!!!!

 

[quykh]

Chắc các AC vui Noel rồi nên chưa có giúp được em. Thôi ráng chờ vậy????????

 

[dhn46]

Bạn khảo sub sau để tùy biến

Sub Loc()
    Dim FStr As String, ArrPH
    ArrPH = Sheet2.Range("D4:H" & Sheet2.Range("D65536").End(3).Row)
    FStr = IIf(Cmd_XN = "", "*", Cmd_XN) & _
           IIf(Cmd_DH = "", "*", Cmd_DH)
    Me.ListBox1.ColumnCount = 5
    Me.ListBox1.Clear
    For i = 1 To UBound(ArrPH, 1)
        If ArrPH(i, 2) & ArrPH(i, 3) Like FStr Then
            k = k + 1
            Me.ListBox1.AddItem ArrPH(i, 1)
            Me.ListBox1.List(k - 1, 1) = ArrPH(i, 2)
            Me.ListBox1.List(k - 1, 2) = ArrPH(i, 3)
            Me.ListBox1.List(k - 1, 3) = ArrPH(i, 4)
            Me.ListBox1.List(k - 1, 4) = ArrPH(i, 5)
        End If
    Next
End Sub

Tại sự kiện change của các combox thì bạn gọi sub này ra.

 

[quykh]

Còn mục 3-4-5 mong bạn giúp mình với!!!!!

 

[quykh]

Mong các AC giúp em !!!!!!!

 

[quykh]

Mong các AC giúp em mục 3-4-5 với!!!!!!

 

[quykh]

Em mới làm file mới, nhưng sao code chạy bị lỗi.
1/ ở textbox "số lượng nhận" sao nó là dẫy số của tất cả các số lượng trong listbox(Chứ không phải lả cộng tổng của số lượng nhận)
2/ Nút CmdSua khi nhấn lại bị lỗi Debug dòng CrrRow.....
Mong các AC giúp em chỉnh lại code(Cũng giúp em code của Textbox"Tháng"(Khi chọn "Tháng" thì thể hiện dữ liệu trong listbox của tháng đó-"Tháng" = Month(Sheet2.[D])
Em gửi file lại mong AC giúp em!!!!

 

[quykh]

các AC giúp em với!!!!!!!

 

[quykh]

Chổ textbox "tổng số lượng nhận" code là:

For i = 1 To Me.ListBox1.ListCount    
tbxTSLN = tbxTSLN + ListBox1.List(i - 1, 4)
Next

bị sai mong các AC giúp chỉnh dùm. Em cám Ơn!!!!

 

[be_09]

Chổ textbox "tổng số lượng nhận" code là:

For i = 1 To Me.ListBox1.ListCount    
tbxTSLN = tbxTSLN + ListBox1.List(i - 1, 4)
Next

bị sai mong các AC giúp chỉnh dùm. Em cám Ơn!!!!

Em ở Đồng Nai mà có ở Biên Hòa không? Hôm 14/12/2014 có Offline coffee Biên Hòa mà không thấy em đăng ký tham dự để hỏi cái vụ này, sáng mai khoảng 7 giờ anh và Lê Duy Thương sẽ uống coffee tại quán AROBI tại đường 5 cũ (cách ngã tư đường vào sân bóng đá Đồng Nai 50 m), em vào Topic coffee Biên Hòa - Đồng Nai sẽ có số điện thoại của anh để liên hệ.

Anh sẽ giúp trực tiếp trên File cho em luôn (có Laptop đem theo thì mới giải quyết được vấn đề).

 

[quykh]

Dạ em ở Long Thành Ah!!!! Cám ơn Anh quan tâm, lên chổ anh xa quá. Mong Anh thông cảm!!!

 

[ndu96081631]

sáng mai khoảng 7 giờ anh và Lê Duy Thương sẽ uống coffee tại quán AROBI tại đường 5 cũ

8 giờ đi đại ca! Mới 7 giờ, sớm quá, người ta còn chưa kịp.. hết giấc mơ mà phải "ngắt ngang" đi uống cafe thì tội lắm

 

[quykh]

Mong các Anh giúp em luôn trên DD Ah!!!!!

 

[be_09]

8 giờ đi đại ca! Mới 7 giờ, sớm quá, người ta còn chưa kịp.. hết giấc mơ mà phải "ngắt ngang" đi uống cafe thì tội lắm

Sáng mai anh phải làm bù (để nghĩ 4 ngày), khi nào đến thì gọi anh sẽ tranh thủ chạy ra, cơ quan cách có vài trăm mét nên tranh thủ ra nhăm nhi Cafe cũng được.

Nhất trí theo đề nghị.

 

[quykh]

Anh be09 giúp em bài này với. Em không uống Cafe với Anh được.

 

[be_09]

Dạ em ở Long Thành Ah!!!! Cám ơn Anh quan tâm, lên chổ anh xa quá. Mong Anh thông cảm!!!

Cả tháng nay anh bận làm nhiều báo cáo quá, anh có đọc bài nhưng chưa có thời gian rảnh để làm giúp, do đó chờ các thành viên khác giúp vậy, qua tháng mà chưa ai giúp thì anh sẽ tranh thủ giúp cho.

Em có quen ai làm ở phòng Tài nguyên Long Thành không? Nếu có thì cho biết tên người quen, khi nào có công tác xuống đó thì anh sẽ kêu anh em gọi ra uống Coffee.

 

[be_09]

Anh be09 giúp em bài này với. Em không uống Cafe với Anh được.

Nếu quen ai làm ở phòng Tài nguyên Long Thành, thì dặn họ khi nào có anh xuống công tác thì gọi dùm, anh em mình sẽ gặp gỡ và uống Coffee.

 

[quykh]

Mong các AC giúp em với!!!!!

 

[quykh]

Em thấy Anh QuangHai1969, be09 đang xem bài của em mà , Sao không giúp em với!!!!!