• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • 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

• Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi

  anhemnhangu > 22-01-14, 09:37 AM

  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

• RE: Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi

  trunghieu > 22-01-14, 09:04 PM

  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é!

• RE: Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi

  anhemnhangu > 22-01-14, 09:48 PM

  Cám ơn anh Trung Hiếu, em thấy hay đấy, để em nghiên cứu cách anh hướng dẫn.

• RE: Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi

  anhemnhangu > 23-01-14, 09:30 AM

  (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

• RE: Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi

  quan_pc > 23-01-14, 04:32 PM

  (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é.

• RE: Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi

  anhemnhangu > 23-01-14, 04:43 PM

  (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,

• RE: Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi

  trunghieu > 23-01-14, 07:28 PM

  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

• RE: Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi

  Xuân Thanh > 24-01-14, 10:07 AM

  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

• RE: Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi

  quan_pc > 24-01-14, 04:40 PM

  ý 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 @@)

• RE: Tạo phiếu tăng tự động từ phiếu thứ hai thì bị lỗi

  trunghieu > 24-01-14, 05:52 PM

  (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.
• Bài trước Bài tiếp