anhemnhangu > 27-01-14, 09:43 AM
(23-01-14, 07:28 PM)trunghieu Đã viết: anhemnhangu lam z la bi loõi đúng rồi, vì data so sánh khác nhau.---------------
Mình đã xem qua file của ban rồi xin có 1 số hướng dẫn như sau:
1. Bạn đặt thêm trong table T_thuchi 1 field tên là so kiểu number
2. Bạn viết hàm sau vào nút lệnh Thêm phiếu của bạn:
DoCmd.GoToRecord , , acNewRec
3. Bạn viết hàm này vào sự kiện Form_beforeinsert
If DCount("sophieu", "T_thuchi") = 0 Then
Me.so = 1
Else
Me.so = DMax ("so", "T_thuchi") + 1
End If
Me.sophieu = "PT" & Format(so, "000")
4. Bạn đặt thuộc tính cho field sophieu như sau: locked = true , tab stop = no
5. Bạn nhớ kéo field so ra form nhé. Bạn đặt thuộc tính visible = no để không hiện thị ra màn hình
(24-01-14, 10:07 AM)Xuân Thanh Đã viết: 1/ Textbox Sophieu trên Form đặt locked không cho chỉnh sửa. Trong table để là text-----------
2/Mã:Private Sub cmdThem_Click()
Dìm So As Long
So = Dcount("Sophieu", tblPhieuthu)
DoCmd.GoToRecord, , acNewRec
Me.Sophieu = "PT" & Right("0000" & So + 1, 4)
End Sub