• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

nhờ giúp đỡ tính toán trong form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] nhờ giúp đỡ tính toán trong form
• nhờ giúp đỡ tính toán trong form

• nhờ giúp đỡ tính toán trong form

  whatlove9 > 27-10-14, 02:23 PM

  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.

• RE: nhờ giúp đỡ tính toán trong form

  chuvoicon > 29-10-14, 04:57 PM

  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

• RE: nhờ giúp đỡ tính toán trong form

  whatlove9 > 01-11-14, 10:05 PM

  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....
• Bài trước Bài tiếp