Em muốn trong subform tự động chọn dòng theo ID mình chỉ định thì code như nào ạ?
Em cảm ơn.

(04-02-20, 12:12 PM)AnNguyen Đã viết: Em muốn trong subform tự động chọn dòng theo ID mình chỉ định thì code như nào ạ?
Em cảm ơn.

Tạo một textbox có tên textboxX trên subform
Viết code cho textbox đó như sau:
   Private Sub textboxX_AfterUpdate()

       Dim rs As Object
       Set rs = Me.Recordset.Clone
       rs.FindFirst "[ID] = " & Str(Nz(Me![textboxX], 0))
       If Not rs.EOF Then Me.Bookmark = rs.Bookmark
   End Sub
Khi điền giá trị ID vào textboxX con trỏ sẽ select dòng có giá trị ID đó

(04-02-20, 02:11 PM)tranthanhan1962 Đã viết: Tạo một textbox có tên textboxX trên subform
Viết code cho textbox đó như sau:
   Private Sub textboxX_AfterUpdate()

       Dim rs As Object
       Set rs = Me.Recordset.Clone
       rs.FindFirst "[ID] = " & Str(Nz(Me![textboxX], 0))
       If Not rs.EOF Then Me.Bookmark = rs.Bookmark
   End Sub
Khi điền giá trị ID vào textboxX con trỏ sẽ select dòng có giá trị ID đó

Vâng em cảm ơn nhiều ạ.
Vậy nếu mình gán mặc định cho dòng đầu tiên thì sẽ như nào nữa ạ?

Hình như em làm cái subform chứa cái form khác thì bị lỗi ạ.
nếu chỉ riêng subform không thì ok ạ.

SubForm chứa form khác thì nó sẽ biến thành Single Form chứ không còn là Continuous Forms nữa (Continuous Forms không thể làm mainform). Muốn tạo sub form cho Continuous Forms, phải cho subform đó nằm ngoài Continuous Forms muốn làm mainform (có nghĩa cũng là subform của main form chứa Continuous Forms đó). Tạo một Textbox ở ngoài mainform chung, gán giá trị field của [Continuous Forms muốn làm mainform] muốn làm Link Master Field vào textbox, ở subform làm subform cho Continuous Forms set Link Master Field = textbox, Link Child Field là gía trị field liên kết của subform.

(04-02-20, 02:50 PM)AnNguyen Đã viết: Vậy nếu mình gán mặc định cho dòng đầu tiên thì sẽ như nào nữa ạ?

Muốn gán mặc định cho dòng đầu tiên thì thiết đặt giá trị default value cho textbox hoặc viết code gán giá trị textbox khi mở form, đưa đoạn code vào event Form_Load

  Private Sub Form_Load()

      Dim rs As Object
      Set rs = Me.Recordset.Clone
      textboxX.Value = "ABC..."
      rs.FindFirst "[ID] = " & Str(Nz(Me![textboxX], 0))
      If Not rs.EOF Then Me.Bookmark = rs.Bookmark
  End Sub

(04-02-20, 03:51 PM)tranthanhan1962 Đã viết: SubForm chứa form khác thì nó sẽ biến thành Single Form chứ không còn là Continuous Forms nữa (Continuous Forms không thể làm mainform). Muốn tạo sub form cho Continuous Forms, phải cho subform đó nằm ngoài Continuous Forms muốn làm mainform (có nghĩa cũng là subform của main form chứa Continuous Forms đó). Tạo một Textbox ở ngoài mainform chung, gán giá trị field của [Continuous Forms muốn làm mainform] muốn làm Link Master Field vào textbox, ở subform làm subform cho Continuous Forms set Link Master Field = textbox, Link Child Field là gía trị field liên kết của subform.

Dạ bác có thể giúp em vào file này được không ạ.
Tại em không hiểu và không biết lắm ạ.
chọn dòng đầu tiên hoặc theo lựa chọn.
Em cảm ơn ạ
https://secufiles.com/6q0f/subform.rar

Của bạn đây

(04-02-20, 05:01 PM)tranthanhan1962 Đã viết: Của bạn đây

Em cảm ơn nhiều lắm ạ.