Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Giúp về tìm kiếm với các Pro
#1
Sad 
Mình đang viết chương trình access để tìm kiếm. Mình thử cả phương thức Index+seek và findfirst mà không được.
Dùng chỉ mục ví dụ bảng của mình gốm T1(ma, ten); ma là khóa chính.
Mình viết như sau:
Private Sub cmchimuc_Click()
Dim db As Database, tb As DAO.Recordset

Dim n As Byte

Set db = CurrentDb
Set tb = db.OpenRecordset("T1", dbOpenDynaset)
n= 3
tb.Index="ma"
tb.seek "=", n
If tb.NoMatch Then
MsgBox "Khong thay ban ghi"
Else
MsgBox tb!ten
End If
End Sub

Nhưng chương trình cứ báo ở dòng tb.Index="ma". Có ai biết vì sao ko giúp với,
Chữ ký của conanha Xin chào, mình là conanha, Tham gia http://thuthuataccess.com/forum từ ngày 30-10 -11.
Reply
Những người đã cảm ơn
#2
Bạn viết tiêu đề rõ ràng nhé. Nếu không bài của bạn sẽ bị lạc và không ai giúp
Thân
Chữ ký của Hạ Vàng rose Nhắm mắt bên người để mộng trôi
Cho em thanh thản giấc mơ đời
Không vướng bận sầu, không lo lắng
Yên bình một cõi dấu yêu ơi!good luck
ღღღღღTài sản của Hạ Vàng (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Demo của bạn đây: http://www.mediafire.com/?t4lbf2dc3w1wpfb
Mình không text code của bạn, mình giới thiệu cho bạn 1 code tìm kiếm hay hơn và dể hỉu hơn. Thân!
Chữ ký của huynguyenbd Khi ta buồn giải sầu bên men rượu, sống không yêu cho con gái nó them!
ღღღღღTài sản của huynguyenbd (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Hạ Vàng , conanha
#4
(30-10-11, 09:24 PM)conanha Đã viết: Mình đang viết chương trình access để tìm kiếm. Mình thử cả phương thức Index+seek và findfirst mà không được.
Dùng chỉ mục ví dụ bảng của mình gốm T1(ma, ten); ma là khóa chính.
Mình viết như sau:
Private Sub cmchimuc_Click()
Dim db As Database, tb As DAO.Recordset

Dim n As Byte

Set db = CurrentDb
Set tb = db.OpenRecordset("T1", dbOpenDynaset)
n= 3
tb.Index="ma"
tb.seek "=", n
If tb.NoMatch Then
MsgBox "Khong thay ban ghi"
Else
MsgBox tb!ten
End If
End Sub

Nhưng chương trình cứ báo ở dòng tb.Index="ma". Có ai biết vì sao ko giúp với,

Cảm ơn bạn, Mình sửa được lỗi rồi. NHư trên mình nói là mình làm bằng 2 cách mà. Tuy nhiên nảy sinh lỗi mới là mình chạy vòng for để duyệt các bản ghi không được. Buồn ơi là buồn.
Chữ ký của conanha Xin chào, mình là conanha, Tham gia http://thuthuataccess.com/forum từ ngày 30-10 -11.
Reply
Những người đã cảm ơn
#5
Mình làm đoạn chương trình chép dữ liệu tìm thấy sang 1 bảng khác. nhưng tìm không được.
Các bạn giúp mình với.

Private Sub cmdtim_Click()
Dim a As Integer, n As Integer, i As Byte
Dim db As Database
Dim tb As Recordset, rs As Recordset

Set db = CurrentDb
Set tb = db.OpenRecordset("select * from T1")
n = tb.RecordCount
Set rs = db.OpenRecordset("tt")
For i = 1 To 3
tt.FindFirst ("Ma= '" & i & "'")
If tb.NoMatch Then
MsgBox "ko thay"
Else
If Not tb!dachon Then
rs.AddNew
rs!ma = tb!ma
rs!chon = 0
rs.Update
tb.Edit
tb!dachon = True
tb.Update
End If
End If
Next
rs.Close
tb.Close
End Sub


ở đây mình chưa bây lỗi. Mình có chương trình đi kèm đây giúp mình với.
Chữ ký của conanha Xin chào, mình là conanha, Tham gia http://thuthuataccess.com/forum từ ngày 30-10 -11.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Nhờ anh em trong diễn đàn giúp mình thiết kế chương trình báo dịch hàng ngày vinhpaint 1 256 21-06-16, 09:15 AM
Bài mới nhất: zinzin8x
  [Help] ai giúp mình code lại sql này thành access với li_95 0 124 24-04-16, 05:59 PM
Bài mới nhất: li_95
  [HỎI] Không chạy được tìm kiếm truy vấn 9xconduongtoidi 3 227 01-04-16, 10:47 AM
Bài mới nhất: 9xconduongtoidi
  [Help] Đếm số record trong subform dạng datasheet sau kết quả tìm kiếm tvn_hut 5 356 02-01-16, 11:32 PM
Bài mới nhất: tvn_hut
  Hướng dẫn giúp câu lệnh mở file access khác và lệnh import data. chihienphuco 5 3,899 17-11-15, 09:47 AM
Bài mới nhất: kieu manh

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ