Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Cách chống âm kho khi xóa phiếu nhập!
#1
Xin chào các bác!
Lại là em đang theo đuổi cái phần mềm quản lý xăng dầu.
Em nảy sinh một vấn đề như thế này em tạo xong csdl rồi form nhập xuất ổn rồi nhưng bây giờ nếu trong cơ sở dữ liệu đã có nhập xuất rồi mà tự nhiên mình xóa hay sửa 1 cái phiếu nhập thì sẽ làm âm kho vậy có cách nào khi xóa phiếu nhập máy tự kiểm tra xem có âm kho hay không rồi mới xóa, nếu bị âm kho thì hiện cảnh báo rồi không cho xóa nữa.
Chữ ký của NguyenDungAnh Đến với cuộc đời hai tay trắng
Giã từ trần thế trắng hai tay
Bao nhiêu tiếng nói tiếng cười
Sống ở cuộc đời lãi được vậy thôi
Reply
Những người đã cảm ơn
#2
Bạn hãy dùng hàm Dlookup hoặc Dcount để kiểm tra trước khi thực hiện lệnh Sửa/Xuất phiếu.

C1. Kiểm tra thẳng vật tư trong kho đã âm chưa ?
If Dcount("Soluongton","TenTable","Mavattu='" & strMavattu & "'")<=0 then 'Nếu Mavattu là kiểu Number thì bỏ dấu nháy đơn.
    If Msgbox ("Mã vật tư này trong kho đã <=0 ... User có muốn thực hiện ... ko ?", vbQuestion + vbYesNo) = vbNo Then
       Exit sub
    Else
      Goto Tiep
    End if

Else
Tiep:
    'Lệnh của bạn ...

End if

C2. Kiểm tra số lượng vật tư trong kho và vật tư trong số phiếu dự kiến sửa/Xuất  --> So sánh 2 số lượng này và đưa ra cảnh báo.
...
   intSoluongtonkho=Dcount("Soluongton","TenTableKho","Mavattu='" & strMavattu & "'")
   intSoluongdieuchinh=Dcount("Soluong","TenDieuchinh","Mavattu='" & strMavattu & "'")
If intSoluongtonkho<intSoluongdieuchinh then
   If Msgbox ("Số luợng tồn kho chỉ còn lại: " & intSoluongtonkho & " điều chỉnh/Xuất sẽ bị âm ! User thực hiện ko ?", vbQuestion +             vbYesNo) = vbNo Then
      Exit sub
   Else
     Goto Tiep
   End if

Else
Tiep:
   Lệnh của bạn
End if

Thân ./.
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn NguyenDungAnh
#3
cũng chưa hiểu hết ý nhưng dù sao cũng cám ơn bác đã trợ giúp. em sẽ thử ngâm cứu xem thế nào.
Chữ ký của NguyenDungAnh Đến với cuộc đời hai tay trắng
Giã từ trần thế trắng hai tay
Bao nhiêu tiếng nói tiếng cười
Sống ở cuộc đời lãi được vậy thôi
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
  FORM NHẬP LIỆU P2: 1 Form vừa Danh sách vừa Nhập liệu ongke0711 0 4 18 Phút trước
Bài mới nhất: ongke0711
  FORM NHẬP LIỆU P1: Dùng 1 Form nhập cho nhiều Table (cùng thiết kế Fields) ongke0711 1 74 14-07-18, 07:03 PM
Bài mới nhất: cpucloi
  Cho em hỏi hiển thị form nhập liệu pvhung76 1 49 13-07-18, 08:23 PM
Bài mới nhất: cpucloi
  [Hỏi] Làm mờ hoặc thanh menu không hoạt động khi đăng nhập Trần Đình Thành 2 165 04-06-18, 10:30 AM
Bài mới nhất: vulhu06
  Cách chuyển dạng text sang number Nguyên Thông 1 112 18-05-18, 09:11 AM
Bài mới nhất: ongke0711

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line