Txgroup > 12-01-11, 04:13 PM
haquocquan > 12-01-11, 05:39 PM
Private Sub SOSOI_AfterUpdate()
Dim SLSOI, i As Integer
Dim RS As Recordset
Set RS = CurrentDb.OpenRecordset("QLSUDUNG", dbOpenDynaset)
SLSOI = SOSOI.Value
For i = 1 To SLSOI
RS.AddNew
RS!MATT = Forms!frmTTVT1!MATT
RS!MATUYEN = Forms!frmTTVT1!MATUYEN
RS!SOI = i
RS.Update
Next
Set RS = Nothing
frmTTVT1sub.Requery
End Sub
Txgroup > 13-01-11, 08:42 AM
Txgroup > 14-01-11, 09:57 AM
Noname > 14-01-11, 10:30 AM
Txgroup > 14-01-11, 10:36 AM
Noname > 14-01-11, 10:58 AM
If isnull(dlookup("[sudung]","QLSUDUNG","[matuyen]='" & Forms![frmTTVT1]![MATUYEN] & "'" then
' gọi code xóa
else
msgbox " tuyen da su dung, khong the xoa duoc"
end if
Noname > 14-01-11, 11:02 AM
DELETE TUYENQUANG.*, QLSUDUNG.MATUYEN, QLSUDUNG.SUDUNG
FROM TUYENQUANG INNER JOIN QLSUDUNG ON TUYENQUANG.MATUYEN = QLSUDUNG.MATUYEN
WHERE (((QLSUDUNG.MATUYEN)=[Forms]![frmTTVT1]![MATUYEN]) AND ((QLSUDUNG.SUDUNG) Is Not Null Or (QLSUDUNG.SUDUNG)<>""));
Txgroup > 14-01-11, 12:03 PM
haquocquan > 14-01-11, 12:15 PM