• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Lại vấn đề về STT nhờ giúp

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Lại vấn đề về STT nhờ giúp
• Lại vấn đề về STT nhờ giúp

• 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

• RE: Lại vấn đề về STT nhờ giúp

  bomnhauag > 19-02-12, 11:05 AM

  Nếu bạn đang lập trình quản lý số công văn thì lưu ý: công văn được quản lý theo năm, vậy kô có lý do j phải chọn lựa năm làm việc để THÊM số cv

• RE: Lại vấn đề về STT nhờ giúp

  audition > 20-02-12, 10:45 AM

  Số thứ tự này là của CV hệ thống tự sinh ra và tăng dần, sang năm sau cập nhật lại số từ đầu. Do đó mình gặp khó khăn ở đoạn code trên, các bạn giúp nhe!

• RE: Lại vấn đề về STT nhờ giúp

  haquocquan > 22-02-12, 02:21 PM

  Bạn thử nhé. Vì không có dữ liệu của bạn nên không biết bạn thiết kế table congvanden như thế nào.
  

  Mã:

  Dim TB As Recordset
Set TB = Currentdb.OpenRecordset("congvanden", dbOpenDynaset)
If TB.RecordCount = 0 Then
Me.soden = "T001"
Else
DoCmd.GoToRecord , , acNewRec
TB.FindFirst "[Namlamviec]=" & me.txtNamlamviec
If TB.NoMatch Then
Me.soden = "T001"
Else
Me.soden = "T" & Format(Dmax(Cint(Rght([Soden],3)),"congvanden","[Namlamviec]=me.namlamviec")) + 1, "000")
End if
End If
• Bài trước Bài tiếp