Tạo form tìm kiếm đơn giản trong access

[Hai Lúa Miền Tây]

Bạn domfootwear có cách nào khác để khắc phục đc trường hợp cùng tìm tên và ngày ko vậy ?

Vậy cái lỗi đó là gì và cái đoạn code của bạn như thế nào? Nếu được bạn gửi demo bằng access 2003, mình sẽ giúp nếu không quá khả năng của mình.
Thân

 

[bio87]

Bạn domfootwear có cách nào khác để khắc phục đc trường hợp cùng tìm tên và ngày ko vậy ?

Bạn ơi, ngay trong file của anh Tran Thanh Phong cũng đã giải quyết được việc tìm kiếm theo 2 criteria trở lên rồi đấy. Bạn thử tham khảo xem.

 

[gpec]

Chào Dinhhe213,
Tôi có bài toán giống bạn, muốn sử dụng combo. Cho hỏi bạn đã giải quyết được vấn đề chưa? Xin chỉ giáo. Cảm ơn

 

[quean]

Em đã hỏi và được nghe giải thích cụ thể rồi ạ. Dù sao cũng cảm ơn anh rất nhìu.

Bạn ơi cho mình hỏi chút nhé, mình cũng gặp vấn đề giống y chang như bạn, đang áp dụng bài mẫu của anh Tran Thanh Phong, cũng bị báo lỗi từa lưa, bạn có kinh nghiệm đi trước có thể chỉ giúp mình không?

' Update the record source
Me.Fsubsearchvendor.Form.RecordSource = "SELECT * FROM Qsubsearchvendor " & BuildFilter

' Requery the subform
Me.Fsubsearchvendor.Requery
End Sub
Private Function BuildFilter() As Variant
Dim varWhere As Variant

varWhere = Null ' Main filter

' Check for LIKE Vendor Name
If Me.txtvendor > "" Then
varWhere = varWhere & "[Supplier] LIKE """ & Me.txtvendor & "*"" AND "
End If

' Check for LIKE Detail
If Me.txtdetail > "" Then
varWhere = varWhere & "[detail-pmt] LIKE """ & Me.txtdetail & "*"" AND "
End If

' strip off last "AND" in the filter
If Right(varWhere, 5) = " AND " Then
varWhere = Left(varWhere, Len(varWhere) - 5)
End If


BuildFilter = varWhere



End Function

 

[nguoiconxunui]

Bạn ơi cho mình hỏi chút nhé, mình cũng gặp vấn đề giống y chang như bạn, đang áp dụng bài mẫu của anh Tran Thanh Phong, cũng bị báo lỗi từa lưa, bạn có kinh nghiệm đi trước có thể chỉ giúp mình không?

' Update the record source
Me.Fsubsearchvendor.Form.RecordSource = "SELECT * FROM Qsubsearchvendor " & BuildFilter

' Requery the subform
Me.Fsubsearchvendor.Requery
End Sub
Private Function BuildFilter() As Variant
Dim varWhere As Variant

varWhere = Null ' Main filter

' Check for LIKE Vendor Name
If Me.txtvendor > "" Then
varWhere = varWhere & "[Supplier] LIKE """ & Me.txtvendor & "*"" AND "
End If

' Check for LIKE Detail
If Me.txtdetail > "" Then
varWhere = varWhere & "[detail-pmt] LIKE """ & Me.txtdetail & "*"" AND "
End If

' strip off last "AND" in the filter
If Right(varWhere, 5) = " AND " Then
varWhere = Left(varWhere, Len(varWhere) - 5)
End If


BuildFilter = varWhere



End Function

nó báo lỗi gì ?
Cái txt kia vì sao so sánh >"" ?

 

[quean]

Mình tìm được lỗi rồi, mình copy thiếu 1 đoạn của trip off last AND, ok rồi, cảm ơn diễn đàn

 

[uronbeo]

Xin hỏi cả nhà lệnh Hightlight màu vàng cho kết quả tìm kiếm được trong access

 

[asmlnye]

BẠN bio87 oi. mình cũng đã thu lam rui. van đề ở đây là các Form của bạn chứa những ID giống nhau VD: [ma1]=[ma2]='01'; vay nen no se bao loi o dong nay:Me.frmsubDulieuKhachhangXK.Form.RecordSource = "SELECT * FROM QryCIFXK " & BuildFilter, nen du lieu khong duoc xu ly,bai cua minh cung khong the xu ly duoc .!

 

[kheopy]

Mình đã dựa bài của anh Phong để làm nhưng không hiểu sao ID của table là kiểu text thì combox cứ luôn hỏi lại 2 lần kiểu text mới ra được. Ví dụ: ID table Dơnvị của mình là STP thì khi mình nhấn nút tìm kiếm nó bảo mình phải nhập lại 2 lần "STP" thì nó mới hiện ra kết quả tìm kiếm cho mình. Mong các bạn hãy giải đáp giúp mình. Thanks!

 

[hiepbeo22]

Mình thử vô table xóa đi mã nhân viên của 1 số nhân viên (để null), thì khi nhấn tìm kiếm là "*" thì không hiện những nhân viên không có mã. Khi field có 1 record trống thì cách tìm này trở nên mất tác dụng vì không thể hiện lên hết tất cả các giá trị. Mình thử tìm kiếm các diễn đàn nhưng không ai trả lời được mình. Rất mong nhận được giúp đỡ từ các cao thủ.

 

[Hai Lúa Miền Tây]

Mình thử vô table xóa đi mã nhân viên của 1 số nhân viên (để null), thì khi nhấn tìm kiếm là "*" thì không hiện những nhân viên không có mã. Khi field có 1 record trống thì cách tìm này trở nên mất tác dụng vì không thể hiện lên hết tất cả các giá trị. Mình thử tìm kiếm các diễn đàn nhưng không ai trả lời được mình. Rất mong nhận được giúp đỡ từ các cao thủ.

Nếu trống thì bạn cho nó điều kiện lọc là isnull

 

[duongphanbg]

Tạo 1 query

SELECT Table1.STT, Table1.NGÀY, Table1.TÊN, Table1.[MA MAY], Table1.[MA KH]
FROM Table1
WHERE (((Table1.[MA KH]) Like [forms]![form1]![loc]));

Tạo form có tên là Form1

Trên form thiết kế các object như sau:

-Subform có tên: KH

-Combobox: loc
RowSource:

SELECT Table1.[MA KH], Table1.TÊN
FROM Table1
GROUP BY Table1.[MA KH], Table1.TÊN;

Code cho Combo

Private Sub loc_AfterUpdate()
Forms!form1.KH.SourceObject = "Query.Query1"

End Sub

-CommandButton: cmdTatCa, caption: Tất Cả

Private Sub cmdTatCa_Click()
loc = "*"
Forms!form1.KH.SourceObject = "Query.Query1"

End Sub

-CommandButton: cmdThoat, caption: Thoát

Private Sub cmdThoat_Click()
On Error GoTo Err_cmdThoat_Click


    DoCmd.Close

Exit_cmdThoat_Click:
    Exit Sub

Err_cmdThoat_Click:
    MsgBox Err.Description
    Resume Exit_cmdThoat_Click
    
End Sub

Code cho form

Private Sub Form_Load()
loc = "*"
Forms!form1.KH.SourceObject = "Query.Query1"
End Sub

sao em làm theo nhưng ko dc vậy anh ơi em thay tên table mà hok dc anh xem giúp em với http://www.mediafire.com/?5xb3ikiw94we9qw làm ơn gửi qua mail : duongtinh070391@gmail.com giúp em với nhế

 

[hoaipnb]

Mình làm form tìm kiếm dựa trên đoạn code trên và đã thành công, tuy nhiên trong form tìm kiếm của mình có cả điều kiện dùng checkbox, mình đã thử vài đoạn code nhưng không đc. Bạn @Hai Lúa Miền Tây có thể hướng dẫn dùm mình đc ko ?

 

[Hai Lúa Miền Tây]

Mình làm form tìm kiếm dựa trên đoạn code trên và đã thành công, tuy nhiên trong form tìm kiếm của mình có cả điều kiện dùng checkbox, mình đã thử vài đoạn code nhưng không đc. Bạn @Hai Lúa Miền Tây có thể hướng dẫn dùm mình đc ko ?

Bạn gửi cái file yêu cầu của bạn lên đây nhé.

 

[hoaipnb]

Bạn gửi cái file yêu cầu của bạn lên đây nhé.

Mình làm theo ví dụ này, có thêm checkbox lập gia đình. Trong form tìm kiếm khi checkbox lapGD = true thì sẽ lọc ra những thành viên đã có gd, khi checkbox = false thì hiện ra đầy đủ như bình thường. Bạn xem giúp mình nhé.
Cám ơn bạn
File của mình đây

http://www.mediafire.com/download/6s6y4612a8lrzkv/TimKiem.rar

 

[chivan87hut]

Tạo chức năng tìm kiếm trong Access

Xem file mẫu này cũng hay nè bạn

Chào bạn. Mình mới nhập môn access.
Minh đang tìm hiểu tạo form có chức năng tìm kiếm.
Bạn có thể chỉ giúp mình cách làm mẫu bạn gửi trên forum ko.
chân thành cám ơn bạn.
Mail: chivan87hut@gmail.com
sdt: 0943888063

 

[hobaosi]

sao mình làm nó k thể kết nối các form với nhau được vậy

 

[lordthai]

Nếu trống thì bạn cho nó điều kiện lọc là isnull

bạn nói cụ thể được không? thêm vào chỗ nào?
mình sử dụng đoạn code của bạn thanhphong nhưng nó vẫn chưa hoàn hảo lắm
vd: mã nv là B002, mình nhập B hay B0 thì nó tìm được chứ nhập B02 hay 002 thì nó không tìm được
có cách nào hoàn thiện đoạn code trên không bạn?