nguyenhungcuong > 05-06-16, 10:11 PM
ongke0711 > 05-06-16, 10:48 PM
nguyenhungcuong > 06-06-16, 09:39 AM
ongke0711 > 06-06-16, 11:14 AM
nguyenhungcuong > 06-06-16, 01:25 PM
ongke0711 > 06-06-16, 10:58 PM
Dim SoLonNhat As Long, SoKeTiep As Long
Dim SoBatDau As Long, SoKetThuc As Long
SoBatDau = 100: SoKetThuc = 1000
SoLonNhat = Nz(DMax("MaSV", "TableSinhVien"), 0)
If SoLonNhat = SoKetThuc Then
MsgBox "Da het " & SoKetThuc & " so"
Exit Sub
Else
If SoLonNhat >= SoBatDau Then
SoKeTiep = SoLonNhat + 1
If SoKeTiep >= SoKetThuc - 100 Then
MsgBox "Khoang so con lai: " & SoKetThuc - SoKeTiep
End If
Else
SoKeTiep = SoBatDau
End If
Me.txtSTT = SoKeTiep
End If
nguyenhungcuong > 06-06-16, 11:29 PM
maidinhdan > 07-06-16, 11:06 AM
(06-06-16, 11:29 PM)nguyenhungcuong Đã viết: 1. Mình muốn tạo ở table có 2 trường: [Sobatdau], [Soketthuc], sau đó chuyển vào [Ma Sv] của table Sinh viên.Câu hỏi quá lăng tăng....!
2. Khi mình thực hiện theo hướng dẫn cua bạn thì [Ma SV]= 100, nhưng khi bấm vào nút Thêm thì nó trả về bằng 0?
3. Bạn cho mình hỏi thêm là Nếu khoảng số cho trước là bất kỳ thì code phải viết như thế nào?
nguyenhungcuong > 07-06-16, 12:53 PM
maidinhdan > 08-06-16, 09:37 AM
(07-06-16, 12:53 PM)nguyenhungcuong Đã viết: Cám ơn bạn vì những lời chia sẻ. Mình cũng chỉ vừa mới làm quen với code VBA + Access khoảng gần 1 tháng nay nên "Câu hỏi quá lăng tăng....! " thì bạn và mọi người cũng thông cảm, bỏ qua cho.
1. Bạn có thể hướng dẫn cho mình thêm về trường hợp này :"bạn phải chỉ định thêm cột để xác định lấy dòng nào để làm chuẩn"
2. Chương trình mình đang làm thì:
- Thống nhất nguyên tắc tăng/giảm [Ma SV] làm chuẩn.
- Chia lớp ( có nhiều phòng, cắt khớp 30người/lớp trong 500 người)---->Nhập trong khoảng số đã cho, nhập hết khoảng số mới được phép nhập tiếp.
3. Khi mình thực hiện theo hướng dẫn thì [Ma SV]= 100, nhưng khi bấm vào nút Thêm thì nó trả về bằng 0 (giá trị đúng: = 101) hoặc báo lỗi "Run-time erro '2105'?