RE: Hỏi về thuộc tính Bookmark
vulhu06 > 02-08-13, 11:07 AM
Dim rs As Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "[Hovaten] = '" & txtgo & "'"
If rs.NoMatch Then
MsgBox "Khong tim thay " & Me.txtgo & " " & " trong co so du lieu!" & vbCrLf & "Hay kiem tra lai va nhap chinh xac Ho va ten! ", vbOKOnly, "Khong tim thay!"
Me.txtgo.SetFocus
Else
Me.Bookmark = rs.Bookmark
Me.txtgo = ""
Me.sub.LinkChildFields = "MaDVTN"
Me.sub.LinkMasterFields = "MaDVTN"
Me.TL.Visible = True
Me.TL.Default = True
Me.TL.SetFocus
Me.txtgo.Visible = False
Me.cmdgo.Visible = False
Me.lbgo.Visible = False
Me.sub.Requery
End If
Đây là đoạn code của form tìm kiếm danh sách đoàn viên, trong cmdgo, nhờ anh giải thích dùm