Đá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
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 123 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902
  Xin giúp tạo 1 trường trong table đánh số tự động thay cho autonumber trungminh 7 447 16-09-16, 05:17 PM
Bài mới nhất: maidinhdan
  Giúp đỡ về form với trungminh 9 491 10-09-16, 09:17 PM
Bài mới nhất: trungminh
Photo [Help] Giúp bỏ khoảng trống giữa detail và footer trong subform hangtran.ktdn 3 163 13-06-16, 07:34 AM
Bài mới nhất: cpucloi
  Nho Giup Do Ve Cac Nut Lenh Trong Form duynghiep89 1 118 19-05-16, 01:18 AM
Bài mới nhất: ongke0711

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ơ