• 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

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

  tvn_hut > 27-02-16, 11:08 AM

  Hi các bạn. Mình tk 1 form trong đó có tất cả cac source từ 1 table và 1 subform là kết quả của việc lọc dữ liệu theo đk nào đó. Cái khó khăn là mình không biết cách liên kết giữa sub và main. Tức là khi click vào 1 dòng record trên sub. Thì lập tức hiển thị toàn bộ control source tương ứng trên main. Với text unbound thì mình  có tham khảo trên diễn đàn. Nhung nếu sub đó là 1 query thì mình chưa biết giải quyết sao. Nhờ các bạn giúp nhé

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

  tvn_hut > 27-02-16, 09:53 PM

  Có bạn nào có cao kiến nào giúp mình không

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

  MTNQ > 28-02-16, 10:39 PM

  (27-02-16, 11:08 AM)tvn_hut Đã viết: Hi các bạn. Mình tk 1 form trong đó có tất cả cac source từ 1 table và 1 subform là kết quả của việc lọc dữ liệu theo đk nào đó. Cái khó khăn là mình không biết cách liên kết giữa sub và main. Tức là khi click vào 1 dòng record trên sub. Thì lập tức hiển thị toàn bộ control source tương ứng trên main. Với text unbound thì mình  có tham khảo trên diễn đàn. Nhung nếu sub đó là 1 query thì mình chưa biết giải quyết sao. Nhờ các bạn giúp nhé

  
  Câu này bạn viết hơi khó hiểu: "hiển thị toàn bộ control source tương ứng trên main" ?
  Nếu bạn muốn khi click vào một dòng nào  trên subform sẽ hiển thị dữ liệu của record đó trên main form thì có thể code cho sự kiện On Current của subform tương tự như sau:
  
  

  Mã:

  Private Sub Form_Current()
    If Not Me.NewRecord Then
        Me.Parent.Filter = "ID = " & Nz(Me.txtID, 0)
        Me.Parent.FilterOn = True
    End If
End Sub

  
  Với trường ID là khóa chính của record ,  txtID là textBox trên subform có source là ID . Bạn tùy biến nhé!

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

  tvn_hut > 28-02-16, 11:44 PM

  (28-02-16, 10:39 PM)MatTroiNguQuen Đã viết:

  (27-02-16, 11:08 AM)tvn_hut Đã viết: Hi các bạn. Mình tk 1 form trong đó có tất cả cac source từ 1 table và 1 subform là kết quả của việc lọc dữ liệu theo đk nào đó. Cái khó khăn là mình không biết cách liên kết giữa sub và main. Tức là khi click vào 1 dòng record trên sub. Thì lập tức hiển thị toàn bộ control source tương ứng trên main. Với text unbound thì mình  có tham khảo trên diễn đàn. Nhung nếu sub đó là 1 query thì mình chưa biết giải quyết sao. Nhờ các bạn giúp nhé

  
  Câu này bạn viết hơi khó hiểu: "hiển thị toàn bộ control source tương ứng trên main" ?
  Nếu bạn muốn khi click vào một dòng nào  trên subform sẽ hiển thị dữ liệu của record đó trên main form thì có thể code cho sự kiện On Current của subform tương tự như sau:
  
  

  Mã:

  Private Sub Form_Current()
    If Not Me.NewRecord Then
        Me.Parent.Filter = "ID = " & Nz(Me.txtID, 0)
        Me.Parent.FilterOn = True
    End If
End Sub

  
  Với trường ID là khóa chính của record ,  txtID là textBox trên subform có source là ID . Bạn tùy biến nhé!

  
   Cám ơn bạn rất nhiều. Bạn hiểu đúng vấn đề của mình. đúng là khi nháy chuột vào dòng nào là có thể hiện lên trên main form tương ứng với dữ liệu đó. Tuy nhiên sau khi thực hiện lọc dữ liệu trên subform mình có nháy chuột vào các dòng dữ liệu thì con trỏ luôn nhảy về record trên cùng. mặc dù dữ liệu có thay đổi theo. làm thế nào giải quyết nó nhỉ

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

  MTNQ > 29-02-16, 08:06 AM

  (28-02-16, 11:44 PM)tvn_hut Đã viết:  Cám ơn bạn rất nhiều. Bạn hiểu đúng vấn đề của mình. đúng là khi nháy chuột vào dòng nào là có thể hiện lên trên main form tương ứng với dữ liệu đó. Tuy nhiên sau khi thực hiện lọc dữ liệu trên subform mình có nháy chuột vào các dòng dữ liệu thì con trỏ luôn nhảy về record trên cùng. mặc dù dữ liệu có thay đổi theo. làm thế nào giải quyết nó nhỉ

  
  -Điều kiện lọc của subform là gì? "con trỏ nhảy về record trên cùng" thường là do lệnh Requery hoặc Refresh
   MTNQ không có file của bạn nên khó hỗ trợ. Bạn up file lên hoặc gởi qua mail: mattroinguquensgvn@Gmail.com, mình xem giúp cho.

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

  tvn_hut > 29-02-16, 12:00 PM

  (29-02-16, 08:06 AM)MatTroiNguQuen Đã viết:

  (28-02-16, 11:44 PM)tvn_hut Đã viết:  Cám ơn bạn rất nhiều. Bạn hiểu đúng vấn đề của mình. đúng là khi nháy chuột vào dòng nào là có thể hiện lên trên main form tương ứng với dữ liệu đó. Tuy nhiên sau khi thực hiện lọc dữ liệu trên subform mình có nháy chuột vào các dòng dữ liệu thì con trỏ luôn nhảy về record trên cùng. mặc dù dữ liệu có thay đổi theo. làm thế nào giải quyết nó nhỉ

  
  -Điều kiện lọc của subform là gì? "con trỏ nhảy về record trên cùng" thường là do lệnh Requery hoặc Refresh
   MTNQ không có file của bạn nên khó hỗ trợ. Bạn up file lên hoặc gởi qua mail: mattroinguquensgvn@Gmail.com, mình xem giúp cho.

  
  Ok cam ơn bạn nhiều. Tối nay về mình làm rồi gửi cho bạn nhé

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

  tvn_hut > 01-03-16, 08:33 PM

  hi cả nhà. loay hoay vẫn chưa tìm được cách giải quyết. mình dùng qry để thực hiện lọc và làm theo hướng dẫn của Mattroinguquen. Việc liên kết hoàn toàn OK nhưng mỗi khi nháy chuột vào 1 record tại subform thì focus lại nhảy ngay về dong record đầu tiên. và khi quay lại nháy chuột vào dòng đầu tiên thì qhe với mainfrm lại không được. nó không hiển thị nội dung trên main. mình muốn khi chỉ vào record nào trên sub thì hiển thị nội dung trên main và con trỏ chuột giữ nguyên tại dòng record đó. làm  cách nào để control nó nhỉ. đây là picture thể hiện vấn đề của mình:
  Picture
  
  Còn code mình dùng tại subfrm như sau:
  

  Mã PHP:

  Private Sub Form_Current()
 

   If Not Me.NewRecord Then
      Me.Parent.Filter = "[TagNo] = '" & Nz(Me.TagNo, 0) & "'"
      Me.Parent.FilterOn = True
   End If


End Sub 


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

  MTNQ > 02-03-16, 12:14 PM

  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

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

  tvn_hut > 02-03-16, 01:12 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

  Cám Ơn MTNQ rất nhiều. Problem đã được giải quyết. nếu bạn ở HCM mình mời 1 bữa cà phê nhé

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

  lmthu > 04-03-16, 11:25 AM

  Theo câu hỏi của bạn thì chỉ cần tạo 1 form dạng Sliptform của Access 2007 là đủ đáp ứng nhu cầu, slipt form thể hiện lưới dữ liệu (trên hoặt dưới form), các điều khiển nhập liệu nằm tách biệt, khi ta click chuột vào record (dòng) nào trên lưới thì các điều khiển sẽ hiện dữ liệu tương ứng (bạn không cần phải viết mã lệnh xử lý).
  Nhân dây tôi cũng xin góp ý là các bạn nào đang dùng Access XP (2002) hoặc Access 2003 thì nên chuyển sang cài bản Access 2007 để tận dụng các tính năng mới (có rất nhiều tính năng của Access 2007 rất hay mà nếu ta dùng bản cũ hơn phải lập trình rất mệt), dung lượng file *.accdb của Access 2007 nhẹ hơn định dạng *.mdb gần gấp 3 lần, tốc độ xử lý nhanh hơn, giao diện đẹp...
• Bài trước Bài tiếp