Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] nhờ giúp đỡ tính toán trong form
#1
Các bạn giúp mình chút nhe!!
- mình có query tồn kho gồm field mã hàng, tên hàng, tồn kho
- mình tạo form xuất kho gồm field mã hàng, tên hàng, lượng xuất.
Mình muốn khi nhập lượng xuất trong form thì field này sẽ kiểm tra trong query để lượng xuất không vượt qua tồn kho. Nếu trong đkiện form xuất kho là main hay sub thì làm như thế nào??
Cám ơn các bạn nhiều.
Chữ ký của whatlove9 Xin chào, mình là whatlove9, Tham gia http://thuthuataccess.com/forum từ ngày 10-09 -11.
Reply
Những người đã cảm ơn
#2
Bạn tham khảo code này:
1. Trường hợp số yêu cầu lớn hơn số lượng có(không cho xuất):
Private Sub sltra_AfterUpdate()
On Error GoTo sltra_afterUpdate_Error
Dim S As String
DoCmd.OpenForm "tonkhothanhpham", acNormal, "", "[masp]=Forms!frmtrahang!trahangchitiet!masp", , acHidden
If [Forms]![tonkhothanhpham]![TonCuoi] < [Forms]![frmtrahang]![trahangchitiet]![sltra] Then
S = UniConvert("Soos luwowjng toofn kho hieejn taji khoong ddur xuaast, hoawjc chuwa nhaajp kho" & vbCrLf & "Soos Luwowjng Toofn Hieejn Taji Laf: " & [Forms]![tonkhothanhpham]![TonCuoi] & "", "telex")
MsgBox S, vbCritical
Me.Undo
Me.sltra.SetFocus
Exit Sub
End If
sltra_afterUpdate_Exit:
Exit Sub
sltra_afterUpdate_Error:
MsgBox Err.Description
Resume sltra_afterUpdate_Exit
End Sub

2. Còn trường hợp này là báo âm khi số yêu cầu lớn hơn số hiện có
Private Sub Trongluong_AfterUpdate()
On Error GoTo afterUpdate_Error
Dim S As String
DoCmd.OpenForm "qrytoncuoi", acNormal, "", "[mahang]=Forms!frmlaplenhsx!tblxuatsx!mahang", , acHidden
If [Forms]![qrytoncuoi]![TonCuoi] < [Forms]![frmlaplenhsx]![tblxuatsx]![trongluong] Then
S = UniConvert("Soos Luwowjng Khoong Ddur ddeef nghij ddawjt theem vaajt tuw" & vbCrLf & "Soos Luwowjng Toofn Hieejn Taji Laf: " & [Forms]![qrytoncuoi]![TonCuoi] & "", "telex")
MsgBox S, vbCritical

End If
afterUpdate_Exit:
Exit Sub
afterUpdate_Error:
MsgBox Err.Description
Resume afterUpdate_Exit

End Sub
Chữ ký của chuvoicon Xin chào, mình là chuvoicon, Tham gia http://thuthuataccess.com/forum từ ngày 18-11 -13.
Reply
Những người đã cảm ơn
#3
mình có thể làm việc này trong validation rule không bạn? vì mình không rành code lắm....
BẠN NÀO GIÚP MÌNH VỚI....040
Chữ ký của whatlove9 Xin chào, mình là whatlove9, Tham gia http://thuthuataccess.com/forum từ ngày 10-09 -11.
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ự động hiện Form khi loading hết thời gian ChiMai 1 37 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 187 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 162 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 124 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902
  [Help] Dòng chữ chạy trên form báo đến ngày sinh nhật tronghieu9792 1 121 20-10-16, 09:30 AM
Bài mới nhất: lamvankhanh

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ơ