Tùy chọn
giúp mình tạo nút lệnh tìm kiếm trong form access 2003 với
- giúp mình tạo nút lệnh tìm kiếm trong form access 2003 với
-
RE: giúp mình tạo nút lệnh tìm kiếm trong form access 2003 với
vân anh xinh > 10-12-13, 05:32 PM
(10-12-13, 05:22 PM)quan_pc Đã viết: À quên bạn dùng office 2003 trong khi mình gởi 2007
link mới đây bạn
http://haiquan.id1945.com/up/file/_781_tk.rar
b add face t đi,có j t hỏi luôn cho tiện
-
RE: giúp mình tạo nút lệnh tìm kiếm trong form access 2003 với
quan_pc > 10-12-13, 11:41 PM
cứ đăng bài lên diễn đàn đi bạn -
RE: giúp mình tạo nút lệnh tìm kiếm trong form access 2003 với
anhemnhangu > 11-12-13, 02:49 PM
Anh Quân cho em hỏi: nếu em không dùng Code như anh hướng dẫn, em dùng query cho nó đơn giản hơn; em làm một query có điều kiện tìm, một form có txtbox trùng với điều kiện query và một subform view kết quả sau tìm. Phần này thì làm được rồi.
Sau đó em muốn in kết quả tìm được ra Report nhưng em làm vẫn chưa được, anh hướng dẫn thêm.
http://www.mediafire.com/download/5r183j...port.accdb -
RE: giúp mình tạo nút lệnh tìm kiếm trong form access 2003 với
quan_pc > 11-12-13, 03:08 PM
(11-12-13, 02:49 PM)anhemnhangu Đã viết: Anh Quân cho em hỏi: nếu em không dùng Code như anh hướng dẫn, em dùng query cho nó đơn giản hơn; em làm một query có điều kiện tìm, một form có txtbox trùng với điều kiện query và một subform view kết quả sau tìm. Phần này thì làm được rồi.
Cách của bạn nó ko phù hợp vì các điều kiện nó ko lưu lại, vì vậy khi bạn nhấn vào nút in nó sẽ xoá bỏ điều kiện cũ đi và gọi lại điều kiện mới.
Sau đó em muốn in kết quả tìm được ra Report nhưng em làm vẫn chưa được, anh hướng dẫn thêm.
http://www.mediafire.com/download/5r183j...port.accdb
Bạn sửa lại điều kiện trong query là: Like "*" & [forms]![timten]![txthoten] & "*"
Tạo thêm 1 nút tìm kiếm nữa. viết sự kiện onclick cho nút lệnh đoạn code sau me.refresh
còn nút in thì giữ nguyên -
RE: giúp mình tạo nút lệnh tìm kiếm trong form access 2003 với
dinh_trong_hoa > 11-12-13, 04:36 PM
(10-12-13, 05:03 PM)vân anh xinh Đã viết:
(10-12-13, 11:42 AM)quan_pc Đã viết:
(10-12-13, 04:00 AM)vân anh xinh Đã viết: chào các bạn,mình mới học access nên chưa biết nhiều mong các bạn chỉ bảo giúp.
Xem bài tham khảo này nhé. ở ô tìm kiếm có thể nhập id hoặc họ tên sinh viên.
mình đang thiết kế 1 form tìm kiếm học thông tin học sinh.sao cho khi nhập tên và ngày sinh thì sẽ ra thông tin học sinh mà mình cần tìm nhưng mà do mới bắt đầu học nên cũng chưa biết làm thế nào cả,bạn nào biết thì giúp mình với nhé.
cảm ơn rất rất nhiều !!!!
![[Hình: _835_Screenshot%202013-12-10%2010.37.08.png]](http://haiquan.id1945.com/up/file/_835_Screenshot%202013-12-10%2010.37.08.png)
Mở chương trình lên chọn form ftk nhé http://haiquan.id1945.com/up/file/_825_tk.rar
Cách làm cũng đơn giản:
Tạo 1 module
Mã:Public tksv
Function ftksv()
If (Left(tksv, 1) = 1) Then
ftksv = Null
Else
ftksv = tksv
End If
End Function
Function ftkmasv()
If (Left(tksv, 1) = 1) Then
ftkmasv = tksv
Else
ftkmasv = Null
End If
End Function
Tại nút lệnh tìm kiếm viết sự kiện clickrồi vào query đặt điều kiện là 2 hàm được tạo ở trên là ftkmasv, và ftksv[/code]Mã:tksv = txttk
b ơi sao tớ tải về mà k mở đc nhỉ,hic hic
[/quote]
Chào mọi ngươi,
- Chủ đề tìm kiếm dữ liệu trước đây từng làm mình vất vả, cũng may gặp được cao thủ trên diễn đàn giúp đỡ nên đã giải quyết xong. Mình xin góp chút kiến thức đã học được để mọi người tham khảo.
- Tìm kiếm dữ liệu có nhiều cách, cách của bạn quan_pc theo mình thì hơi phức tạp, những người mới nhập môn khó tiếp thu. Mình thống kê được được 02 phương thức tiềm kiếm cho access, mình cảm thấy rất hiệu quả và người mới nhập môn dễ ứng dụng cho trường hợp của mình.
1/ Cách đơn giản tìm kiếm bằng 1 từ khoá
-Tạo một listbox để thể hiện kết quả (để trống phẩn rowsource, chỉnh kích thước cho phù hợp)
-Tạo một hay nhiều textbox =>dùng để nhập từ khoá cần tìm
**** mỗi textbox tương ứng với 1 trường của một table, tuỳ theo nhu cầu bạn muốn tìm theo một hay nhiều trường
vd: bạn muốn vừa có thể tìm theo tên sản phẩm và mã sp thì bạn tạo 02 textbox
-Tạo một nút command và nhập code sau vào:
2/ Tìm kiếm nhiều từ khoá cùng một lúc:Mã:Private Sub command_Click()
Dim s, s1, s2 As String
s = "SELECT [san_pham].[ma_sp], [san_pham].[ten_sp] .....(muốn hiện những trường nào trong table thì liệt kê ra) FROM [san_pham] WHERE (1=1"
s1 = " AND (([List_License].[brand]) like '" & "*" & [txt1] & "*" & "')"
s2 = " AND (([List_License].[brand]) like '" & "*" & [txt3] & "*" & "')"
.....
If IsNull(Trim(txt1)) = False Then
s = s + s1
End If
If IsNull(Trim(txt2)) = False Then
s = s + s2
End If
....
Me.listbox.RowSource = s & ") ORDER BY [san_pham].[ma_sp]; "
Me.listbox.Requery
End Sub
[code]
(Cái này hơi phức tạp, nên không biết trình bày như thế nào, nếu các bạn có nhu cầu thì giao lưu trực tiếp qua yahoo sẽ dễ nói hơn nick mình là dinh_trong_hoa)
Chúc các bạn thành công ! -
RE: giúp mình tạo nút lệnh tìm kiếm trong form access 2003 với
anhemnhangu > 11-12-13, 05:47 PM
Theo mình thì cách của anh Quân_pc hướng dẫn thì dễ hiểu hơn cách của bạn dinh_trong_hoa, nhưng
mình thấy đều hay ở đây là chúng ta cùng nhau chia sẽ để tiến bộ.
Cám ơn. -
RE: giúp mình tạo nút lệnh tìm kiếm trong form access 2003 với
anhemnhangu > 11-12-13, 06:00 PM
Cách của bạn nó ko phù hợp vì các điều kiện nó ko lưu lại, vì vậy khi bạn nhấn vào nút in nó sẽ xoá bỏ điều kiện cũ đi và gọi lại điều kiện mới.
Bạn sửa lại điều kiện trong query là: Like "*" & [forms]![timten]![txthoten] & "*"
Tạo thêm 1 nút tìm kiếm nữa. viết sự kiện onclick cho nút lệnh đoạn code sau me.refresh
còn nút in thì giữ nguyên
-------------------------
Em đã làm được rồi, mừng quá trời. Cám ơn anh Quân.
Trân trọng, -
RE: giúp mình tạo nút lệnh tìm kiếm trong form access 2003 với
dinh_trong_hoa > 11-12-13, 06:09 PM
(11-12-13, 05:47 PM)anhemnhangu Đã viết: Theo mình thì cách của anh Quân_pc hướng dẫn thì dễ hiểu hơn cách của bạn dinh_trong_hoa, nhưng
mình thấy đều hay ở đây là chúng ta cùng nhau chia sẽ để tiến bộ.
Cám ơn.
-Mỗi người có một cách nhìn và chọn lựa riêng. Mình không phải là dân pro, lên đây để học nhiều hơn là hỗ trợ. Vì vậy khi đánh giá một phương pháp nào đó thì mình tự đặt mình vào vị trí người không biết gì, nếu xem mà hiểu và có thể ứng dung theo ý riêng thì cho là hiệu quả.
-Cách của mình phức tạp ở chỗ là văn tự dài dòng, nếu sử dụng nhiều textbox thì viết code và kiểm tra rất mệt, còn về tư duy thì nó rất cơ bản, mình thích cách này là ở chỗ đó. -
RE: giúp mình tạo nút lệnh tìm kiếm trong form access 2003 với
anhemnhangu > 12-12-13, 11:51 AM
[quote='anhemnhangu' pid='21124' dateline='1386756042']
Cách của bạn nó ko phù hợp vì các điều kiện nó ko lưu lại, vì vậy khi bạn nhấn vào nút in nó sẽ xoá bỏ điều kiện cũ đi và gọi lại điều kiện mới.
Bạn sửa lại điều kiện trong query là: Like "*" & [forms]![timten]![txthoten] & "*"
Tạo thêm 1 nút tìm kiếm nữa. viết sự kiện onclick cho nút lệnh đoạn code sau me.refresh
còn nút in thì giữ nguyên
-------------------------
Anh Quân cho em hỏi; sao em mở form timten thì subform chứa thông tin nó hiện nguyên cả danh sách các dòng thông tin, em muốn mất những dòng thông tin này thì mình làm sao anh.
http://www.mediafire.com/download/xk684r...port.accdb -
RE: giúp mình tạo nút lệnh tìm kiếm trong form access 2003 với
quan_pc > 12-12-13, 01:04 PM
(12-12-13, 11:51 AM)anhemnhangu Đã viết: [quote='anhemnhangu' pid='21124' dateline='1386756042']
Bạn thêm 2 đoạn này vào
Cách của bạn nó ko phù hợp vì các điều kiện nó ko lưu lại, vì vậy khi bạn nhấn vào nút in nó sẽ xoá bỏ điều kiện cũ đi và gọi lại điều kiện mới.
Bạn sửa lại điều kiện trong query là: Like "*" & [forms]![timten]![txthoten] & "*"
Tạo thêm 1 nút tìm kiếm nữa. viết sự kiện onclick cho nút lệnh đoạn code sau me.refresh
còn nút in thì giữ nguyên
-------------------------
Anh Quân cho em hỏi; sao em mở form timten thì subform chứa thông tin nó hiện nguyên cả danh sách các dòng thông tin, em muốn mất những dòng thông tin này thì mình làm sao anh.
http://www.mediafire.com/download/xk684r...port.accdb
Sự kiện form load của form timten
Private Sub Form_Load()
txthoten = "Nhap gia tri can tim"
Me.Refresh
End Sub
Sự kiện onclick vào ô textbox (ô nhập giá trị tìm)
Private Sub txthoten_Click()
txthoten = Null
End Sub
file demo http://haiquan.id1945.com/up/file/_589_T...report.rar