• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Giúp về tìm kiếm với các Pro

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Giúp về tìm kiếm với các Pro
• Giúp về tìm kiếm với các Pro

• Giúp về tìm kiếm với các Pro

  conanha > 30-10-11, 09:24 PM

  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,

• RE: Giúp về tìm kiếm với các Pro

  Hạ Vàng > 31-10-11, 09:06 AM

  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

• RE: Giúp về tìm kiếm với các Pro

  huynguyenbd > 31-10-11, 11:28 AM

  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!

• RE: Giúp về tìm kiếm với các Pro

  conanha > 31-10-11, 07:30 PM

  (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.

• Tìm kiếm trong access và sao chép chúng.

  conanha > 31-10-11, 09:04 PM

  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.
• Bài trước Bài tiếp