-
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:
- Có cách nào để lấy về thời gian hệ thống của 1 máy qua mạng Lan không mọi người ?
- Làm sao cho phần mềm tự động chạy ở chế độ Exclusive
- Lỗi khi import dữ liệu vào table
- Không chạy được query trong ACCESS!
- Giúp mình tạo Form truyền dữ liệu từ Table sang Table
- Tổng quát về phần mềm quản lý nhập - xuất - tồn
- File minh họa việc kết nối đến dữ liệu SQL Server từ MS. Access
- Tìm kiếm từ nhiều subform
- Giúp đỡ về vòng lặp để Append dòng vào Table Access
- Xin giúp đỡ cách truyền giá trị giữa 2 Form, Report
-
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--
Vùng kín là khu vực khó chăm nom nhất trên vớ cơ thể. Do khu vực này luôn được che chắn cẩn thận nên không tránh khỏi việc bí hơi, ẩm thấp và nảy sinh các mầm mống viêm nhiễm nếu không được chăm sóc...
Liệu pháp vệ sinh chim đúng cách phòng bệnh nam khoa