Trường dạng AutoNumber không hoạt động. (2 người xem)

[Hai Lúa Miền Tây]

Em có 1 CSDL trường STT dạng Autonumber trước giờ hoạt động bình thường, nhưng đến ngày hôm nay nó đánh số lại từ 1, trường này là khoá chính nên nó không cho phép tiếp tục nhập liệu, mong các anh chị hướng dẫn cách khắc phục.

[video]http://s216.photobucket.com/albums/cc43/domfootwear/?action=view&current=Autonumber.mp4[/video]

Em xin cám ơn.

 

[Hai Lúa Miền Tây]

Cuối cùng thì em cũng đã tìm ra được giải pháp để reset cái trường dạng autonumber này.

Function ChangeSeed(strTbl As String, strCol As String, lngSeed As Long) As Boolean
'strTbl = Ten Table co chua truong kieu autonumber
'strCol = Ten truong co chua autonumber
'lngSeed = Con so ma ban muon no hien thi cho dong ke tiep.

Dim cnn As ADODB.Connection
Dim cat As New ADOX.Catalog
Dim col As ADOX.Column

Set cnn = CurrentProject.Connection
cat.ActiveConnection = cnn

Set col = cat.Tables(strTbl).Columns(strCol)

col.Properties("Seed") = lngSeed
cat.Tables(strTbl).Columns.Refresh
If col.Properties("seed") = lngSeed Then
    ChangeSeed = True
Else
    ChangeSeed = False
End If
Set col = Nothing
Set cat = Nothing
Set cnn = Nothing

End Function

Lưu ý: Nhớ check vào Microsoft ADO Ext 2.x for DDL and Security Libraries trong Tools, References

 

[ptm0412]

Vấn đề là tìm ra nguyên nhân nó không hoạt động để chữa tại gốc cơ. Chứ chỉ chữa tại ngọn thì không đúng. Chả lẽ mỗi table tạo ra lại phải chữa như vậy?

 

[Hai Lúa Miền Tây]

Vấn đề là tìm ra nguyên nhân nó không hoạt động để chữa tại gốc cơ. Chứ chỉ chữa tại ngọn thì không đúng. Chả lẽ mỗi table tạo ra lại phải chữa như vậy?

Nguyên nhân không hoạt động em cũng đã suy luận được. Em import dữ liệu từ Excel có trường STT trùng với trường STT của Access Table, STT bên bảng Excel được bắt đầu là số 1, khi Import vào thì cái trường Autonumber này sẽ trở về số 1. Muốn cho nó hoạt động theo số tiếp theo theo cách đơn giản nhất thì mình phải reset trường đó lại.