dotrung > 10-10-19, 08:36 PM
tranthanhan1962 > 11-10-19, 12:16 AM
(10-10-19, 08:36 PM)dotrung Đã viết: Do em đang muốn trải nghiệm máy quét mã vạch trong việc xuất kho hàng hóa nên xin phép diễn đàn cho em đăng bài này.Do bạn có 2 điều kiện mã vạch nên bạn cần có một field để tổng hợp 2 điều kiện thành 1, ví dụ dieukien=mavach1 & mavach2
Nhờ các bác cao thủ trong diễn đàn hỗ trợ giúp em phần này, vì em cục bí đè nặng quá, nghĩ mãi không ra (vì kiến thức VBA có hạn) , đó là:
+ Combobox: truy vấn cùng lúc 2 mã vạch (trong 1 record danhmuchanghoa: mavach va mavach_thung)
+ Khi quét vạch giống nhau thì số lượng sẽ cộng dồn 1 dòng duy nhất, nếu khác mã thì tạo dòng mới.
+ Thông báo khi vượt quá số lượng của chứng từ xuất kho
link file của em :
http://www.mediafire.com/file/ukoukzkxik...accdb/file
Sub Quet()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("TenTab")
tonghop2mavach.Value=Mavach1.Value & Mavach2.Value
'Search for the first matching record
rst.MoveFirst
Do Until rst.EOF
If rst!Title = tonghop2mavach.Value Then
rst.Edit
rst!SoLuong= rstEmployees!SoLuong + 1
rst.Update
Mavach1.Value=""
Mavach2.Value=""
tonghop2mavach.Value=""
else
rst.MoveNext
End If
Loop
End Sub
dotrung > 13-10-19, 09:25 AM
tranthanhan1962 > 13-10-19, 02:15 PM
dotrung > 16-10-19, 08:36 PM
ongke0711 > 16-10-19, 09:10 PM
dotrung > 17-10-19, 01:07 PM
tranthanhan1962 > 17-10-19, 11:18 PM
ongke0711 > 19-10-19, 06:41 PM
dotrung > 19-10-19, 08:49 PM