Xuân Thanh > 07-04-12, 12:47 PM
(07-04-12, 12:32 PM)dtv197 Đã viết: em muốn ĐVT được quy đổi về giá trị nhỏ nhất, để báo cáo tồn kho được chính xác.
Ví dụ: mua vào 1 thùng dây mạng, bán ra 100m, còn lại 205m thì khi báo cáo tồn kho là 205m chứ không phải vẫn là 1 thùng.
Function LayDVT(MaHang As String)
Dim MaDVT As Recordset
Dim DVT As Recordset
Set MaDVT = CurrentDb.OpenRecordset("tblDonViTinh", dbOpenTable)
Set DVT = CurrentDb.OpenRecordset("tblDVT", dbOpenTable)
If DVT.RecordCount > 0 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM tblDVT"
DoCmd.SetWarnings True
End If
MaDVT.MoveFirst
Do Until MaDVT.EOF
If MaDVT.Fields(1) = MaHang Then
DVT.AddNew
DVT!DVT = MaDVT.Fields(2)
DVT.Update
End If
MaDVT.MoveNext
Loop
MaDVT.Close: DVT.Close
End Function
Private Sub MaHang_AfterUpdate()
Call LayDVT(Me.MaHang)
Me.MaDVT.Requery
End Sub
dtv197 > 09-04-12, 03:22 PM
Xuân Thanh > 09-04-12, 04:08 PM
(09-04-12, 03:22 PM)dtv197 Đã viết: Các pác ơi em làm không được
Các pác xem giúp em với
File của em đây
dtv197 > 09-04-12, 04:26 PM
Xuân Thanh > 09-04-12, 04:31 PM
dtv197 > 09-04-12, 05:23 PM
Xuân Thanh > 09-04-12, 05:57 PM
(09-04-12, 05:23 PM)dtv197 Đã viết: em đã làm theo hướng dẫn của bác rùi nhưng vẫn chưa được.
Ý muốn của em là thế này:
Khi chọn mã hàng A thì chương trình sẽ tìm trong tblDonViTinh những ĐVT có mã hàng là A
Ví dụ: mã hàng A có 2 ĐVT là "Thùng" và "Cái", mã hàng B có 2 đơn vị tính là "Hộp" và "Cây". khi chọn mã hàng A thì combox Đơn Vị Tính sẽ hiện thị list ĐVT của A bao gồm "Thùng", "Cái". còn khi chọn mã hàng B thì Đơn vị tính sẽ hiển thị list là "Hộp", "Cây".
dtv197 > 09-04-12, 06:00 PM
Xuân Thanh > 09-04-12, 06:02 PM
(09-04-12, 06:00 PM)dtv197 Đã viết: em không thấy file đính kèm đâu hết vậy pác
dtv197 > 09-04-12, 06:03 PM