dieuchinhlu > 14-06-11, 03:27 PM
Public Sub Lopvh()
Dim rs As DAO.Recordset
DoCmd.SetWarnings False
Set rs = CurrentDb.OpenRecordset("TableTemp", dbOpenDynaset)
rs.MoveFirst
i = 1
If Not rs.BOF And Not rs.EOF Then
Do Until rs.EOF
rs.Edit
If i > 0 And i <= 45 Then
rs![Lopvh] = Me.TXT_LOP & "1" & Year(Date)
ElseIf i > 45 And i <= 90 Then
rs![Lopvh] = Me.TXT_LOP & "2" & Year(Date)
ElseIf i > 90 And i <= 135 Then
rs![Lopvh] = Me.TXT_LOP & "3" & Year(Date)
ElseIf i > 135 And i <= 180 Then
rs![Lopvh] = Me.TXT_LOP & "4" & Year(Date)
End If
i = i + 1
rs.Update
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Me.Refresh
End Sub
Public Sub Lopvh1()
Dim rs As DAO.Recordset
Dim k, i, N As Integer
DoCmd.SetWarnings False
Set rs = CurrentDb.OpenRecordset("TableTemp", dbOpenDynaset)
rs.MoveFirst
i = 1
k = 1
N = Me.Text60 ' tong so hoc sinh
If Not rs.BOF And Not rs.EOF Then
Do Until rs.EOF
For i = 1 To N
If k <= Round(N / 45, 0) Then
rs.Edit
rs![Lopvh] = Me.TXT_LOP & k & Year(Date)
End If
i = i + 1
k = k + 1
rs.Update
rs.MoveNext
Next i
Loop
End If
rs.Close
Set rs = Nothing
Me.Refresh
End Sub