Giúp tạo tìm kiếm trên Subform. (3 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

anhhungbt9025

Thành viên mới
Tham gia
16/10/11
Bài viết
23
Được thích
1
Em mới bắt đầu học Access nên còn rất gà không biết gì có đề bài này mà làm mãi không ra mong mọi người giúp đỡ.

Tạo form cho phép tìm kiếm cán bộ theo tên như sau:

Capture.jpg

Sau khi gõ một tên (có thể là đệm + Tên hoặc đầy đủ họ và tên), danh sách các kết quả tìm thấy sẽ được liệt kê lên Subform.

Em có đính kèm file access của em lên bên dưới
 

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
Bạn xem file đính kèm nhé.
 

File đính kèm

Mình Cảm ơn bạn domfootwear nhiều.
Nhưng bạn có thể hướng dẫn cách bạn tạo được như vậy cho mình không không mình muốn học hỏi nó
 
Mình Cảm ơn bạn domfootwear nhiều.
Nhưng bạn có thể hướng dẫn cách bạn tạo được như vậy cho mình không không mình muốn học hỏi nó
* Tạo 1 form chính có tên frmCanBo, trong form đó có các Object như sau:
1. 1 TextBox tên là txtTen
2. 1 Subform có tên frmCanBo_Sub, trong Record Source của subform đó như sau:

SELECT [can bo].hoten, [can bo].ngaysinh, [chuc vu].tenchucvu, [phong ban].tenphongban
FROM [phong ban] INNER JOIN ([chuc vu] INNER JOIN [can bo] ON [chuc vu].chucvu = [can bo].chucvu) ON [phong ban].phongban = [can bo].phongban
GROUP BY [can bo].hoten, [can bo].ngaysinh, [chuc vu].tenchucvu, [phong ban].tenphongban
HAVING ((([can bo].hoten) Like "*" & [forms]![frmCanBo]![txtTen] & "*"));

Các textbox trên subform chắc bạn vẽ được
3. 2 Command Button, cmdAll, cmdTim. Code lần lượt 2 nút này như sau:

Mã:
Private Sub cmdAll_Click()
txtTen = ""
frmCanBo_Sub.Requery

End Sub

Private Sub cmdTim_Click()
frmCanBo_Sub.Requery

End Sub
 
thật là hay. Nhưng có cách nào đơn giản nữa không bạn chỉ cần thao tác mà không cần phải code. vì mình mới học vào Access chưa học qua cách code làm như vậy khi thầy cô hỏi mình làm sao trả lời.
 
thật là hay. Nhưng có cách nào đơn giản nữa không bạn chỉ cần thao tác mà không cần phải code. vì mình mới học vào Access chưa học qua cách code làm như vậy khi thầy cô hỏi mình làm sao trả lời.

Chỉ dùng cách đó thôi bạn ơi, còn nếu không dùng code chỉ thao tác = chuột thì không đúng theo yêu cầu đề bài của bạn.
Bạn xem phim bên dưới nhé.

[video=youtube;fRPDpw3KhqA]http://www.youtube.com/watch?v=fRPDpw3KhqA[/video]
 
ờ đúng thật mà mình muốn gõ tên hay chữ lót hay họ của Cb rồi Enter là nó lọc ra cho mình mà không cần qua button Tìm Kiếm thì làm thế nào bạn.
Mà tiện đây bạn có thể làm doạn phim ghi lại quá trình làm cái File đầu tiên mà bạn làm cho mình được không.Mình muốn đc hiểu rõ hơn.
 
Lần chỉnh sửa cuối:
ờ đúng thật mà mình muốn gõ tên hay chữ lót hay họ của Cb rồi Enter là nó lọc ra cho mình mà không cần qua button Tìm Kiếm thì làm thế nào bạn
Thì nó như bài #4 mình hướng dẫn thôi. Tuy nhiên phải đưa nó vào sự kiện AfterUpdate của TextBox txtTen

Mã:
Private Sub txtTen_AfterUpdate()
frmCanBo_Sub.Requery

End Sub
 
Mình vẽ Textbox mà khi mình gõ tên cần tìm vào nó không hiển thị cho mình là sao mình không làm được
 
Đây File Access của mình đây bạn giúp mình với
 

File đính kèm

Lần chỉnh sửa cuối:
Trong file gởi kèm em có cái form F_DocGia cần trợ giúp, vì em làm nút tìm rồi nhưng chỉ hiện kết quả lần tìm đầu tiên, các lần sau thì ko được. Pro nào làm code giúp em cái nút tìm nha. Làm sao khi chọ vào option, sau đó đánh thông tin tìm vào textbox và ấn nút Tìm thì sẽ cho hiện kết quả dưới subform. Sau đó tìm tiếp theo các tiêu chí khác vẫn sẽ cho ra kết quả đúng
 

File đính kèm

bài tập tạo form

Cả nhà giúp em với em đang cần gấp cách tạo form trong các bài sau em làm mãi mà không ra, tuần sau thi rồi không biết làm như thế nào giúp em với cảm ơn cả nhà nhé!
 

File đính kèm

Web KT

Bài viết mới nhất

Back
Top Bottom