Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Điều khiển vị trí con trỏ vào Subform !
#1
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 !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#2
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 !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#3
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)
Chữ ký của nguyentung Xin chào, mình là nguyentung, Tham gia http://thuthuataccess.com/forum từ ngày 03-05 -14.
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
  Hướng Dẫn Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được maidinhdan 18 5,720 29-04-17, 05:16 PM
Bài mới nhất: conmeocon
  Hướng Dẫn Export dữ liệu trong subform Godspear 3 742 03-04-17, 04:11 PM
Bài mới nhất: ongke0711
  Trả lời câu hỏi bạn dinhnhieu: Export Query sang Excel có điều kiện maidinhdan 1 1,344 11-02-15, 05:17 PM
Bài mới nhất: maidinhdan
  [Help] Tìm kiếm theo nhiều điều kiện vulhu06 1 896 25-04-14, 11:57 AM
Bài mới nhất: vulhu06
  ý tưởng dùng ms access điều khiển thiết bị điện quanghoasla 10 4,624 13-10-11, 12:09 AM
Bài mới nhất: quanghoasla

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line