em có 1 bản là ttcauthu gồm các trường masoao, tencauthu, ngaysinh...
và Form1 là danh sách cầu thủ. Em làm 1 việc như sau ( theo hướng dẫn của anh phatnqt2002 ): tạo 1 nút tìm trên Form1 ( danh sách cầu thủ ), khi ta nhấn vào nút tìm để xuất hiện 1 form khác để ta nhập vào tên cầu thủ cần tìm kiếm và code của nó đây. Không hiểu sao nữa
Mã:
Option Compare Database
Dim st As String, rs As DAO.Recordset
Private Sub form_load()
Set rs = Forms("ttcauthu").RecordsetClone
End Sub
Private Sub thuchien_click()
st = "tencauthu Like'*" & tencauthu & "*'"
On Error GoTo loi_thuchien
rs.FindFirst st
If rs.NoMatch Then
msgbox "Neu khong tim thay"
Else
Forms("ttcauthu").Bookmark = rs.Bookmark
End If
thoat_thuchien:
Exit Sub
loi_thuchien:
msgbox "Loi. Khong tim thay cau thu"
Resume thoat_thuchien
End Sub
Private Sub timtiep_ckick()
On Error GoTo loi_timtiep
rs.FindNext st
If rs.NoMatch Then
msgbox "Khong con tim thay nua"
Else
Forms("masoao").Bookmark = rs.Bookmark
End If
thoat_timtiep
Exit Sub
loi_tiemtiep
msgbox "Loi.Khong con tim thay nua"
Resume thoat_timtiep
End Sub
Private Sub thoi_click()
DoCmd.Close acForm, Me.Name
End Sub
Mong các bạn giúp đỡ. Thanks nhiều
View more random threads:
Du lịch Singapore là đã không còn là điểm đến xa lạ đối với những người yêu thích xê dịch. Tuy có diện tích bé nhỏ, nguồn tài nguyên ít ỏi nhưng “đảo quốc sư tử” đã biết biến những điều không thể...
Nên đi những địa điểm nào trong tour Du lịch Singapore của Dulichviet