Lại vấn đề về STT nhờ giúp
audition > 17-02-12, 10:08 AM
Có bảng như sau: thongtin(ma, ten,năm làm việc)
Mình cho đoạn code sau vào nút thêm
Dim DB As Database
Dim TB As Recordset
Set DB = CurrentDb()
Set TB = DB.OpenRecordset("congvanden", dbOpenTable)
If TB.RecordCount = 0 Then
Me.soden = "T001"
Else
DoCmd.GoToRecord , , acNewRec
TB.MoveLast
Me.soden = "T" + Format(Val(Mid(TB![soden], 2, 3)) + 1, "000")
End If
Thì nó tự động tăng STT mỗi lần thêm lên 1 đúng theo ý muốn, nhưng mình muốn ràng buộc thêm điều kiện là khi nhấn nút thêm này nó sẽ xét đến điều kiện textbox năm làm việc đã có trong bảng chưa, nếu có thì thêm như trên còn không thì quay lại T001 và tăng lên mỗi khi tìm gặp