Viết bởi: bauauto 14-06-11, 07:32 PM Chuyên mục: Query - Bài trả lời (4) |
Viết bởi: dieuchinhlu 14-06-11, 03:27 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (10) |
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
Viết bởi: chauho 14-06-11, 03:18 PM Chuyên mục: Forms - Bài trả lời (4) |
Viết bởi: hoangthanhhai 13-06-11, 06:14 PM Chuyên mục: Forms - Bài trả lời (6) |
Viết bởi: DoquangLam 13-06-11, 06:08 PM Chuyên mục: Forms - Bài trả lời (2) |
Chủ đề Mới nhất |
offtopic -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: ellahodge-3 Giờ trước- » Bài trả lời: 0- » Lượt xem: 2 |
Seattle Storm Introduces ... -Chuyên mục: Forms-Đăng bởi lần cuối: MichaelWnba-4 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
Loyd Nets 29, Storm Grabs... -Chuyên mục: Chuyện bốn phương-Đăng bởi lần cuối: MichaelWnba-4 Giờ trước- » Bài trả lời: 0- » Lượt xem: 2 |
Dòng Thơ Nhạc Trích Đoạn -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-Hôm qua, 01:13 PM- » Bài trả lời: 3- » Lượt xem: 40 |
[Demo-Phần 4] Tạo khóa bả... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ngochuong279-24-04-24, 06:13 PM- » Bài trả lời: 38- » Lượt xem: 5,451 |
Trợ giúp về Textbox với c... -Chuyên mục: Forms-Đăng bởi lần cuối: Nguyên Thông-18-04-24, 10:15 PM- » Bài trả lời: 16- » Lượt xem: 5,923 |
In mã vạch tạo từ access ... -Chuyên mục: Forms-Đăng bởi lần cuối: huyhoang22-15-04-24, 11:25 AM- » Bài trả lời: 38- » Lượt xem: 20,782 |
Kết nối bảng từ access A ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: hieunx-11-04-24, 01:23 PM- » Bài trả lời: 5- » Lượt xem: 75 |
Lấy dữ liệu từ 1 cột của ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-09-04-24, 11:34 AM- » Bài trả lời: 11- » Lượt xem: 641 |
Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: recca123-07-04-24, 11:27 PM- » Bài trả lời: 38- » Lượt xem: 1,506 |
Diễn đàn Thống kê |
» Thành viên: 4,484 » Thành viên mới nhất: ellahodge » Các chủ đề diễn đàn: 9,859 » Các bài viết diễn: 48,440 Thống kê đầy đủ |