-
06-14-2010, 02:39 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Chỉ giúp em chỗ sai của đoạn code này.
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
View more random threads:
- nho huong dan sua loi code va huong dan lam do an lap trinh access
- Tạo key bản quyền cho access
- Học Access bằng cách xây dựng một ứng dụng cụ thể - Quản lý Mua và Bán hàng - Phần 1 - Mô tả
- Hướng dẫn tạo MeNu cho file Access bằng Macro
- Nút OfficeLink bị disable
- Thêm item mới vào combobox Access
- Giúp đỡ về việc nhập dữ liệu trên Access chép từ VB
- phần mềm quản lý nhân sự
- Sự kiện Timer trong Access
- Tạo chương trình trắc nghiệm bằng ACcess
-
06-14-2010, 05:35 PM #2Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 440
Ðề: 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--
Hiện nay, trên mạng cũng có rất nhiều diễn đàn mà cánh nam giới chia sẻ với nhau về nghệ thuật bế tinh và coi đó là bí kíp để gìn giữ sức khỏe và tư thế đàn ông. Tuy nhiên, theo giáo sư Trần Quán...
Tư thế yêu mà không xuất của quý ông. Tác hại như thế nào?