Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] lấy dữ liệu từ form qua report
#1
Tongue 
hi mọi người, khi lấy dữ liệu từ subform qua report mình dùng dòng code lệnh như dưới 

Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = Forms![AdvancedSearchForm]![tbl_Subform].Form.RecordSource
End Sub


code xài rất ok đối với subform, nhưng khi áp dụng code tương tự cho split form thì code ko hoạt động, mọi người có ai biết cách nên sửa code sao để có thể lấy dữ liệu từ splitform qua report ko vậy, chỉ giáo giúp với

thank mn nhiều
Chữ ký của Godspear Godspear,gia nhập Thủ Thuật Access từ 06-12 -16.
Reply
Những người đã cảm ơn
#2
Split form không phải là subform nên bạn tham chiếu thẳng vô Record Source của Form chính luôn.
Me.RecordSource = Forms("AdvancedSearchForm").Form.RecordSource
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
(07-12-17, 11:30 AM)ongke0711 Đã viết: Split form không phải là subform nên bạn tham chiếu thẳng vô Record Source của Form chính luôn.
Me.RecordSource = Forms("AdvancedSearchForm").Form.RecordSource

đã thử áp dụng như vậy rồi nhưng mà ko dc bác ơi, report vẫn hiện ra toàn bộ kết quả có trong record source, mình cần là hiện ra những kết quả hiện đg có trong form sau khi filter cơ  040, mình có áp dụng search vào form và dg mún là report hiện thị các kết quả sau khi search ra ấy, sr vì nói ko rõ làm bác hiểu nhầm ý
Chữ ký của Godspear Godspear,gia nhập Thủ Thuật Access từ 06-12 -16.
Reply
Những người đã cảm ơn
#4
(07-12-17, 11:30 AM)ongke0711 Đã viết: Split form không phải là subform nên bạn tham chiếu thẳng vô Record Source của Form chính luôn.
Me.RecordSource = Forms("AdvancedSearchForm").Form.RecordSource

bạn ơi, cho mình hỏi là ngoài cách viết code như cách trên còn cách nào để lấy kết quả từ subform sang report nữa ko
Chữ ký của Godspear Godspear,gia nhập Thủ Thuật Access từ 06-12 -16.
Reply
Những người đã cảm ơn
#5
Dùng code này với điều kiện form "AdvancedSearchForm" vẫn đang mở để tham chiếu.

Private Sub Report_Open(Cancel As Integer)
     Set frm = Forms!AdvancedSearchForm.Form

    Me.RecordSource = frm.RecordSource
    If frm.FilterOn = True Then
        Me.Filter = frm.Filter
        Me.FilterOn = True
    End If
    Set frm = Nothing
End Sub
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Godspear


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Cách lấy số thứ tự trang của report 2 lên report 1 cùng 1 Mã KH tr4il3 27 2,006 29-10-18, 10:06 AM
Bài mới nhất: tr4il3
  [Help] Nhờ giúp đỡ về tự động co dãn dòng trong report! NguyenDungAnh 14 525 18-10-18, 08:42 AM
Bài mới nhất: bằng lăng
Wink Hướng Dẫn Diễn giải trong report ladanavn 4 333 21-09-18, 05:51 PM
Bài mới nhất: tranthanhan1962
  [Help] Report in không đúng như hiển thị! NguyenDungAnh 5 358 12-09-18, 10:18 PM
Bài mới nhất: NguyenDungAnh
  [Help] Đổi tên hàng loạt textbox trong report NguyenDungAnh 4 261 05-09-18, 07:56 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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line