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

Xin code chèn âm thanh bíp khi nhập 1 mã vạch

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Xin code chèn âm thanh bíp khi nhập 1 mã vạch
• Xin code chèn âm thanh bíp khi nhập 1 mã vạch

• Xin code chèn âm thanh bíp khi nhập 1 mã vạch

  dotrung > 01-06-21, 07:50 AM

  Mình đã tạo được file bán hàng bằng mã vạch, bây giờ dùng máy quét IP54 để quét sản phẩm thì lại không có tiếng bíp
  
  Rất mong mọi người giúp đỡ, dotrung xin cảm ơn!
  
  link hình : https://uphinh.vn/image/jWLLG
  
  

  Trích dẫn:Private Sub MaVach_AfterUpdate()
  Beep
  '------------------------------------------------------------------ neu ma vach khong co hoac khong dung thi canh bao.
  If DLookup("[Makho]", "qry_NXT_BC", "Mahang='" & Forms![frmPhieuXuatKho_khac]![MM] & "'") <> DLookup("Khobanle", "Index") Then
      msgBoxOK DLookup("[NDUNG1]", "tblTHONGBAO", "[SOTB] = 15"), vbInformation, DLookup("[TIEUDE]", "tblTHONGBAO", "[SOTB] = 1")
      Exit Sub
  Else
  '--------------------------------------------------- Neu co du lieu thi cong don theo ma hang va tinh tien
  Forms![frmPhieuXuatKho_khac]!Image.Picture = DLookup("[hinh]", "tbldanhmuchanghoa", "[Mavach]=Forms![frmPhieuXuatKho_khac]![Mavach]")
  If (Not IsNull(DLookup("[MAHANG]", "tblPhieunhapxuatchitiet", "[MAHANG]=[MM] and [Sochungtu]=[txtsochungtu]"))) Then
      Forms![frmPhieuXuatKho_khac]!Image.Requery
      Dim sotang
      sotang = DLookup("[SoLuong]", "tblPhieunhapxuatchitiet", "[MAHANG]=[MM]and[Sochungtu]=[Forms]![frmPhieuXuatKho_khac]![txtSochungtu]")
      Me.TSL = sotang + 1
      DoCmd.OpenQuery "A_UPDATE_TSL_MAVACH"
      DoCmd.OpenQuery "A_UPDATE_TINHTIEN_MAVACH"
      Forms![frmPhieuXuatKho_khac]![frmPhieuXuatKhoChiTiet_khac_Subform].Form.Requery
      DoCmd.GoToRecord , , acNext
      DoCmd.GoToRecord , , acPrevious
      Me.Mavach.SetFocus
      Mavach = Null
      Me.Refresh
  '---------------------------------------------------------------- Nguoc lai them moi mat hang
  Else
      DoCmd.OpenQuery "APP_THEM_HANGHOA_MAVACH", acViewNormal
      Forms![frmPhieuXuatKho_khac]![frmPhieuXuatKhoChiTiet_khac_Subform].Form.Requery
      DoCmd.GoToRecord , , acNext
      DoCmd.GoToRecord , , acPrevious
      Me.Mavach.SetFocus
      Mavach = Null
      Me.Refresh
  End If
  End If
  End Sub

• RE: Xin code chèn âm thanh bíp khi nhập 1 mã vạch

  ongke0711 > 01-06-21, 07:58 AM

  Bản thân cái máy quét là có tiếng Beep rồi mà.
  Bên cạnh đó, máy tính dùng để quét có loa ngoài không?

• RE: Xin code chèn âm thanh bíp khi nhập 1 mã vạch

  dotrung > 01-06-21, 08:09 AM

  - Dạ máy quét cắm usb là nhận, em không biết thiết lập ntn để có tiếng
  - Còn máy tính có gắn loa ngoài luôn anh ạ

• RE: Xin code chèn âm thanh bíp khi nhập 1 mã vạch

  ongke0711 > 01-06-21, 08:17 AM

  (01-06-21, 08:09 AM)dotrung Đã viết: - Dạ máy quét cắm usb là nhận, em không biết thiết lập ntn để có tiếng
  - Còn máy tính có gắn loa ngoài luôn anh ạ

  
  Ý tôi là bản thân máy quét nó tự phát ra âm thanh mỗi khi scan. Chẳng lẻ model máy của bạn không có âm báo?
  Còn code trên của bạn thì tôi thấy thông báo tiếng Beep là đúng rồi, có thể nó nhỏ quá bạn không nghe

• RE: Xin code chèn âm thanh bíp khi nhập 1 mã vạch

  Noname > 01-06-21, 08:59 AM

  Beep thì đơn giản là gọi
  DoCmd.Beep
  
  Nhưng từ win7 trở đi, tiếng beep nó kêu thành tiếng đổ chuông, muốn trở lại như xưa thì kiếm cái máy có win XP, copy file
  C:\Windows\System32\Drivers\Beep.sys
  rồi chép về đè lên file gốc trên máy bạn

• RE: Xin code chèn âm thanh bíp khi nhập 1 mã vạch

  dotrung > 01-06-21, 10:51 PM

  Cảm ơn mọi người đã góp ý, dotrung đã tìm ra được nguyên nhân không kêu rồi, do window đã khóa sound default beep. chỉ cần chọn lại file tiếng cho mục này thì quét mã sẽ có tiếng kêu.
  
  link hình : https://uphinh.vn/image/jEARo
• Bài trước Bài tiếp