Đánh giá chủ đề:
  • 1 Votes - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Xin giúp về QL Bán hàng - làm sao cho số lượng tồn không bị âm
#11
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à straight face
Bạn xem ở trong file mình đính kèm ấy.
Chữ ký của aichangbiet Gà mờ sad
Reply
Những người đã cảm ơn
#12
(02-01-13, 09:58 AM)ledangvan Đã viết:
(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 đề đó sad

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
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

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à MaHangSLTon.

Ở 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?
Chữ ký của aichangbiet Gà mờ sad
Reply
Những người đã cảm ơn
#13
(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
Chữ ký của Thanh Phương Em như cô gái còn son
Chờ người quân tử mỏi mòn tháng năm
Đêm đêm hết đứng lại nằm
Người đi đâu để âm thầm nhớ thương


Reply
Những người đã cảm ơn
#14
(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
Chắc bạn làm được
Thân mến
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.
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 big green
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
Chữ ký của aichangbiet Gà mờ sad
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tạo Menu dạng TreeView bằng Query (không dùng ActiveX) ongke0711 4 267 06-12-16, 09:16 PM
Bài mới nhất: toancvp
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 125 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902
  Không cho phép điều chỉnh kích thước của Form ChiMai 1 129 18-09-16, 01:27 PM
Bài mới nhất: ongke0711
  Xin giúp tạo 1 trường trong table đánh số tự động thay cho autonumber trungminh 7 450 16-09-16, 05:17 PM
Bài mới nhất: maidinhdan
  Giúp đỡ về form với trungminh 9 492 10-09-16, 09:17 PM
Bài mới nhất: trungminh

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ