Minh Tiên > 29-04-14, 09:00 AM
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "[Sophieu]='" & Me.txtSophieu & "'"
If Not rst.EOF Then Me.Bookmark = rst.Bookmark
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