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

Điều khiển vị trí con trỏ vào Subform !

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • [Hỏi] Điều khiển vị trí con trỏ vào Subform !
• Điều khiển vị trí con trỏ vào Subform !

• Điều khiển vị trí con trỏ vào Subform !

  Minh Tiên > 29-04-14, 09:00 AM

  tmtien261 dùng phương thức:
  

  Mã:

  Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "[Sophieu]='" & Me.txtSophieu & "'"
If Not rst.EOF Then Me.Bookmark = rst.Bookmark

  để di chuyển vị trí con trỏ đến record vừa thao tác trên Mainform thì OK.
  Tuy nhiên khi muốn di chuyển vào record vừa thao tác của Subform bằng đoạn code:
  

  Mã:

  Dim rst As Recordset
Set rst = Me.frmXeDH_CapXangDau_ListPhieu.Form.RecordsetClone
rst.FindFirst "[Sophieu]='" & Me.txtSophieu & "'"
If Not rst.EOF Then Me.Bookmark = rst.Bookmark

  thì ko thực hiện được. Báo lỗi ở dòng: Me.Bookmark = rst.Bookmark
  Xin các Pro chỉ giáo các di chuyển con trỏ đến record của Subform vừa thao tác.
  Cảm ơn nhiều !

• RE: Điều khiển vị trí con trỏ vào Subform !

  Minh Tiên > 29-04-14, 03:22 PM

  tmtien261 đã mày mò và làm được theo yêu cầu của mình rồi. Đoạn code như sau:
  

  Mã:

  ...
DoCmd.GoToControl "Subform"
Me.Subform!Textbox.SetFocus
If IsNull(Form!Subform!Textbox) = False Then
     DoCmd.GoToRecord , , acFirst
     Do Until IsNull(Form!Subform!Textbox) = True
     If Me.Subform!Textbox = Me.TextboxX Then
         Me.Subform!Textbox.SetFocus
         Exit sub
     End If
     DoCmd.GoToRecord , , acNext
     Loop
End If

  Các Pro có phương thức nào hay, gọn hơn xin chỉ giúp tmtien261. Cảm ơn nhiều !

• RE: Điều khiển vị trí con trỏ vào Subform !

  nguyentung > 03-04-18, 11:37 AM

  Bạn dùng các phương thức sau sẽ đơn giản hơn:
  tên_sub_form.Form.Recordset.Movefirst : đến mẫu tin đầu của subform
  tên_sub_form.Form.Recordset.MoveLast: đến mẫu tin cuối của subform
  tên_sub_form.Form.Recordset.FindFirst "điều kiện tìm" (ví dụ: tên_sub_form.Form.Recordset.FindFirst "[f_ma_hoa_don]= " & me.txt_mahoadon, trong đó f_ma_hoa_don là tên field của subform, txt_mahoadon là control trên main form)
• Bài trước Bài tiếp