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

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?

- 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 ạ

(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

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

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