Đá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
  Cách chuyển dạng text sang number Nguyên Thông 1 63 18-05-18, 09:11 AM
Bài mới nhất: ongke0711
  [Hỏi] Cách đặt mặc định là ngày cuối tháng! NguyenDungAnh 4 156 11-05-18, 06:52 PM
Bài mới nhất: NguyenDungAnh
  Hỏi cách copy dữ liệu ledangvan 1 111 01-05-18, 03:12 PM
Bài mới nhất: MTNQ
  Cách tạo menu trong access 2007 darkmoon 12 13,760 30-03-18, 09:20 AM
Bài mới nhất: mrtoanbin
  cách tạo TextBox nhảy số theo điều kiện Nguyên Thông 5 226 19-03-18, 03:32 PM
Bài mới nhất: Nguyên Thông

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