Chỉ giúp em chỗ sai của đoạn code này.

[tunhionline]

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

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:

• Quản lý mua bán hàng - Phần 5: Thiết kế form dạng Main/Sub
• Làm sao để ko cho MouseWheel ?
• Kết nối SQL server với Access
• nhờ các bạn giúp đỡ.
• Hỏi về Lọc dữ liệu
• Cho mình hỏi về OLE quái vật !
• Tìm kiếm từ nhiều subform
• chuyển font Vntime sang unicode
• xin giúp đỡ về Recordsource và controlsource bằng VBA
• Xây dựng CSDL in hóa đơn thanh toán tiền bắt đầu như thế nào?

[datxanhmb81]

Ðề: Chỉ giúp em chỗ sai của đoạn code này.

Trước tiên ,bạn muốn dò lỗi thì bạn phải cho mọi người biết bạn có Form tên gì,nguồn ở đâu,và lỗi phát sinh như thế nào chứ.Chứ bạn copy đoạn Code không thế kia khác nào bảo mọi người kiểm tra chính tả rồi.
Sau khi mờ mắt dò Code cho bạn mình tạm thời thấy 2 lỗi sau,in đậm :
1.loi_tiemtiep
msgbox "Loi.Khong con tim thay nua"
Resume thoat_timtiep
2. Forms("masoao").Bookmark = rs.Bookmark
Trên thì Form khách hàng,dưới lại Form masoao.

-- Code này của bác Phat mình đã thử ,ngon lành,nếu vẫn sai bạn nên kiểm tra kỹ tên tưng Textbox và Form--