Kết quả tìm kiếm

mở 1 file vào table, click phải và chọn Import từ các mdb còn lại.

Private Sub slban_BeforeUpdate(Cancel As Integer) If Me.tempx <> 0 Then Me.soluong = Me.soluong + Me.tempx - Me.slban Me.tempx = Me.slban Me.done = "1" Else Me.soluong = Me.soluong - Me.slban Me.tempx = Me.slban Me.thanhtien_thuc = Me.slban * Me.dongia End If End Sub

Tại sao e ko nghĩ khác đi là khi nhấn nút hoàn thành thì chỉ thêm record mới như code a làm ở trên vì đã tự động lưu rồi. Còn nếu ko muốn lưu sẽ bấm nút hủygd hoặc chọn nút X close -> chỉ code cho nút Huỷ gd và áp dụng giống vậy cho nút X thôi.

File em gửi trống không phần VBA code thì chẳng lẻ anh phải gõ lại hết code từ lúc đầu chỉ em sao? Code từng event đôi khi sẽ liên quan đến nhau, muốn làm event này sẽ là kết quả từ code của event khác. Trong file này em xác định lại là làm theo kiểu nào? theo các table, query của bsQ hay làm...

Xem file nhé. Mấy cái nút giao dịch, hoàn thành thì tự làm được rồi đúng không.

Em up file .mdb lên chứ file .mde sao viết code vô được.

À code đó tôi làm hơi nhanh nên có dòng sai. Rs.edit chứ ko addnew, đổi cách tìm mathuoc để update. Tối tôi rảnh sẽ gửi lên.

Muốn lưu toàn bộ các records mới nhập thì dùng Do Until..Loop. Còn công thức tính tồn kho đối với unbound form thì cũng dùng cách khai báo như code của cmdSave và setvalue cho textbox Tồn Kho. --------------- Private cmdSave_Click() Dim db as DAO.Database Dim rs1 as DAO.Recordset, rs2 as...

Để khi bấm Save thì mới lưu, em sử dụng unbound form cho cái form nhập liệu. Khi bấm save thì chạy update recordset. - Để trong Recordsource của cái formbanle cũng như các textbox - textbox SoLuong có Name là txtSoLuong Private cmdSave_Click() Dim db as DAO.Database Dim rs as DAO.Recordset Set...

Về cái CSDL nhìn sơ qua tôi thấy có một số chỗ lủng như sau: - Nhập kho: Theo dõi lịch sử nhập kho như thế nào? ngày nào nhập và nhập bao nhiêu? Bên cạnh đó còn có "hạn sử dụng" của mã hàng mới nhập? Hạn sử dụng được cập nhật theo lô hàng nhập mới nhất vậy hàng cũ còn tồn kho với hạn sử dụng cũ...

Nói chúng Bs Quân viết pm phục vụ công việc của mình được như vậy là quá hay. Nhưng về mặt CSDL vẫn là không chuẩn. Nếu em muốn làm theo vậy để học hỏi cũng ok thôi. Ở file này bs Q cho thông số nhập và tồn kho vô cùng 1 field [soluong] của table Dsthuoc_kho. Ở form banle, Recordsource là query...

Cái form TEST và mấy cái tables a làm cho em là gợi ý các thức làm. Muốn tính tồn kho thì thông qua các bảng và 4 cái query như vậy. Còn cột Tồn kho trong form TEST không nhảy đúng vì chưa chạy event Requery cái qryTonKho sau khi nhập cột Số Lượng để cập nhật. - Trong thực tế a chưa thấy ai...

:-) Table nó lộn xộn và phải tổ chức lại thì mới viết đúng được hoainam. Có một quái chiêu tính tồn kho thực của bác Ông Văn Thông đó, mua về đọc tham khảo code đó đi. Hình như là cuốn "Hệ quản trị nâng cao" thì phải.

Hi hoainam, Tôi đã xem cái file mdb của em rồi và có vài ý kiến để làm tốt hơn nhé. - Trước khi bước vào viết code vba thì em nên nghiên cứu kỹ các tổ chức CSDL cho chuẩn để nó hỗ trợ rất nhiều về thời gian và logic khi code hoặc query. CSDL không cồng kềnh, trùng lắp dữ liệu làm file nặng thêm...

Nếu bạn có up cái file lên thì tôi sẽ làm theo đó. Nhưng không có nên xem file mẫu đính kèm nhé.

:) Thì lập trình theo cái giải thuật trên rồi gán biến vô Combox trong sự kiện Form Load.

Theo cách tôi làm sẽ qua các bước sau: tách số HD ra làm 2 phần để xử lý, phần 3 số đầu và phần năm. Khai báo biến: số thứ tự as Interger - Tạo query Lọc các so_HDD theo năm hiện hành. - Nếu Query đó không có record nào (RecordCount = 0) thì số thứ tự =001. - Nếu có record thì, điếm số...

Đã fix được rồi.

Em xem file đính kèm.

Em dùng macro SETVALUE cho sự kiện AfterUpdate của combobox. Setvalue Item: [MaQuanLy] Expression: [cboPhuong]