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

Liên kết dữ liệu giữa subform và mainform

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Thủ Thuật] Liên kết dữ liệu giữa subform và mainform
• Liên kết dữ liệu giữa subform và mainform

• RE: Liên kết dữ liệu giữa subform và mainform

  tvn_hut > 21-05-16, 11:08 PM

  (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

• RE: Liên kết dữ liệu giữa subform và mainform

  tvn_hut > 13-08-17, 09:15 PM

  (02-03-16, 12:14 PM)MTNQ Đã 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

  Hi Bạn MTNQ
  với lọc theo ngày, mình sử dụng between date and date nhưng ko rõ syntax có đúng hay ko mà nó cứ báo lỗi
  
  Code của mình như sau:
  Private Sub ApplyFilter()
     Dim strFilter As String
     strFilter = "[Line] Like '*" & Me.[Cboline] & "'"
     'strFilter = strFilter & " AND [Line] Like '*" & Me.[CobLine] & "'"
     strFilter = strFilter & " AND [Machine] Like '*" & Me.[Cboprocess] & "'"
     strFilter = strFilter & " AND [Proddate] Between  # " & Me.[Cbofrom] & " # and # " & Me.[Cboto] & "#"
     strFilter = strFilter & " AND [BDtype] Like '*" & Me.[CboBDtype] & "'"
     strFilter = strFilter & " AND [BDcode] Like '*" & Me.[CboBDcode] & "'"
     strFilter = strFilter & " AND [Mcode] Like '*" & Me.[CboMcode] & "'"
     strFilter = strFilter & " AND [Totlosstime] '>= " & Me.[Cbotime] & "'"
     'strFilter = strFilter & " AND [WO] Like '*" & Me.[CobWO] & "'"
     'Debug.Print strFilter
     Me.Frmsubbreakfilter2.Form.Filter = strFilter
     Me.Frmsubbreakfilter2.Form.FilterOn = True
     
  End Sub
  
  Thêm nữa mình muốn làm 1 nút nhấn để thực hiện lọc thì add vào sự kiện click như nào. cái bạn hướng dẫn là tự động lọc.

• RE: Liên kết dữ liệu giữa subform và mainform

  tvn_hut > 13-08-17, 10:23 PM

  (13-08-17, 09:15 PM)tvn_hut Đã viết:

  (02-03-16, 12:14 PM)MTNQ Đã 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

  Hi Bạn MTNQ
  với lọc theo ngày, mình sử dụng between date and date nhưng ko rõ syntax có đúng hay ko mà nó cứ báo lỗi
  
  Code của mình như sau:
  Private Sub ApplyFilter()
     Dim strFilter As String
     strFilter = "[Line] Like '*" & Me.[Cboline] & "'"
     'strFilter = strFilter & " AND [Line] Like '*" & Me.[CobLine] & "'"
     strFilter = strFilter & " AND [Machine] Like '*" & Me.[Cboprocess] & "'"
     strFilter = strFilter & " AND [Proddate] Between  # " & Me.[Cbofrom] & " # and # " & Me.[Cboto] & "#"
     strFilter = strFilter & " AND [BDtype] Like '*" & Me.[CboBDtype] & "'"
     strFilter = strFilter & " AND [BDcode] Like '*" & Me.[CboBDcode] & "'"
     strFilter = strFilter & " AND [Mcode] Like '*" & Me.[CboMcode] & "'"
     strFilter = strFilter & " AND [Totlosstime] '>= " & Me.[Cbotime] & "'"
     'strFilter = strFilter & " AND [WO] Like '*" & Me.[CobWO] & "'"
     'Debug.Print strFilter
     Me.Frmsubbreakfilter2.Form.Filter = strFilter
     Me.Frmsubbreakfilter2.Form.FilterOn = True
     
  End Sub
  
  Thêm nữa mình muốn làm 1 nút nhấn để thực hiện lọc thì add vào sự kiện click như nào. cái bạn hướng dẫn là tự động lọc.

  Vấn đề đã được giải quyết. Cám ơn mn

• RE: Liên kết dữ liệu giữa subform và mainform

  MTNQ > 14-08-17, 12:41 AM

  (13-08-17, 10:23 PM)tvn_hut Đã viết: Hi Bạn MTNQ
  với lọc theo ngày, mình sử dụng between date and date nhưng ko rõ syntax có đúng hay ko mà nó cứ báo lỗi
  
  Code của mình như sau:
  Private Sub ApplyFilter()
     Dim strFilter As String
     strFilter = "[Line] Like '*" & Me.[Cboline] & "'"
     'strFilter = strFilter & " AND [Line] Like '*" & Me.[CobLine] & "'"
     strFilter = strFilter & " AND [Machine] Like '*" & Me.[Cboprocess] & "'"
     strFilter = strFilter & " AND [Proddate] Between  # " & Me.[Cbofrom] & " # and # " & Me.[Cboto] & "#"
     strFilter = strFilter & " AND [BDtype] Like '*" & Me.[CboBDtype] & "'"
     strFilter = strFilter & " AND [BDcode] Like '*" & Me.[CboBDcode] & "'"
     strFilter = strFilter & " AND [Mcode] Like '*" & Me.[CboMcode] & "'"
     strFilter = strFilter & " AND [Totlosstime] '>= " & Me.[Cbotime] & "'"
     'strFilter = strFilter & " AND [WO] Like '*" & Me.[CobWO] & "'"
     'Debug.Print strFilter
     Me.Frmsubbreakfilter2.Form.Filter = strFilter
     Me.Frmsubbreakfilter2.Form.FilterOn = True
     
  End Sub
  
  Vấn đề đã được giải quyết. Cám ơn mn

  
  Lưu ý dòng này:
   strFilter = strFilter & " AND [Proddate] Between  # " & Me.[Cbofrom] & " # and # " & Me.[Cboto] & "#"
  Ngày tháng trong chuỗi truy vấn giữa hai dấu # luôn phải theo định dạng tháng trước ngày sau:
  

  Mã:

  strFilter = strFilter & " AND [Proddate] Between  # " & Format(Me.[Cbofrom], "mm/dd/yyyy") & " # and # " & Format(Me.[Cboto], "mm/dd/yyyy") & "#"
• Bài trước Bài tiếp