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

Xin hỏi về cách chống nhập âm kho!

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Bài tập Access
  • [Help] Xin hỏi về cách chống nhập âm kho!
• Xin hỏi về cách chống nhập âm kho!

• RE: Xin hỏi về cách chống nhập âm kho!

  NguyenDungAnh > 08-04-18, 12:31 AM

  (07-04-18, 10:11 PM)tranthanhan1962 Đã viết:

  (07-04-18, 06:22 PM)NguyenDungAnh Đã viết:

  (07-04-18, 09:10 AM)tranthanhan1962 Đã viết: Đã xử lý
  
  F_nhapxuat

  
  Chân thành cám ơn bác. Mặc dù đã làm được nhưng em chưa hiểu lắm. bác có tài liệu về viết code như thế này có thể share cho em với. Em tự mày mò lên cũng chưa hiểu ý nghĩa đoạn code này như thế nào. Có thể bác giải thích cho em với.
  
  Private Sub Form_Current()
      Form_F_nhapxuat.TonKho.Requery
  End Sub
  
  Private Sub mahang_AfterUpdate()
      Form_F_nhapxuat.TonKho.Requery
  End Sub
  Đây là một trong những code rất đơn giản, nếu bạn không thể hiểu được thì chắc phải dừng lại.
  Private Sub soluong_AfterUpdate()
      Me.Refresh
      Form_F_nhapxuat.TonKho.Requery
      If Forms![F_nhapxuat]![TonKho].Form![Ton].Value < 0 Then
      MsgBox "Âm kho!"
      End If
  End Sub

  
  Đúng như ongke0711 đã góp ý không chỉ với access nếu ạn viết phần mềm là tương tác với máy trính, bạn phải hiểu ngôn ngữ của nó
  Private Sub Form_Current()
      Form_F_nhapxuat.TonKho.Requery
  End Sub
  
  Private Sub mahang_AfterUpdate()
      Form_F_nhapxuat.TonKho.Requery
  End Sub
  
  Private Sub soluong_AfterUpdate()
      Me.Refresh
      Form_F_nhapxuat.TonKho.Requery
      If Forms![F_nhapxuat]![TonKho].Form![Ton].Value < 0 Then
      MsgBox "Âm kho!"
      End If
  End Sub

  Cám ơn bác nhiều Em mò mẫm từ tối tới giờ mới hiểu được ý nghĩa đoạn code đó. : cũng tại em không học VBA buổi nào lên mò hơi vất vả, cám ơn các bác đã nhiệt tình giúp đỡ Hum nao các bác về Hải Phòng Thì alo em mời các bác chầu bia hơi (sắp đến hè rồi)
• Bài trước Bài tiếp