• Hỏi về hàm Dcount, Dsum, Davg trong access
  • 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:
    Nhập: 10
    xuất: 110
    Tồn: -100 ( ý bạn số này sai)
    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

    *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à:
    Mã:
    Dim txt2
    Dim txt3
    Dim txt4
    Đã chỉnh lại cho bạn rồi

    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":

    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
    ' Bạn bỏ đoạn này trong file demo dum mình: vì mình chưa bỏ:
    Mã:
    And Me.txttongkho.Value >=     Me.soluongxuat.Value
    Rán ngâm cứu cách làm này nhé.

    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.