ngamyeuem > 03-04-13, 04:41 PM
Xuân Thanh > 03-04-13, 04:45 PM
(03-04-13, 04:41 PM)ngamyeuem Đã viết: Các Pro giúp đỡ: Mình muốn nhập một danh sách họ tên và số thứ tự từ 1 -> n (key đặt ở số thứ tự). Có thể lúc nhập số thứ tự, người nhập không nhập đúng thứ tự liên tiếp. Vậy làm thế nào để kiểm tra ra số khuyết không liên tiếp đầu tiên (VD: 1,2,3,5,6,7,9...n, tìm ra số 4 và số 8) và đưa nó ra cho người nhập để khỏi bị trùng. Hoặc khi người nhập số thứ tự bị trùng trong danh sách thì cũng tự đưa ra số khuyết bổ sung (không bị trùng). Xin cảm ơn các Pro!
http://www.mediafire.com/download.php?6xqm79q2fvfwn9c
ngamyeuem > 04-04-13, 04:28 PM
Xuân Thanh > 04-04-13, 05:20 PM
(04-04-13, 04:28 PM)ngamyeuem Đã viết: mình không muốn nó nhập tự động, mà muốn nó tự động đánh số cho người nhập theo thứ tự tăng dần, nếu người nhập nhập số trùng hoặc số không liên tiếp thì tự động báo lỗi và hiển thị số liên tiếp gần nhất.
ví dụ: trong dữ liệu có 9 bản ghi lần lượt là: 1,2,3,4,6,7,8,10,11
Khi Load giao diện nhập mới thì số thứ tự sẽ tự động nhận dạng và hiển thị số: 5
nhập thông tin, nhấn lưu, nhâp xong bản ghi số 5 thì số thứ tự tự động hiển thị là: 9
Nếu ng dùng cố ý sửa là 12 thì vẫn nhận, nhưng nếu sửa là 1, 2, 3 thì không nhận và hiển thị tự động ra số: 9 để ng dùng nhập tiếp.
Mình loay hoay mãi mà ko đc... giúp đỡ với các Pro
NganDinhNguyen > 07-04-13, 12:15 AM
Xuân Thanh > 07-04-13, 06:23 PM
(03-04-13, 04:41 PM)ngamyeuem Đã viết: Các Pro giúp đỡ: Mình muốn nhập một danh sách họ tên và số thứ tự từ 1 -> n (key đặt ở số thứ tự). Có thể lúc nhập số thứ tự, người nhập không nhập đúng thứ tự liên tiếp. Vậy làm thế nào để kiểm tra ra số khuyết không liên tiếp đầu tiên (VD: 1,2,3,5,6,7,9...n, tìm ra số 4 và số 8) và đưa nó ra cho người nhập để khỏi bị trùng. Hoặc khi người nhập số thứ tự bị trùng trong danh sách thì cũng tự đưa ra số khuyết bổ sung (không bị trùng). Xin cảm ơn các Pro!
http://www.mediafire.com/download.php?6xqm79q2fvfwn9c
Sub TimSTT()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblDanhSachHocVien", dbOpenTable)
Dim SoTT As Integer, So As Integer
SoTT = 0
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF
If rs!STT - SoTT > 1 Then
So = SoTT + 1
Exit Do
Else
SoTT = SoTT + 1
End If
rs.MoveNext
Loop
End If
MsgBox "So Thu Tu con thieu la " & So, , "Thong Bao"
End Sub