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

Xin hỗ trợ file demo xuất bán hàng bằng mã vạch

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Xin hỗ trợ file demo xuất bán hàng bằng mã vạch
• Xin hỗ trợ file demo xuất bán hàng bằng mã vạch

• Xin hỗ trợ file demo xuất bán hàng bằng mã vạch

  dotrung > 24-02-20, 07:39 PM

  Chào cả nhà, em đang mò học thêm mảng bán hàng qua mã vạch, nên mạn phép nhờ các anh chị cao thủ trong diễn đàn giúp em file demo bán hàng bằng mã vạch như siêu thị được không?
  Cảm ơn các anh chị nhiều !

• RE: Xin hỗ trợ file demo xuất bán hàng bằng mã vạch

  mrsiro > 24-02-20, 11:36 PM

  Mình có làm qua 1 vài project bán hàng, qui trình như sau. Tại danh mục hàng thì bạn lấy mã hàng sau đó viết code chuyển sang mã vạch, rồi in ra giấy nên mua loại giấy mà lột mặt sau ra là dán được ấy. Sau khi in ra rồi thì dán cái mã vạch này lên bao bì sản phẩm. Khi khách hàng mang ra quầy tính tiền thì dùng máy quét mã vạch có kết nối với máy tính thì giá trị của mã hàng tự động nhảy ra ô textbox trên phần mềm, phần này khỏi cần viết code thì giá trị máy quét ra là giá trị của mã hàng luôn, tới đây tại sự kiện afterupdate hoặc onchange bạn viết code cho nó filter ra các cột như tên hàng, giá bán. Cứ quét tới đâu cho cộng dồn tới đó rồi in ra hóa đơn là xong.

• RE: Xin hỗ trợ file demo xuất bán hàng bằng mã vạch

  Minh Tiên > 25-02-20, 09:11 AM

  Bạn cho email mình gửi code file quản lý bán hàng mình đang làm # yc của bạn.
  Thân./.

• RE: Xin hỗ trợ file demo xuất bán hàng bằng mã vạch

  dotrung > 25-02-20, 06:24 PM

  Trích dẫn:Bạn cho email mình gửi code file quản lý bán hàng mình đang làm # yc của bạn.

  
  Email của dotrung: trungpkv@gmail.com
  
  Em cảm ơn các bác rất nhiều !

• RE: Xin hỗ trợ file demo xuất bán hàng bằng mã vạch

  Minh Tiên > 27-02-20, 03:31 PM

  (25-02-20, 06:24 PM)dotrung Đã viết:

  Trích dẫn:Bạn cho email mình gửi code file quản lý bán hàng mình đang làm # yc của bạn.

  
  Email của dotrung: trungpkv@gmail.com
  
  Em cảm ơn các bác rất nhiều !

  Mình đã gửi qua email bạn !
  Thân./.

• RE: Xin hỗ trợ file demo xuất bán hàng bằng mã vạch

  dotrung > 09-05-20, 05:58 PM

  dotrung đã làm được file Quản lý kho cơ bản, nhưng phần bán lẻ, khi quét mã vạch với phiếu bình thường thì được, nhưng khi ta sửa phiếu xuất lẻ, lại bị lỗi, rất mong các thành viên diễn đàn hỗ trợ giúp.
  file : https://drive.google.com/file/d/1W-Ojzx-...sp=sharing
  
  pass: dotrung

• RE: Xin hỗ trợ file demo xuất bán hàng bằng mã vạch

  ongke0711 > 11-05-20, 12:15 AM

  (09-05-20, 05:58 PM)dotrung Đã viết: dotrung đã làm được file Quản lý kho cơ bản, nhưng phần bán lẻ, khi quét mã vạch với phiếu bình thường thì được, nhưng khi ta sửa phiếu xuất lẻ, lại bị lỗi, rất mong các thành viên diễn đàn hỗ trợ giúp.
  file : https://drive.google.com/file/d/1W-Ojzx-...sp=sharing
  
  pass: dotrung

  
  Báo lỗi gì, ở dòng code nào và bạn thao tác như thế nào thì phát sinh lỗi?
  Góp ý thêm:
  - File bạn mở lên, đóng lại nặng nề quá, chắc là do code dư thừa nhiều.
  - Tên Form bạn tham chiếu nguyên chuỗi dài sọc, tốn không gian code, khó theo dõi, sửa chữa.
  - Xem lại toàn bộ thiết kế Relationship, nếu thiết kế hợp lý bạn chỉ cần xoá 1 record trong table Cha thì toàn bộ các record có cùng khoá trong table Con sẽ được xoá luôn, bạn không cần phải viết một đống code Xoá trong từng Table theo MaChungTu v.v.. 
  Vd: relationship của tblPhieuXuatKho và tblPhieuXuatKhoChiTiet là 1- n và có tuỳ chọn Cascading Update, Delete.

• RE: Xin hỗ trợ file demo xuất bán hàng bằng mã vạch

  Xuân Thanh > 11-05-20, 06:54 AM

  (11-05-20, 12:15 AM)ongke0711 Đã viết: Báo lỗi gì, ở dòng code nào và bạn thao tác như thế nào thì phát sinh lỗi?
  Góp ý thêm:
  - File bạn mở lên, đóng lại nặng nề quá, chắc là do code dư thừa nhiều.
  - Tên Form bạn tham chiếu nguyên chuỗi dài sọc, tốn không gian code, khó theo dõi, sửa chữa.
  - Xem lại toàn bộ thiết kế Relationship, nếu thiết kế hợp lý bạn chỉ cần xoá 1 record trong table Cha thì toàn bộ các record có cùng khoá trong table Con sẽ được xoá luôn, bạn không cần phải viết một đống code Xoá trong từng Table theo MaChungTu v.v.. 
  Vd: relationship của tblPhieuXuatKho và tblPhieuXuatKhoChiTiet là 1- n và có tuỳ chọn Cascading Update, Delete.

  
  Cái Relationship thuộc bài cơ bản trong khi thiết kế table và CSDL. Chỉ có điều là khi có tùy chọn Cascading Delete thì nhớ thật cẩn thận trong bài toán có công nợ, tồn kho

• RE: Xin hỗ trợ file demo xuất bán hàng bằng mã vạch

  dotrung > 11-05-20, 09:25 AM

  Dạ phần xuất bán lẻ bằng mã vạch, em dùng hàm replace tại afterupdate bị lỗi : không hiển thị khi quét sản phẩm mới (nó chép đè lên sản phẩm mới, không xuống dòng), khi sửa phiếu bán lẻ : phần mã vạch mới lại chép đè lên các sản phẩm cũ.
  
  If DCount("Mavach", "tblPhieuxuatkhoChitiet", "Mavach&sochungtu='" & Replace(Forms![frmPhieuXuatKho_khac]![frmPhieuXuatKhoChiTiet_khac_Subform].Form![Mavach] & txtSOCHUNGTU, "'", "''") & "'") <= 0 Then
          Forms![frmPhieuXuatKho_khac]![frmPhieuXuatKhoChiTiet_khac_Subform].Form![Yeucau] = 1
  Else
          Forms![frmPhieuXuatKho_khac]![frmPhieuXuatKhoChiTiet_khac_Subform].Form![Yeucau] = DLookup("Yeucau", "tblPhieuxuatkhoChitiet", "Mavach&sochungtu='" & Replace(Forms![frmPhieuXuatKho_khac]![frmPhieuXuatKhoChiTiet_khac_Subform].Form![Mavach] & Forms![frmPhieuXuatKho_khac]![frmPhieuXuatKhoChiTiet_khac_Subform].Form![Sochungtu], "'", "''") & "'") + 1
  End If
  
  Đã chỉnh sửa phần đứng yên textbox mã vạch:
  Private Sub MaVach_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
      Forms![frmPhieuXuatKho_khac]!Mavach.SetFocus
      Application.SetOption "Move After Enter", 0
  Else
      Application.SetOption "Move After Enter", 1
  End If
  End Sub
  
  
  - Phần đóng mở chạy chậm, em cũng chưa hiểu nguyên nhân như thế nào.
  - Relationship em không đặt trong data backend, vì xử lý copy phiếu xuất bị lỗi.

• RE: Xin hỗ trợ file demo xuất bán hàng bằng mã vạch

  ongke0711 > 13-05-20, 12:51 PM

  (11-05-20, 09:25 AM)dotrung Đã viết: Dạ phần xuất bán lẻ bằng mã vạch, em dùng hàm replace tại afterupdate bị lỗi : không hiển thị khi quét sản phẩm mới (nó chép đè lên sản phẩm mới, không xuống dòng), khi sửa phiếu bán lẻ : phần mã vạch mới lại chép đè lên các sản phẩm cũ.
  
  
  
  - Phần đóng mở chạy chậm, em cũng chưa hiểu nguyên nhân như thế nào.
  - Relationship em không đặt trong data backend, vì xử lý copy phiếu xuất bị lỗi.

  
  Bạn bám theo cách thức xử lý của máy quét mà code cho Form.
  Con trỏ ở đâu thì mã vạch đi theo đó. 
  - Khi quét mới: muốn nhảy dòng mới thì bạn code cho Subform SetFocus -> goto NewRec -> rồi mới lưu mã vạch xuống.
  - Khi sửa: move con trỏ đến field cần sửa trước đã rồi quét.
  
  Copy cái Sub này vào Subform:
  
  

  Mã PHP:

  Public Sub GotoNewRec()
  If Not Me.NewRecord Then DoCmd.GoToRecord , , acNewRec
End Sub 


  
  Ở Main form phiếu xuất, sự kiện MaVach_AfterUpdate gọi sub trên:
  
  

  Mã PHP:

  Private Sub MaVach_AfterUpdate()
    If Nz(Mavach.Value, "") = "" Then Exit Sub
    Forms![frmPhieuXuatKho_khac]![frmPhieuXuatKhoChiTiet_khac_Subform].SetFocus
    Forms![frmPhieuXuatKho_khac]![frmPhieuXuatKhoChiTiet_khac_Subform].Form.GotoNewRec
    ... 


  
  
  
  Nhìn code trong Form này của bạn oải thật. 
  Muốn gán trị xuống textbox thì dùng bạn có thể dùng recordset, lấy về recordset có đúng dòng dữ liệu cần rồi gán.
  Ví dụ: txtTenHang = rs!tenHang
  Thay cho cách hiện tại là mỗi textbox lại chạy 1 cái DLookup() quét toàn bộ bảng rồi chỉ lấy ra trị của 1 field là quá lãng phí tài nguyên. Khi Table lên đến mấy chục ngàn dòng thì sẽ thấy tốc độ nó ảnh hưởng như thế nào.
  Về Replatioship của table phiếu xuất và PX chi tiết bạn phải tạo quan hệ 1 - n, chứ quan hệ 1-1 như hiện tại sau này sẽ có sai dữ liệu thì lại đi sửa.
  Tạo relationship chuẩn đi đã, còn việc Xoá bị báo lỗi là do làm sai nguyên tắc của CSDL chuẩn, vì xoá không được mà bạn đi sửa sự chuẩn hoá của CSDL là quá sai.
• Bài trước Bài tiếp