Đá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
  [Help] Truy vấn nhiều giá trị, nhập trong 1 textbox duy nhất ở form ckno1no 10 518 20-01-17, 08:08 PM
Bài mới nhất: ongke0711
  [Help] khoanh vùng tìm kiếm trong Search Form Godspear 3 96 19-01-17, 05:31 AM
Bài mới nhất: Godspear
  code chuyển đổi Hex sang ASCII trong access thanhtruong 6 182 18-01-17, 11:15 AM
Bài mới nhất: thanhtruong
  [Hỏi] Tạo Login Form cùng với Advanced Security Level Godspear 10 334 16-01-17, 11:33 AM
Bài mới nhất: Godspear
  Nút Thêm dữ liệu trên form vulhu06 3 827 16-01-17, 10:33 AM
Bài mới nhất: Lê Văn Giáp

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ơ