Tìm kiếm nhiều lựa chọn trong một TextBox

[Thaddeus]

Gửi anh/ chị!Chuyện là thế này, hôm qua (ngày 16/9/2009) em có đi đến một cty khác giao lưu học hỏi và thấy cty đó dùng Phần mềm kế toán viết bằng FoxPro; tất cả đều tương tự như Dân kế ta vẫn trao đổi trong Access; tuy nhiên có một điều em không biết họ vừa làm như thế nào. Đó là trên Form Tìm kiếm có 1 TextBox để nhập một hay nhiều Số chứng từ vào và nhấn Enter là Phần mềm đó cộng tất cả số trước trên một (hay nhiều) chứng từ đó vào > thế là Thủ quỹ bất cần cộng tay nữa mà cứ thế là Thu (hay Chi) trước thôi.Em ví dụ nhé, em có 05 chứng từ Thu, có lần lượt số chứng từ là 01/PT09, 02/PT09, 03/PT09, 04/PT09, 05/PT09; số trước các các chứng từ đều là 1.000.000 cùng (Một triệu đồng./.).Tại txtTimSCT trên Form Tìm kiếm em nhập: 01/PT09+02/PT09+03/PT09+04/PT09+05/PT09 và nhấn Enter -' + '-' + '-> Thế là phần mềm tìm và cộng số trước của 05 Phiếu thu đó vào là 5.000.000 cùng (Năm triệu đồng./.)Mong được anh/chị chỉ em cách làm tương tự như trên.Em xin Thank anh/chị!

 

[Stanwik]

Trích: Nguyên văn bởi tienduyet Gửi anh/ chị!

Chuyện là thế này, hôm qua (ngày 16/9/2009) em có đi đến một cty khác giao lưu học hỏi và thấy cty đó dùng Phần mềm kế toán viết bằng FoxPro; tất cả đều tương tự như Dân kế ta vẫn trao đổi trong Access; tuy nhiên có một điều em không biết họ vừa làm như thế nào. Đó là trên Form Tìm kiếm có 1 TextBox để nhập một hay nhiều Số chứng từ vào và nhấn Enter là Phần mềm đó cộng tất cả số trước trên một (hay nhiều) chứng từ đó vào > thế là Thủ quỹ bất cần cộng tay nữa mà cứ thế là Thu (hay Chi) trước thôi.

Em ví dụ nhé, em có 05 chứng từ Thu, có lần lượt số chứng từ là 01/PT09, 02/PT09, 03/PT09, 04/PT09, 05/PT09; số trước các các chứng từ đều là 1.000.000 cùng (Một triệu đồng./.).
Tại txtTimSCT trên Form Tìm kiếm em nhập: 01/PT09+02/PT09+03/PT09+04/PT09+05/PT09 và nhấn Enter -' + '-' + '-> Thế là phần mềm tìm và cộng số trước của 05 Phiếu thu đó vào là 5.000.000 cùng (Năm triệu đồng./.)

Mong được anh/chị chỉ em cách làm tương tự như trên.

Em xin Thank anh/chị! Dim chuoi, i As Integer, tongso As Double
chuoi = "'" & Replace(txtTimSCT, "+", "','") & "'"
tongso = Nz(DSum("sotienthu", "tblPhieuThu", "sophieuthu In (" & chuoi & ")"), 0)