jason > 06-11-15, 05:20 PM
(05-11-15, 12:55 AM)tranthanhan1962 Đã viết:Tại vì mình có một điều kiện nữa nên không dùng cách đó, mình sẽ thử lại, nếu không được mình sẽ post bài lên để mọi người hiểu rõ hơn.(04-11-15, 05:26 PM)jason Đã viết: Cảm ơn Bác quan tâm, Bác xem giúp code của mình thử nhé vẫn không được, phải click qua txtbox khác mới lưu được:
Private Sub txtCartonBarcode_AfterUpdate()
Dim DB As Database
Dim RS As Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("TCartonScan", dbOpenTable)
RS.AddNew
RS.Fields(0) = Me.txtCartonCode
RS.Fields(1) = Me.txtCartonBarcode
'RS.Fields(2) = Me.txtcolor
'RS.Fields(3) = Me.txtbuyer
'RS.Fields(4) = Me.txtqty
'RS.Fields(5) = Me.txtcustdesc
RS.Update
MsgBox "Saved!"
RS.Close
Set DB = Nothing
Me.Query5.Requery
End Sub
thanks
Sau bạn không tạo form có record source là TCartonScan cho đỡ phải xử lý. Mình không biết phần mềm mã vạch của bạn dùng để xử lý cái gì. Kinh nghiệm của mình khi viết mã vạch cho các phần mềm bán hàng (tạp hóa, vàng bạc...) mình vẫn tạo form có record source là table. Thiết đặt textbox có control source MAVACH (mã vạch) có Auto Tab = Yes, Tab Stop = Yes, Tab Index = 0. Viết code cho MAVACH_Exit xử lý các field còn lại (phần mua hàng còn cho nhảy vào ô số lượng chứ bán hàng thì số lượng cứ default value = 1 quét xong nhảy luôn qua record mới). Máy quét mã vạch chẳng qua cũng chỉ là một bàn phím thôi mà