Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi
#11
(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
Chữ ký của anhemnhangu Xin chào, mình là anhemnhangu, Tham gia http://thuthuataccess.com/forum từ ngày 08-08 -13.
Reply
Những người đã cảm ơn
#12
(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!
Chữ ký của trunghieu <<---Trên bước đường thành công, không có dấu chân của kẻ lười biếng --->>
ღღღღღTài sản của trunghieu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn anhemnhangu
#13
(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.
Chữ ký của anhemnhangu Xin chào, mình là anhemnhangu, Tham gia http://thuthuataccess.com/forum từ ngày 08-08 -13.
Reply
Những người đã cảm ơn
#14
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.007
Chữ ký của trunghieu <<---Trên bước đường thành công, không có dấu chân của kẻ lười biếng --->>
ღღღღღTài sản của trunghieu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn anhemnhangu
#15
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é.
Chữ ký của trunghieu <<---Trên bước đường thành công, không có dấu chân của kẻ lười biếng --->>
ღღღღღTài sản của trunghieu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn anhemnhangu
#16
(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.
Chữ ký của anhemnhangu Xin chào, mình là anhemnhangu, Tham gia http://thuthuataccess.com/forum từ ngày 08-08 -13.
Reply
Những người đã cảm ơn trunghieu


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tự động hiện Form khi loading hết thời gian ChiMai 1 20 11 Giờ trước
Bài mới nhất: ongke0711
  Click đúp chuột hiện form và cập nhật dữ liệu theo số phiếu Ranju 1 126 05-10-16, 11:02 AM
Bài mới nhất: lmthu
  Xin giúp tạo 1 trường trong table đánh số tự động thay cho autonumber trungminh 7 446 16-09-16, 05:17 PM
Bài mới nhất: maidinhdan
Photo [Hỏi] Tạo nút tự động đánh lại số CT khanh 12 405 03-08-16, 08:23 PM
Bài mới nhất: ongke0711
  Tạo form phiếu nhập kho Ranju 4 269 20-07-16, 12:02 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ơ