Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Lại vấn đề về STT nhờ giúp
#1
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
Chữ ký của audition Xin chào, mình là audition, Tham gia http://thuthuataccess.com/forum từ ngày 08-02 -12.
Reply
Những người đã cảm ơn
#2
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
ღღღღღTài sản của bomnhauag (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
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!
Chữ ký của audition Xin chào, mình là audition, Tham gia http://thuthuataccess.com/forum từ ngày 08-02 -12.
Reply
Những người đã cảm ơn
#4
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
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Giúp đỡ in form toaneurowindow 2 167 28-08-17, 08:06 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian truongtrungviet 14 1,021 02-07-17, 05:01 PM
Bài mới nhất: maidinhdan
  [Hỏi] Xin Giúp dùm cái form thanhhao 4 299 30-06-17, 11:37 AM
Bài mới nhất: thanhhao
  Hướng Dẫn Giúp sửa đổi thành forms tìm kiếm nhiều tiêu chí xndt 6 629 15-05-17, 02:52 PM
Bài mới nhất: xndt
  [Hỏi] Mở form có điều kiện. Các bác giúp em với! cannguyen 3 523 23-02-17, 09:46 AM
Bài mới nhất: dutuan80637

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ