Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] Liên kết dữ liệu giữa subform và mainform
#11
(02-03-16, 12:14 PM)MatTroiNguQuen Đã viết: Form của bạn không dùng cách trên được, để đáp ứng được các yêu cầu như bạn nói thì làm như sau:

1/Bỏ điều kiện lọc của subform (xóa DK trong query Qryupdate)

2/Code cho sự kiện AfterUpdate của Cobline và Cobgrp như sau:

Mã:
Private Sub Cobline_AfterUpdate()
   ApplyFilter
End Sub

Private Sub Cobgrp_AfterUpdate()
   ApplyFilter
End Sub

Private Sub ApplyFilter()
   Dim strFilter As String
   strFilter = "[Group] Like '*" & Me.[Cobgrp] & "'"
   strFilter = strFilter & " AND [Line] Like '*" & Me.[CobLine] & "'"
   'Debug.Print strFilter
   Me.Frmsubupdate.Form.Filter = strFilter
   Me.Frmsubupdate.Form.FilterOn = True
End Sub

3/Thủ tục Form_Current của subform sửa lại như sau:
Mã:
Private Sub Form_Current()
   Dim rs As DAO.Recordset
 
   Set rs = Me.Parent.Recordset.Clone
   rs.FindFirst "[Staffcode] = '" & Nz(Me.txtStaffcode, "") & "'"
   If Not rs.NoMatch Then
       Me.Parent.Bookmark = rs.Bookmark
   End If
 
   Set rs = Nothing
End Sub

Dear bạn MTNQ: nếu mình thêm 1 điều kiện lọc theo ngày nữa thì cần câu lệnh như nào. Mình có áp dụng dạng lọc từ ngày đến ngày trên diễn đàn nhưng nó không chạy.  và thêm nữa nếu mình muốn thực hiện 1 nút nhấn để chạy code thì bỏ applyfilter bằng sự kiện click fk bạn
Chữ ký của tvn_hut Xin chào, mình là Dameaccess, Tham gia http://thuthuataccess.com/forum từ ngày 06-06 -13.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Sựa khác nhau giữa Module và Class Module, phạm vi áp dụng của từng loại. MinhnHang 6 308 29-11-16, 09:11 PM
Bài mới nhất: ongke0711
  Tránh xung đột dữ liệu trong access quocdung9999 16 1,698 23-11-16, 11:13 AM
Bài mới nhất: quocdung9999
  [Thủ Thuật] Tạo thanh tiến trình trên Form (Progress bar) khi xử lý dữ liệu ongke0711 18 1,505 21-10-16, 10:17 PM
Bài mới nhất: ongke0711
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 42 17,049 12-06-16, 12:28 PM
Bài mới nhất: lehongduc
  [Thủ Thuật] Lưu vết chương trình khi nhập liệu n2kp 38 9,751 06-05-16, 12:01 PM
Bài mới nhất: hungle2006

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ơ