Đá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
#1
Em đang làm phiếu thu chi và báo cáo sổ quỹ công đoàn; có hai vấn đế nhờ các anh chị hướng dẫn:
1. Em tạo Form nhập phiếu chi (F_chi), em có viết Code để tăng tự độ số phiếu khi ấn lệnh tạo thêm phiếu mới, nhưng nó chỉ hiểu có một lần thêm phiếu, nếu em làm thêm phiếu thứ hai thì nó báo lỗi, em không biết lồi gì, mong các bạn sửa giúp mình.

2.Em có tạo một Report để làm báo cáo sổ quỹ tiền mặt theo mẫu công đoàn; trong mẫu này nó có nhiều cột
của phần thu và phần chi, em dùng hàm Dlookup và IIF để lấy dữ liệu tương ứng từng cột, nhưng em không thể cộng tổng số cột theo dòng và theo cột.
Ví dụ em có 3 cột: cột A, cột B, cột C
em muốn cộng tổng theo dòng: A+B+C
http://www.mediafire.com/download/nb458b...hu+chi.rar
Rất mong nhận được sự hướng dẫn của các bạn,
Cám ơn
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
#2
Mình sử dụng access 2003 nên không xem được file của bạn. Tuy nhiên mình có ý tưởng thế này bạn xem có thể sử dụng được không.
Tại field số thứ tự bạn nên đặt là trường number. VD bạn đặt tên la sott
Trong form nhập liệu, để khi nhập sẽ hiển thị số tự động, tại sự kiện form before insert bạn đặt code:

'kiểm tra có dữ liệu nào chưa, nếu chưa có thì sott bằng 1, ngược lại thì sott tăng lên 1 số
If DCount("sott", "table", "có thể đặt hàm điều kiện vào đây") = 0 Then
Me.sott = 1
else
me.sott = Dmax ("sott","table","có thể đặt hàm điều kiện vào đây") + 1
end if

như vậy mỗi lần bạn nhập dữ liệu vào form số thứ tự của bạn sẽ tự động tăng lên 1 số

Đối với 3 cột A, B, C được chọn bằng hàm DLookup thì bạn không cộng trực tiếp trên report được. Tuy nhiên bạn vào query sau khi chọn các field cho report tại cột trống bạn nhập
A:Bạn đặt hàm Dlookup vào đây
Tương tự các cột khác bạn nhập cho B, C
Sau đó vào Report bạn chỉ cần nhập vào ô text = A + B + C là OK
Thấy hay thì thanks dùm 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
#3
Cám ơn anh Trung Hiếu, em thấy hay đấy, để em nghiên cứu cách anh hướng dẫn.
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
#4
(22-01-14, 09:04 PM)trunghieu Đã viết: Mình sử dụng access 2003 nên không xem được file của bạn. Tuy nhiên mình có ý tưởng thế này bạn xem có thể sử dụng được không.
Tại field số thứ tự bạn nên đặt là trường number. VD bạn đặt tên la sott
Trong form nhập liệu, để khi nhập sẽ hiển thị số tự động, tại sự kiện form before insert bạn đặt code:

'kiểm tra có dữ liệu nào chưa, nếu chưa có thì sott bằng 1, ngược lại thì sott tăng lên 1 số
If DCount("sott", "table", "có thể đặt hàm điều kiện vào đây") = 0 Then
Me.sott = 1
else
me.sott = Dmax ("sott","table","có thể đặt hàm điều kiện vào đây") + 1
end if

như vậy mỗi lần bạn nhập dữ liệu vào form số thứ tự của bạn sẽ tự động tăng lên 1 số

Đối với 3 cột A, B, C được chọn bằng hàm DLookup thì bạn không cộng trực tiếp trên report được. Tuy nhiên bạn vào query sau khi chọn các field cho report tại cột trống bạn nhập
A:Bạn đặt hàm Dlookup vào đây
Tương tự các cột khác bạn nhập cho B, C
Sau đó vào Report bạn chỉ cần nhập vào ô text = A + B + C là OK
Thấy hay thì thanks dùm nhé!
--------------------
Em đã chuyển file sang Access 2003.
http://www.mediafire.com/download/9xz3lg...u+chi1.mdb
Em có làm câu 1 theo hướng dẫn của anh Trung Hiếu nhưng bị lỗi dòng hàm IIF
IIf DCount("sophieu", "T_thuchi", "sophieu" = 0) Then
Me.sophieu = 1
else
me.sophieu = Dmax ("sophieu","T_thuchi","sophieu") + 1
end if
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
#5
(23-01-14, 09:30 AM)anhemnhangu Đã viết: Em đã chuyển file sang Access 2003.
http://www.mediafire.com/download/9xz3lg...u+chi1.mdb
Em có làm câu 1 theo hướng dẫn của anh Trung Hiếu nhưng bị lỗi dòng hàm IIF
IIf DCount("sophieu", "T_thuchi", "sophieu" = 0) Then
Me.sophieu = 1
else
me.sophieu = Dmax ("sophieu","T_thuchi","sophieu") + 1
end if

Hàm if chứ ko phải iif bạn nhé.
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn anhemnhangu
#6
(23-01-14, 04:32 PM)quan_pc Đã viết:
(23-01-14, 09:30 AM)anhemnhangu Đã viết: Em đã chuyển file sang Access 2003.
http://www.mediafire.com/download/9xz3lg...u+chi1.mdb
Em có làm câu 1 theo hướng dẫn của anh Trung Hiếu nhưng bị lỗi dòng hàm IIF
IIf DCount("sophieu", "T_thuchi", "sophieu" = 0) Then
Me.sophieu = 1
else
me.sophieu = Dmax ("sophieu","T_thuchi","sophieu") + 1
end if

Hàm if chứ ko phải iif bạn nhé.
----------------------------
Em làm nó vẫn báo lỗi. Anh Quân xem giúp em file đã gửi trên,
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
#7
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
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
#8
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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn anhemnhangu
#9
ý kiến thêm, Mẹo, Mỗi lần nhập xong nhấn lưu để thêm 1 bảng ghi mới thì nhấn F5.
Mình đã thử viết lệnh Me.Refresh ở nút lưu nhưng nó ko làm mới lại form đó, Anh Xuân Thanh và các member có ai biết cách gọi nút F5 ko nhỉ?(mình tìm trên google mã mà ko thấy @@)
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn anhemnhangu
#10
(24-01-14, 04:40 PM)quan_pc Đã viết: ý kiến thêm, Mẹo, Mỗi lần nhập xong nhấn lưu để thêm 1 bảng ghi mới thì nhấn F5.
Mình đã thử viết lệnh Me.Refresh ở nút lưu nhưng nó ko làm mới lại form đó, Anh Xuân Thanh và các member có ai biết cách gọi nút F5 ko nhỉ?(mình tìm trên google mã mà ko thấy @@)
Bạn thử dùng lệnh form.requery hoặc form.recalc thường thì mình dùng
DoCmd.save
Form.Refresh
DoCmd.GoToRecord , , acNewRec
như vậy là dữ liệu mình được cập nhật và làm mới được form nhập.
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


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Refresh Form và tiếp tục hoạt động Godspear 2 83 Hôm qua, 12:48 PM
Bài mới nhất: Godspear
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
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 133 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 451 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 411 03-08-16, 08:23 PM
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ơ