thanhtruong > 13-11-14, 03:54 PM
thanhtruong > 13-11-14, 04:36 PM
haquocquan > 13-11-14, 05:55 PM
thanhtruong > 17-11-14, 03:04 PM
Minh Tiên > 18-11-14, 09:43 AM
thanhtruong > 21-11-14, 11:07 PM
(18-11-14, 09:43 AM)Minh Tiên Đã viết: Chào bạn !
Bạn nghiên cứu demo và biến tấu theo yêu cầu của bạn nhé !
Mình chỉ thực hiện hiển thị theo y/c của bạn, bạn nghiên cứu cách add dữ liệu vào table chi tiết của bạn.
Demo
Chúc bạn thành công !
Thân chào./.
Minh Tiên > 22-11-14, 12:16 PM
Private Sub btnMengan_Click()
Dim strMaxetnghiem As Recordset
Dim So As Recordset
Set So = CurrentDb.OpenRecordset("thuthuat")
Set strMaxetnghiem = CurrentDb.OpenRecordset("SELECT * from Sanpham Where Machung=1")
If Not IsNull(DLookup("[Mathuthuat]", "thuthuat", "[maso]=" & Me.maso.Value)) Then
MsgBox "Đã có dữ liệu !"
Exit Sub
Else
If strMaxetnghiem.RecordCount > 0 Then
strMaxetnghiem.MoveFirst
Do Until strMaxetnghiem.EOF
So.AddNew
So!maso = Me.maso.Value
So!Mathuthuat = strMaxetnghiem!Mathuthuat
So!SoLuong = 1
So.Update
strMaxetnghiem.MoveNext
Loop
End If
End If
Me.ChiTietHD.Requery
End Sub