Tùy chọn
Xin giúp về QL Bán hàng - làm sao cho số lượng tồn không bị âm
- Xin giúp về QL Bán hàng - làm sao cho số lượng tồn không bị âm
-
RE: Xin giúp về QL Bán hàng - làm sao cho số lượng tồn không bị âm
aichangbiet > 08-01-13, 05:43 PM
Vấn đề là mình không biết cách viết lệnh gọi Query ra để so sánh bạn ơi, chứ Query Tính số lượng tồn thì mình đã có rồi mà
Bạn xem ở trong file mình đính kèm ấy. -
RE: Xin giúp về QL Bán hàng - làm sao cho số lượng tồn không bị âm
aichangbiet > 12-01-13, 04:26 PM
(02-01-13, 09:58 AM)ledangvan Đã viết:
Bạn ơi, làm theo cách của bạn khi mình gán giá trị, vừa chạy đã lỗi ở dòng này(01-01-13, 10:10 PM)aichangbiet Đã viết: Không ai giúp được mình sao o.0
Mình chỉ có 2 vấn đề, vấn đề này là 1 trong 2 vấn đề đó
Bạn nên tính lượng tồn tại thời điểm xuất (tạo ra một Form chứa kết quả tồn tại thởi điểm ví dụ Form tên là Ton) form Ton được mở ra khi bạn update vào cột tên hàng hóa và được ẩn đi. Khi bạn đánh đến số lượng thì nó đem số lượng bạn đánh so sánh với kết quả Form Ton. Bạn đặt ở thủ tục Update là nếu kết quả so sánh <0 thì ra thông báo "Số lượng hiện tại ...." và trở lại kết quả của số lượng = 0 -> Như vậy bạn sẽ không xuất được số lượng lớn hơn lượng tồn.
Chúc bạn thành công
SoTon.Value = [Forms]![SL_Ton_Sub]![SLTon]
Phần Query của bạn mình ko sử dụng và cũng k hiểu tại sao phải làm lại Query đó khi mà mình đã có Query SL_Ton rồi?
Phần giá bán thì mình cho nó tự động nhận theo Mã Hàng.
Mình đã tạo 1 form là SL_Ton_Sub, có thông tin là MaHang và SLTon.
Ở Form Phiếu Xuất, mình đã nhập lệnh như thế này, nhưng bị lỗi. Mình cũng thắc mắc nó gán giá trị như thế nào o.0?
Private Sub MaHang_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.OpenForm "SL_Ton_Sub", acNormal, "", "", , acHidden
SoTon.Value = [Forms]![SL_Ton_Sub]![SLTon]
End Sub
File mình đã up ở #1, bạn nào có thể xem giùm đc ko? -
RE: Xin giúp về QL Bán hàng - làm sao cho số lượng tồn không bị âm
Thanh Phương > 12-01-13, 05:07 PM
(30-12-12, 04:42 PM)aichangbiet Đã viết: Hiện mình đang làm 1 chương trình quản lý bán hàng.
Tuy còn nhiều lỗi nhưng lỗi này bị giảng viên bắt và yêu cầu khắc phục.
1, mình tạo bảng có phiếu nhập, phiếu xuất, chi tiết nhập, chi tiết xuất.
2, tạo query kiểm tra số lượng tồn dựa vào phiếu nhập và phiếu xuất. cụ thể sltồn= tổng số lượng nhập - tổng số lượng xuất
3, có vấn đề là khi xuất, mình xuất bao nhiêu cũng được.
ví dụ:
nhập vào kho là 100
khi xuất 50 thì số lượng tồn còn 50. cái này OK
nhưng vấn đề xuất hiện là khi mình xuất tiếp 200 nó vẫn ok
và số lượng tồn sẽ thành -150
p/s: Mình thao tác trên Form nhé ( dữ liệu 4 form phiếu nhập, phiếu xuất, chi tiết nhập, chi tiết xuất được lấy ở 4 bảng tương ứng)
Help: làm sao để khắc phục lỗi này. cụ thể là khi mình nhập số lượng xuất trên sub form chi tiết xuất, nó sẽ so sánh với số lượng tồn hiện tại. Nếu không đủ sẽ báo lỗi để nhập lại.
File : http://www.mediafire.com/?h3648ad94lub7rr
Trong table tblHangHoa, thêm trường TonHienTai. mỗi khi nhập hoặc xuất hàng thì cho chạy query lấy SLTon rồi update vào trường TonHienTai. Khi xuất thì so sánh TonHienTai với SLXuat
Chắc bạn làm được
Thân mến -
RE: Xin giúp về QL Bán hàng - làm sao cho số lượng tồn không bị âm
aichangbiet > 12-01-13, 05:20 PM
(12-01-13, 05:07 PM)Thanh Phương Đã viết: Trong table tblHangHoa, thêm trường TonHienTai. mỗi khi nhập hoặc xuất hàng thì cho chạy query lấy SLTon rồi update vào trường TonHienTai. Khi xuất thì so sánh TonHienTai với SLXuat
nếu xài Query Update thì mỗi lần thực hiện phải Update 1 lần rất phiền phức, mình làm theo cách của Bạn LeVanDang đó là tạo 1 form Tồn từ Query tồn.
Chắc bạn làm được
Thân mến
Tại Form Xuất, Gọi Form Tồn ra và so sánh.
Ok thank bạn mình đã tìm ra, đã làm xong rầu
Nhưng hơi khác 1 chút, đó là mình xài lệnh BeforeUpdate ở ô Số Lượng Luôn.
Private Sub SoLuong_BeforeUpdate(Cancel As Integer)
On Error GoTo BeforeUpdate_Error
DoCmd.OpenForm "SL_Ton_Sub", acNormal, "", "[MaHang]=Forms!TD_Phieuxuat!ChiTietXuat_Sub!MaHang", , acHidden
If [Forms]![SL_Ton_Sub]![SLTon] < [Forms]![TD_Phieuxuat]![ChiTietXuat_Sub]![SoLuong] Then
MsgBox "So Luong Khong Du" & vbCrLf & "So Luong Ton Hien Tai La: " & [Forms]![SL_Ton_Sub]![SLTon] & ""
Me.Undo
End If
BeforeUpdate_Exit:
Exit Sub
BeforeUpdate_Error:
MsgBox Err.Description
Resume BeforeUpdate_Exit
End Sub