nam7998 > 16-02-13, 05:30 AM
nam7998 > 16-02-13, 08:00 PM
khải nguyên > 17-02-13, 12:09 AM
nam7998 > 17-02-13, 12:57 AM
khải nguyên > 17-02-13, 07:23 AM
Xuân Thanh > 19-02-13, 09:47 AM
(16-02-13, 05:30 AM)nam7998 Đã viết: em đang tập làm 1 chương trình quản lý công văn cho cơ quan đã tạo các table gồm có STT, Ký hiệu công văn, ngày đến, nơi ban hành , nội dung và tạo from theo table nay . Nhưng tới phần đánh số thứ tự em muốn định dạng theo kiều STT/ 2 chữ số cuối của năm theo hệ thống. ; thì bị vướng em đã search trên mạng nhưng vẫn chưa hiểu lắm. Mong các anh chị cao tay nói rõ dùm em. em muốn khi điền từ from thì số TT sẽ được ghi vào table theo định dạng như trên.
Cảm ơn các anh chị chỉ dùm
Private Sub txtSTT_AfterUpdate()
Me.txtSTT = Me.txtSTT & "/" & Right(Year(Date(), 2)
End Sub
duyennguyen2008 > 12-03-13, 12:28 PM
(19-02-13, 09:47 AM)Xuân Thanh Đã viết:(16-02-13, 05:30 AM)nam7998 Đã viết: em đang tập làm 1 chương trình quản lý công văn cho cơ quan đã tạo các table gồm có STT, Ký hiệu công văn, ngày đến, nơi ban hành , nội dung và tạo from theo table nay . Nhưng tới phần đánh số thứ tự em muốn định dạng theo kiều STT/ 2 chữ số cuối của năm theo hệ thống. ; thì bị vướng em đã search trên mạng nhưng vẫn chưa hiểu lắm. Mong các anh chị cao tay nói rõ dùm em. em muốn khi điền từ from thì số TT sẽ được ghi vào table theo định dạng như trên.
Cảm ơn các anh chị chỉ dùm
Tạo form mà nhập liệu. Khi ấy trên form dùng sự kiện AfterUpdate của textbox STT như sau là OK
Mã:Private Sub txtSTT_AfterUpdate()
Me.txtSTT = Me.txtSTT & "/" & Right(Year(Date(), 2)
End Sub
Thân mến
Xuân Thanh > 12-03-13, 12:35 PM
Private Sub txtSTT_AfterUpdate()
Me.txtSTT = Right("000" & Me.txtSTT, 3)
Me.txtSTT = Me.txtSTT & "/" & Right(Year(Date(), 2)
End Sub