-
RE: Số lượng tồn kho -100
maidinhdan > 27-01-15, 05:20 PM
Trích dẫn:Bạn hỏi qua Email:
Trả lời: Tồn: -100 ý bạn số này sai: Theo tính toán bên ngoài bạn dùng hàm rất chính xác nhưng có lẽ bạn muốn là tồn thực tế là không phát sinh số âm. Vì vậy
Nhập: 10
xuất: 110
Tồn: -100 ( ý bạn số này sai)
*Góp ý 1: ở form xuất: bạn thêm vào sub form "F_XuatThuocSuB" có combox: "ComboMaThuoc2" như sau
dòng Row source:
Mã:SELECT THUOC.MaThuoc AS [Mã thuốc], THUOC.TenThuoc AS [Thuốc tồn kho] FROM THUOC WHERE (((THUOC.TonCu)>0)) ORDER BY THUOC.MaThuoc;
Khi đó: bạn chọn "ComboMaThuoc2", thì nó chỉ hiện những thuốc nào có trong kho thôi;
* Góp ý 2: sub form "F_XuatThuocSuB" thêm 2 text box nửa:
1. text box: Tồn củ
2. text box: Kiểm tra thuốc còn tồn đủ cấp phát không.
* Riêng chuyện Cefuroxim CGP-500mg : -100 thì quên đi. Vì demo sau này sẽ cho bạn biết được, nếu bạn nhấp quá số lượng tồn trong kho nó sẽ cảnh báo bạn ngay.
Sau này bạn xuất kho theo demo này tiện hơn: https://sites.google.com/site/congthucas...ects=0&d=1 -
RE: Hỏi về hàm Dcount, Dsum, Davg trong access
dinhnhieu > 29-01-15, 08:58 AM
Rất cảm ơn sự giúp đỡ nhiệt tình của maidinhdan, mình đã làm theo gởi ý của bạn nhưng giờ lại xuất hiện một vấn đề khác, khi tạo phiếu xuất thuốc mới thì subform bị khóa (do mình đưa tồn cuối kỳ vào bằng QRY), bạn có thể tranh thủ xem lại dữ liệu mình tý.
Chân thành cảm ơn.
https://www.dropbox.com/s/zi8oa52aeligo5...D.mdb?dl=0 -
Re: Khi tạo phiếu xuất thuốc mới thì subform bị khóa
maidinhdan > 29-01-15, 11:41 AM
(29-01-15, 08:58 AM)dinhnhieu Đã viết: Khi tạo phiếu xuất thuốc mới thì subform bị khóa.
https://www.dropbox.com/s/zi8oa52aeligo5...D.mdb?dl=0
Trả lời: Bạn làm một số việc sau đây
Tạo query1 để xuất sang combobox liệt kê loại thuốc nào >0
Tạo thêm 03 textbox:
+ 01 Combox lựa chọn thuốc: ( cái này lấy từ query 1: gồm 3 trường: Mathuoc, tên thuốc, tồn): khi làm cho hiện tên nhưng thực chất là mã thuốc.
+ 01 text số lượng xuất
+ 01 tetx hiện tồn trong kho
Tạo thêm 01 nút nhấn: Nạp vào bảng sub form bị khóa của bạn
Mã:Private Sub cmdNapvaobang_Click()
If Me.cbmathuocxuat.Value <> "" And Me.txttongkho.Value <> "" And Me.MaPhieuX.Value <> "" And Me.txttongkho.Value >= Me.soluongxuat.Value Then
Dim txt1 As String
Dim txt5 As String
Dim txt6 As String
txt1 = Me.MaPhieuX
txt5 = Me.cbmathuocxuat
txt6 = Me.soluongxuat
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("DMXUATKHO", dbOpenDynaset)
rs.AddNew
rs!MaPhieuX = txt1 'maidinhdan
rs!MaThuoc = txt5 ' Tuong tu
rs!SoLuongX = txt6 ' Tuong tu
rs.Update
rs.Close
Me.F_XuatThuocSuB.Requery ' Ten form con dat trong form chinh
Me.cbmathuocxuat.Value = ""
Me.soluongxuat.Value = ""
Me.txttongkho.Value = ""
Else
MsgBox "Khong duoc bo trong cac o tren hoac so luong lon hon ton kho", vbInformation, "thong bao"
End If
Me.cbmathuocxuat.Requery
Me.cbmathuocxuat.SetFocus
End Sub
Xem demo: https://sites.google.com/site/congthucas...ects=0&d=1
Bạn nhấn nút thêm hoặc lăng chuột tùy bạn, nhập số lượng xuất xong thì nhấp nút "Nạp" -
RE: Hỏi về hàm Dcount, Dsum, Davg trong access
dinhnhieu > 30-01-15, 07:57 AM
- Không biết maidinhdan quê ở đâu, nếu ở miền trung có diệp đi ngang Bình Định ghé tham quan Suối nước nóng Hội Vân thưởng thức vài món đồng quê và mình cùng giao lưu tý vì cơ quan và nhà ở sát cạnh suối.
- Sự nhiệt tình và kiến thức của bạn mình rất thán phục, nhờ đó mà kiến thức access cua3mi2nh cũng được nâng cao, cái demo đó vẫn còn 2 vấn đề mà mình không làm được:
+ Xuất lớn hơn tồn nó vẫn chạy hoặc báo lỗi.
+ Khi xuất bằng số lượng tồn thì nó chấp nhận nhưng không list ở subform
- Bạn cố gắn xem lại tý nhé, (kiến thức visualbasic mình cùi bắp lắm, ) có gì làm phiền xin bạn bỏ qua, mình chân thành cảm ơn và chúc bạn sức khỏe.
https://www.dropbox.com/s/8jth9tozq4wfyi...D.mdb?dl=0 -
RE: Hỏi về hàm Dcount, Dsum, Davg trong access
maidinhdan > 30-01-15, 11:58 AM
(30-01-15, 07:57 AM)dinhnhieu Đã viết: - Không biết maidinhdan quê ở đâu, nếu ở miền trung có diệp đi ngang Bình Định ghé tham quan Suối nước nóng Hội Vân thưởng thức vài món đồng quê và mình cùng giao lưu tý vì cơ quan và nhà ở sát cạnh suối.
- Sự nhiệt tình và kiến thức của bạn mình rất thán phục, nhờ đó mà kiến thức access cua3mi2nh cũng được nâng cao, cái demo đó vẫn còn 2 vấn đề mà mình không làm được:
+ Xuất lớn hơn tồn nó vẫn chạy hoặc báo lỗi.
+ Khi xuất bằng số lượng tồn thì nó chấp nhận nhưng không list ở subform
- Bạn cố gắn xem lại tý nhé, (kiến thức visualbasic mình cùi bắp lắm, ) có gì làm phiền xin bạn bỏ qua, mình chân thành cảm ơn và chúc bạn sức khỏe.
https://www.dropbox.com/s/8jth9tozq4wfyi...D.mdb?dl=0
Trả lời:
Câu 1: Xin lỗi bạn mình mình đánh dư code: vì thế nó báo lỗi: Đoạn code dư đó là:
Đã chỉnh lại cho bạn rồiMã:Dim txt2
Dim txt3
Dim txt4
Câu 2: Xuất lớn hơn tồn, Xuất bằng tồn nhưng nó vẫn chạy: Cái này mình tưởng lần trước hướng dẫn bạn rồi, bạn có thể làm được bằng hàm if..then..
Mình cũng sửa lại cho bạn xem nhé
Trong sub của bạn mình đã bỏ đi: cột tồn; và cột thông báo tồn rồi, để không gây hiểu nhầm khi nó xuất.
Cuối cùng: Sau này nó sẽ thông báo cho bạn khi nhấn núp nạp để biết lượng tồn kho và chỉ những mặt hàng còn tồn chỉ hiện ở combox chọn mặt hàng thôi.
Xem lại file demo nhé: https://sites.google.com/site/congthucas...ects=0&d=1
Còn đây là code kiểm tra lượng xuất có lớn hơn tồn không và tự thêm vào sub bị khóa(thực chất là thêm vào tbl "DMXUATKHO":
' Bạn bỏ đoạn này trong file demo dum mình: vì mình chưa bỏ:Mã:Private Sub cmdNapvaobang_Click()
If Me.txtt >= Me.txtx Then
If Me.cbmathuocxuat.Value <> "" And Me.txttongkho.Value <> "" And Me.MaPhieuX.Value <> "" Then
Dim txt1 As String
Dim txt5 As String
Dim txt6 As String
txt1 = Me.MaPhieuX
txt5 = Me.cbmathuocxuat
txt6 = Me.soluongxuat
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("DMXUATKHO", dbOpenDynaset)
Me.Refresh ' ban loi do thieu code refresh
rs.AddNew
rs!MaPhieuX = txt1 'maidinhdan
rs!MaThuoc = txt5 ' Tuong tu
rs!SoLuongX = txt6 ' Tuong tu
rs.Update
rs.Close
Me.F_XuatThuocSuB.Requery ' Ten form con dat trong form chinh
Me.cbmathuocxuat.Value = ""
Me.soluongxuat.Value = ""
Me.txttongkho.Value = ""
Else
MsgBox "Khong duoc bo trong cac o tren hoac so luong lon hon ton kho", vbInformation, "thong bao"
End If
Me.cbmathuocxuat.Requery
Me.cbmathuocxuat.SetFocus
Else
MsgBox "So luong ton kho khong du, chi con lai co: " & Me.cbmathuocxuat.Column(2), vbInformation, "Thong bao"
Me.soluongxuat.Value = ""
Me.soluongxuat.SetFocus
End If
End Sub
Rán ngâm cứu cách làm này nhé.Mã:And Me.txttongkho.Value >= Me.soluongxuat.Value
Quê tớ: tỉnh Sóc Trăng, khi nào ra minh Alo.
Huy vọng lần này là đúng như ý bạn. -
RE: Hỏi về hàm Dcount, Dsum, Davg trong access
dinhnhieu > 30-01-15, 02:23 PM
Tuyệt cú mèo, chỉ vậy thôi, đúng nghĩa với câu: "Học thầy không bằng học bạn"
Bình Định - Sóc Trăng tuy xa thật
Ước gì ngồi với bạn nâng ly.
Gò Đen nổi tiếng Miền Tây
Ra đây Bàu Đá cụng ly tê liền.
Sorry Admin, hào hứng quá chứ không có ý gì , cố gắn đồng hành cùng diễn đàn access. -
RE: Hỏi về hàm Dcount, Dsum, Davg trong access
dinhnhieu > 04-02-15, 08:00 AM
Có vướng mắc nữa xin hỏi Maidinhdanh: có cách nào khi xuất ra excel từ Qry lấy tham số từ ngày đến ngày trong frm được không? ở mục Báo cáo\Tồn theo ngày.
https://www.dropbox.com/s/zi8oa52aeligo5...D.mdb?dl=0
Xin chân thành cảm ơn. -
RE: Hỏi về hàm Dcount, Dsum, Davg trong access
maidinhdan > 04-02-15, 10:13 AM
(04-02-15, 08:00 AM)dinhnhieu Đã viết: Có vướng mắc nữa xin hỏi Maidinhdanh: có cách nào khi xuất ra excel từ Qry lấy tham số từ ngày đến ngày trong frm được không? ở mục Báo cáo\Tồn theo ngày.
https://www.dropbox.com/s/zi8oa52aeligo5...D.mdb?dl=0
Xin chân thành cảm ơn.
Trả lời:
Bạn vào query "Q_trong" cột [NgayHD] sửa lại đoạn: Between [tungay] and [denngay] thành
Mã:Between [Forms]![F_ThuocTonXuatNhap]![TuNgay] And [Forms]![F_ThuocTonXuatNhap]![DenNgay]
Vậy là ok, bạn xuất sang Excel thoải mái.
Một số góp ý xoay quanh Export sang Excel của bạn để phần mềm êm hơn: Làm hay không làm cũng không sao
Xem thêm tại đây: http://thuthuataccess.com/forum/post-251...l#pid25103 -
RE: Hỏi về hàm Dcount, Dsum, Davg trong access
thucgia > 04-02-15, 03:38 PM
(04-02-15, 10:13 AM)maidinhdan Đã viết:
(04-02-15, 08:00 AM)dinhnhieu Đã viết: Có vướng mắc nữa xin hỏi Maidinhdanh: có cách nào khi xuất ra excel từ Qry lấy tham số từ ngày đến ngày trong frm được không? ở mục Báo cáo\Tồn theo ngày.
https://www.dropbox.com/s/zi8oa52aeligo5...D.mdb?dl=0
Xin chân thành cảm ơn.
Được bạn ạ, sáng nay mình chưa rảnh hướng dẫn, để chiều nay mình viết rồi gửi lên diễn đàn, mà hình như trong diễn đàn mình cũng có vài bài nói về vấn đề nay rồi. Nếu bạn rành về code thì xem trước cũng được.
Link nè: https://thuthuataccess.wordpress.com/200...-ra-excel/
Góp ý: bạn có thể tạo chủ đề mới không?!, vì cái này nó liên quan đến xuất file Excel, để sau này còn bạn khác học hỏi nửa.
Bạn cần giải quyết 2 vấn đề
1. Lấy danh sách nhập xuất tồn từ ngày đến ngày (Phải dùng query + tham so)
1.1. Cái link trên đẩy một query ra excel, cái của bạn phải dùng một Querydef thì chắc được
2. Xuất ra file excel (Đã có danh sách thì xuất ra mấy hồi, thủ tục riêng)
Nên chia làm nhiều thủ tục mới đỡ rối... -
RE: Hỏi về hàm Dcount, Dsum, Davg trong access
dinhnhieu > 04-02-15, 04:49 PM
Bạn nói mình càng rối hơn nữa, yêu cầu của bạn mình chỉ làm được 1 thôi, khó thật chắc bó tay vụ này rùi.