Tùy chọn
làm thế nào để số lượng tồn không bị âm
- làm thế nào để số lượng tồn không bị âm
-
làm thế nào để số lượng tồn không bị âm
kichiro > 18-05-13, 03:45 AM
em đang làm 1 bài tập về bán hàng trong đó có yêu cầu số lượng hàng bán không vượt quá lượng hàng tồn
em có tìm trên diễn đàn và áp dụng 1 đoạn code như thế này của bác aichangbiet
Trích dẫn:Private Sub SoLuong_BeforeUpdate(Cancel As Integer)
trong lần nhập đầu tiên thì chạy tốt nhưng lại bị báo lỗi "no current record"
On Error GoTo BeforeUpdate_Error
DoCmd.OpenForm "Ton2", acNormal, "", "[MaHang]=Forms!hdban!cthdban!mahang", , acHidden
If [Forms]![Ton2]![ton] < [Forms]![hdban]![cthdban]![soluong] Then
MsgBox "So Luong Khong Du" & vbCrLf & "So Luong Ton Hien Tai La: " & [Forms]![Ton2]![ton] & ""
Me.Undo
End If
BeforeUpdate_Exit:
Exit Sub
BeforeUpdate_Error:
MsgBox Err.Description
Resume BeforeUpdate_Exit
End Sub
và các lần nhập sau nó chỉ cho ra cùng 1 kết quả và vẫn báo lỗi như trên
Em phải làm gì để khắc phục bây giờ
nhờ các anh chị giải đáp giúp
đây là file em đang làm http://www.mediafire.com/download.php?apw2lan9dssf667 -
RE: làm thế nào để số lượng tồn không bị âm
ht03 > 18-05-13, 09:38 AM
(18-05-13, 03:45 AM)kichiro Đã viết: em đang làm 1 bài tập về bán hàng trong đó có yêu cầu số lượng hàng bán không vượt quá lượng hàng tồn
bạn thử để đoạn code của bạn ở sự kiện AfterUpdate xem
em có tìm trên diễn đàn và áp dụng 1 đoạn code như thế này của bác aichangbiet
Trích dẫn:Private Sub SoLuong_BeforeUpdate(Cancel As Integer)
trong lần nhập đầu tiên thì chạy tốt nhưng lại bị báo lỗi "no current record"
On Error GoTo BeforeUpdate_Error
DoCmd.OpenForm "Ton2", acNormal, "", "[MaHang]=Forms!hdban!cthdban!mahang", , acHidden
If [Forms]![Ton2]![ton] < [Forms]![hdban]![cthdban]![soluong] Then
MsgBox "So Luong Khong Du" & vbCrLf & "So Luong Ton Hien Tai La: " & [Forms]![Ton2]![ton] & ""
Me.Undo
End If
BeforeUpdate_Exit:
Exit Sub
BeforeUpdate_Error:
MsgBox Err.Description
Resume BeforeUpdate_Exit
End Sub
và các lần nhập sau nó chỉ cho ra cùng 1 kết quả và vẫn báo lỗi như trên
Em phải làm gì để khắc phục bây giờ nhờ các anh chị giải đáp giúp
đây là file em đang làm http://www.mediafire.com/download.php?apw2lan9dssf667
-
RE: làm thế nào để số lượng tồn không bị âm
trungn077 > 18-05-13, 10:21 PM
(18-05-13, 03:45 AM)kichiro Đã viết: em đang làm 1 bài tập về bán hàng trong đó có yêu cầu số lượng hàng bán không vượt quá lượng hàng tồn
em có tìm trên diễn đàn và áp dụng 1 đoạn code như thế này của bác aichangbiet
Trích dẫn:Private Sub SoLuong_BeforeUpdate(Cancel As Integer)
trong lần nhập đầu tiên thì chạy tốt nhưng lại bị báo lỗi "no current record"
On Error GoTo BeforeUpdate_Error
DoCmd.OpenForm "Ton2", acNormal, "", "[MaHang]=Forms!hdban!cthdban!mahang", , acHidden
If [Forms]![Ton2]![ton] < [Forms]![hdban]![cthdban]![soluong] Then
MsgBox "So Luong Khong Du" & vbCrLf & "So Luong Ton Hien Tai La: " & [Forms]![Ton2]![ton] & ""
Me.Undo
End If
BeforeUpdate_Exit:
Exit Sub
BeforeUpdate_Error:
MsgBox Err.Description
Resume BeforeUpdate_Exit
End Sub
và các lần nhập sau nó chỉ cho ra cùng 1 kết quả và vẫn báo lỗi như trên
Em phải làm gì để khắc phục bây giờ nhờ các anh chị giải đáp giúp
đây là file em đang làm http://www.mediafire.com/download.php?apw2lan9dssf667
Đơn giản hơn:
Tạo một query với các tiêu chí trên có và có cột tồn kho.
Trong sự kiện AfterUpdate gọi nó ra. Ví dụ:
dim TonKhoTucThoi
TonKhoTucThoi = dlookup("TonKho","câu query bạn vừa tạo")
if TonKhoTucThoi < số lượng đang nhập trên form then
msgbox
Exit Sub hoặc Me.Undo tuỳ bạn
end if
Vậy thôi. -
RE: làm thế nào để số lượng tồn không bị âm
kichiro > 19-05-13, 06:09 AM
em làm theo cách của bác ht03 nó ko báo lỗi nữa nhưng ngoài lần nhập đầu tiên là đúng thì các lần nhập sau nó vẫn chỉ cho ra 1 kết quả giống với lần đầu.
còn theo cách của bác trungn077 thì em vẫn chưa hiểu lắm. bác sửa hộ luôn file em gửi được ko???
mọi người thông cảm em mới làm quen với access. mong mọi người giúp đỡ -
RE: làm thế nào để số lượng tồn không bị âm
kichiro > 20-05-13, 07:20 AM
đã tìm ra cách sửa
cảm ơn mọi người nhiều