thuphuong0808 > 09-04-13, 12:23 PM
Private Sub ghi7_Click()
Dim SQLLop As String
Dim rsLop As Recordset
Dim SQLHS As String
Dim rsHS As Recordset
Dim i As Integer
SQLLop = "SELECT LanKD FROM KiemDinhDH where (((KiemDinhDH.LanKD)=[Forms]![F-kiemdinh]![T3])) "
Set rsLop = CurrentDb.OpenRecordset(SQLLop)
If rsLop.RecordCount > 0 Then
rsLop.MoveFirst
Do Until rsLop.EOF
SQLHS = "SELECT * from KiemDinhDH WHERE (((LanKD)='" & rsLop!LanKD & "'))"
Set rsHS = CurrentDb.OpenRecordset(SQLHS, dbOpenDynaset)
rsHS.MoveFirst
i = tem
Do Until rsHS.EOF
rsHS.Edit
rsHS!Sotem = i
rsHS.Update
rsHS.MoveNext
i = i + 1
s1.Requery
Loop
rsLop.MoveNext
s1.Requery
Loop
rsHS.Close
End If
rsLop.Close
Me.Requery
End Sub