Các bạn chỉ mình bài access này với (4 người xem)

[mothai37]

link http://www.mediafire.com/?h0xwv4fx4d3b7cb

Sau khi down xong các bạn mở Forms "ket qua thi tuyen sinh nam 2007"

Câu hỏi được đặt ra là tạo 1 cái nút tìm theo số báo danh (Mình đã tạo cho các pac rồi)

Nếu nhập số báo danh ko hợp lệ thì sẽ hiện thông báo lỗi

 

[mothai37]

Seo hok có ai trả lời vậy

 

[nguoiconxunui]

link http://www.mediafire.com/?h0xwv4fx4d3b7cb

Sau khi down xong các bạn mở Forms "ket qua thi tuyen sinh nam 2007"

Câu hỏi được đặt ra là tạo 1 cái nút tìm theo số báo danh (Mình đã tạo cho các pac rồi)

Nếu nhập số báo danh ko hợp lệ thì sẽ hiện thông báo lỗi

Tìm trước khi hỏi
http://www.giaiphapexcel.com/forum/...oạn-code-VB-có-chức-năng-tìm-kiếm-cho-access&
http://www.giaiphapexcel.com/forum/showthread.php?36961-Tạo-form-tìm-kiếm-đơn-giản-trong-access
http://www.giaiphapexcel.com/forum/...-về-quản-lý-điểm-trong-trường-học-bằng-access

 

[mothai37]

Tìm trước khi hỏi
http://www.giaiphapexcel.com/forum/showthread.php?53254-Sửa-dùm-em-đoạn-code-VB-có-chức-năng-tìm-kiếm-cho-access&
http://www.giaiphapexcel.com/forum/showthread.php?36961-Tạo-form-tìm-kiếm-đơn-giản-trong-access
http://www.giaiphapexcel.com/forum/showthread.php?49716-Giúp-làm-bài-tập-về-quản-lý-điểm-trong-trường-học-bằng-access

Có giống bài mình đâu

 

[nguoiconxunui]

Vậy thì bó tay, ncxn nhớ không nhầm thì trong đó người ta đưa ra tìm theo nhiều điều kiện, nhiều trường,,, còn bạn tìm có theo số báo danh ... chấc phải có bài nào mà tìm theo số báo danh mới đúng theo ý bạn?

Private Sub cmdTimSBD_Click()

    Dim rst As DAO.Recordset
    Dim strCriteria As String

    strCriteria = "[soBD] Like '*" & Me.txtsobd & "*'"

    Set rst = Me.RecordsetClone
    rst.FindFirst strCriteria
    If rst.NoMatch Then
        MsgBox "No entry found.", vbInformation
    Else
        Me.Bookmark = rst.Bookmark
    End If

    Set rst = Nothing

End Sub

 

[mothai37]

Nó vẫn báo lỗi chỗ này
Dim rst As DAO.Recordset

Dù gì đi nữa cũng cảm ơn pác
tại em mới học Access để thi bằng B nên ko cần phải gấp gáp cho lắm

 

[sealand]

Nó vẫn báo lỗi chỗ này
Dim rst As DAO.Recordset
...

Bạn vào cửa sổ VBA--->Chọn Tools--->Chọn References----> Đánh dấu chọn vào dòng Microsoft DAO 3.6 Object Liabrary

Giờ thì bạn chạy tốt rồi, Code của NCXN hơi bị ngon đấy nha.

 

[mothai37]

Bạn vào cửa sổ VBA--->Chọn Tools--->Chọn References----> Đánh dấu chọn vào dòng Microsoft DAO 3.6 Object Liabrary

Giờ thì bạn chạy tốt rồi, Code của NCXN hơi bị ngon đấy nha.

Mình đã copy của pác nguôicnxunui rồi paste vào nhưng vẫn còn chưa đc
Cách của bạn vẫn bị báo lỗi như thường
Chắc tại mình xài access 2007 chăng

 

[nguoiconxunui]

Mình đã copy của pác nguôicnxunui rồi paste vào nhưng vẫn còn chưa đc
Cách của bạn vẫn bị báo lỗi như thường
Chắc tại mình xài access 2007 chăng

Đây là thư viện tham chiếu để dùng DAO trong các phiên bản access tương tứng với các phần mở rộng, bạn xem là tham chiếu cho hợp lý

DAO(Microsoft DAO 3.x Object Library or Microsoft Office xx.x Access database engine)

2010 14.0 ACCDB C:\Program Files\Common Files\Microsoft Shared\Office14\acedao.dll
------------MDB C:\program files\common files\microsoft shared\dao\dao360.dll
--------------------------------------------------------------------------------------------
2007 12.0 ACCDB C:\Program Files\Microsoft Office\Office12\acedao.dll
-----------MDB C:\program files\common files\microsoft shared\dao\dao360.dll
--------------------------------------------------------------------------------------------
2003 3.6
2002
2000
------------------ C:\program files\common files\microsoft shared\dao\dao360.dll
--------------------------------------------------------------------------------------------
97 3.51 C:\program files\common files\microsoft shared\dao\dao350.dll

 

[mothai37]

Đây là thư viện tham chiếu để dùng DAO trong các phiên bản access tương tứng với các phần mở rộng, bạn xem là tham chiếu cho hợp lý

DAO(Microsoft DAO 3.x Object Library or Microsoft Office xx.x Access database engine)

2010 14.0 ACCDB C:\Program Files\Common Files\Microsoft Shared\Office14\acedao.dll
------------MDB C:\program files\common files\microsoft shared\dao\dao360.dll
--------------------------------------------------------------------------------------------
2007 12.0 ACCDB C:\Program Files\Microsoft Office\Office12\acedao.dll
-----------MDB C:\program files\common files\microsoft shared\dao\dao360.dll
--------------------------------------------------------------------------------------------
2003 3.6
2002
2000
------------------ C:\program files\common files\microsoft shared\dao\dao360.dll
--------------------------------------------------------------------------------------------
97 3.51 C:\program files\common files\microsoft shared\dao\dao350.dll

Đã tham chiếu rồi tất cả đều giống nhau hết

Hay là pác gửi file lại bài tập pác làm hồi nãy cho em xem đi

Em chỉ bik tìm theo SBD trong textbox thì làm kiểu này (Ko có báo lỗi khi tìm sai)

SoBD.setfocus
Docmd.Findrecord txtsobd.Value

Tháng trước em thi rớt cũng vì hok bik làm chỗ đó

 

[nguoiconxunui]

Đã tham chiếu rồi tất cả đều giống nhau hết

Hay là pác gửi file lại bài tập pác làm hồi nãy cho em xem đi

Em chỉ bik tìm theo SBD trong textbox thì làm kiểu này (Ko có báo lỗi khi tìm sai)

Tháng trước em thi rớt cũng vì hok bik làm chỗ đó

bạn chụp cái hình lúc tham chiếu trong references....

 

[mothai37]

À mình làm đc rồi cảm ơn pác
Đa tạ Đa tạ

Nhưng tạo sao mún dùng hàm đó phải dùng DAO 3.6 cơ ạ

 

[nguoiconxunui]

À mình làm đc rồi cảm ơn pác
Đa tạ Đa tạ

Nhưng tạo sao mún dùng hàm đó phải dùng DAO 3.6 cơ ạ

Bạn xem ở đâykhó hiểu thì hiểu đơn giản thế này: Đó là tập hợp các "công cụ" cần thiết để làm việc với database)
http://msdn.microsoft.com/en-us/library/aa163992(v=office.10).aspx