Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
giúp mình tạo nút lệnh tìm kiếm trong form access 2003 với
#11
(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 big green
link mới đây bạn happy http://haiquan.id1945.com/up/file/_781_tk.rar

b add face t đi,có j t hỏi luôn cho tiện 021
Chữ ký của vân anh xinh Xin chào, mình là vân anh xinh, Tham gia http://thuthuataccess.com/forum từ ngày 10-12 -13.
Reply
Những người đã cảm ơn
#12
cứ đăng bài lên diễn đàn đi bạn
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#13
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
Chữ ký của anhemnhangu Xin chào, mình là anhemnhangu, Tham gia http://thuthuataccess.com/forum từ ngày 08-08 -13.
Reply
Những người đã cảm ơn
#14
(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.
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
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
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#15
(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.
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 !!!!
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.
[Hình: _835_Screenshot 2013-12-10 10.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 click
Mã:
tksv = txttk
rồi vào query đặt điều kiện là 2 hàm được tạo ở trên là ftkmasv, và ftksv[/code]


b ơi sao tớ tải về mà k mở đc nhỉ,hic hic040
[/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:

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]
2/ Tìm kiếm nhiều từ khoá cùng một lúc:

(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 !
Chữ ký của dinh_trong_hoa
Reply
Những người đã cảm ơn vân anh xinh
#16
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.
Chữ ký của anhemnhangu Xin chào, mình là anhemnhangu, Tham gia http://thuthuataccess.com/forum từ ngày 08-08 -13.
Reply
Những người đã cảm ơn
#17
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,
Chữ ký của anhemnhangu Xin chào, mình là anhemnhangu, Tham gia http://thuthuataccess.com/forum từ ngày 08-08 -13.
Reply
Những người đã cảm ơn
#18
(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ỗ đó.
Chữ ký của dinh_trong_hoa
Reply
Những người đã cảm ơn
#19
[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
Chữ ký của anhemnhangu Xin chào, mình là anhemnhangu, Tham gia http://thuthuataccess.com/forum từ ngày 08-08 -13.
Reply
Những người đã cảm ơn
#20
(12-12-13, 11:51 AM)anhemnhangu Đã viết: [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
Bạn thêm 2 đoạn này vào
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
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Refresh Form và tiếp tục hoạt động Godspear 2 84 08-12-16, 12:48 PM
Bài mới nhất: Godspear
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 39 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 195 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 167 09-11-16, 09:49 PM
Bài mới nhất: toancvp

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ