huyencodon > 19-08-11, 07:08 PM
Private Sub tIM_Click()
Dim t As Integer
Dim r As Recordset
Set r = Me.RecordsetClone
t = InputBox("Nhap ma DB GLV can tim")
r.FindFirst "[DBGLVID]='" & t & "'"
If r.NoMatch Then
MsgBox "Khong co ma DB GLV nay"
Else
Me.Bookmark = r.Bookmark
End If
r.Close
End Sub