Tùy chọn
Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi
- Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi
-
RE: Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi
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
Em có làm theo hướng dẫn của anh Trung Hiếu, nhưng khi thực hiện lệnh thêm thì nó không thi hành, em không biết làm như anh hướng dẫn nó có thiếu sót gì không, mong nhận được hướng dẫn của anh thêm.
http://www.mediafire.com/download/vxiij8...ngdoan.rar
(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
Em đã làm theo hướng dẫn của anh, chương trình chạy bình thướng khi nhập một phiếu, em muốn
nhập thêm phiếu thứ hai thì nó báo lỗi tại dòng; DoCmd.GoToRecord, , acNewRec
Em có bấm phím F5 như anh Quân PC hướng dẫn trên thì OK, nhưng mình có cách nào cho nó hiếu
tự động khi thêm phiếu thứ hai được không anh.
http://www.mediafire.com/download/3x331v...ngdoan.rar -
RE: Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi
trunghieu > 27-01-14, 11:22 AM
(27-01-14, 09:43 AM)anhemnhangu Đã viết:
(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
Em có làm theo hướng dẫn của anh Trung Hiếu, nhưng khi thực hiện lệnh thêm thì nó không thi hành, em không biết làm như anh hướng dẫn nó có thiếu sót gì không, mong nhận được hướng dẫn của anh thêm.
http://www.mediafire.com/download/vxiij8...ngdoan.rar
http://upfile.vn/ekjI/AHieuThuchicongdoan.rar
MÌnh làm cho bạn ở form1 đó, và có sửa lại ở form F_Chi của bạn. Bạn xem lại nhé. Thân! -
RE: Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi
anhemnhangu > 27-01-14, 12:48 PM
(27-01-14, 11:22 AM)trunghieu Đã viết:
(27-01-14, 09:43 AM)anhemnhangu Đã viết:
(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
Em có làm theo hướng dẫn của anh Trung Hiếu, nhưng khi thực hiện lệnh thêm thì nó không thi hành, em không biết làm như anh hướng dẫn nó có thiếu sót gì không, mong nhận được hướng dẫn của anh thêm.
http://www.mediafire.com/download/vxiij8...ngdoan.rar
http://upfile.vn/ekjI/AHieuThuchicongdoan.rar
MÌnh làm cho bạn ở form1 đó, và có sửa lại ở form F_Chi của bạn. Bạn xem lại nhé. Thân!
Cám ơn anh Trung Hiếu.
Em chưa mở file đính kèm của anh được vì đường truyền báo bị lỗi. -
RE: Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi
trunghieu > 27-01-14, 03:39 PM
Trích dẫn:Cám ơn anh Trung Hiếu.
Em chưa mở file đính kèm của anh được vì đường truyền báo bị lỗi.
Um. Có lẽ do upfiles bị lỗi, để tối minh gởi lại cho.
-
RE: Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi
trunghieu > 27-01-14, 09:25 PM
Trích dẫn:Cám ơn anh Trung Hiếu.
Em chưa mở file đính kèm của anh được vì đường truyền báo bị lỗi.
http://www.megafileupload.com/en/file/49...n-rar.html
Bạn tải files này nhé. -
RE: Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi
anhemnhangu > 28-01-14, 09:57 AM
(27-01-14, 09:25 PM)trunghieu Đã viết:
Trích dẫn:Cám ơn anh Trung Hiếu.
Em chưa mở file đính kèm của anh được vì đường truyền báo bị lỗi.
http://www.megafileupload.com/en/file/49...n-rar.html
Bạn tải files này nhé.
Cám ơn anh Trung Hiếu rất nhiều. Chúc anh cùng gia đình đón một mùa xuân vui tươi và hạnh phúc.