Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Mình cần các bạn giúp làm một form tìm kiếm gần bằng
#11
(04-02-13, 01:08 PM)quyvt1993 Đã viết: File của mình đây!:http://www.mediafire.com/?2jail2ccpf6k9rd

Vận dụng đoạn code ở bài #9 vào CSDL của bạn
Thân
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#12
(04-02-13, 01:00 PM)Xuân Thanh Đã viết:
(03-02-13, 02:13 PM)quyvt1993 Đã viết: Mình cũng có tìm khá nhiều rồi bạn nhưng tại các bạn ấy tìm kiếm theo kiểu lọc dữ liệu, mình có 1 text box GiaTien, 1 table Dongia, mình muốn khi nhất nút tìm kiếm, sẽ tìm trong table dongia, nếu thấy thì xuất ra textbox kq, nếu ko tìm giá trị gần nhất xuất ra. Chứ nếu lọc như các bạn ấy sẽ lộ đơn giá ra, mà mình tìm ko ra.
File của mình bạn xem giùm mình với nha.!

1/ Trong Table DonGia gồm các trường : MaSP, TenSP, GiaSP
2/ Chép đoạn code sau vào một module
Mã PHP:
Option Explicit

Function TimGanDung(nGiaTri As DoublenLoai As Integer)
    
Dim rs As Recordset
    Dim strSQL 
As String
    strSQL 
"SELECT tblDonGia.* FROM tblDonGia ORDER BY tblDonGia.GiaSP"
    
Set rs CurrentDb.OpenRecordset(strSQL)
    
Dim nDau As Double
    Dim KQ 
As Boolean
    KQ 
False
    
If rs.RecordCount 0 Then
        rs
.MoveFirst
        nDau 
nGiaTri rs!GiaSP        
        
Do Until rs.EOF
            
If rs!GiaSP nGiaTri Then TimGanDung rs!GiaSP
            
If nLoai 1 Then
                
If rs!GiaSP nGiaTri Then
                    
If nGiaTri rs!GiaSP nDau 0 Then
                        nDau 
nGiaTri rs!GiaSP
                    
Else
                        
TimGanDung rs!GiaSPKQ True
                    End 
If
                
End If
            Else
                If 
rs!GiaSP nGiaTri Then
                    
If nGiaTri rs!GiaSP 0 Then
                        TimGanDung 
rs!GiaSPKQ True: Exit Do
                    
End If
                
End If
            
End If
            
rs.MoveNext
        Loop
    End 
If
    If 
KQ False Then MsgBox "Ket qua do tim khong co trong du lieu" , , "Thong Bao" 

Trong đó : nGiaTri là Giá trị cần dò tìm, nLoai là phương thức dò tìm. Nếu nLoai = 1 thì tìm cận dưới, nếu nLoai = 2 thì tìm cận trên

Thân mến
Mình đã hiểu cách làm của Xuân Thanh rồi, cám ơn bạn và các bạn khác rất nhiều!
Mong dc chỉ giáo thêm
Chữ ký của quyvt1993 Xin chào, mình là quyvt1993, Tham gia http://thuthuataccess.com/forum từ ngày 30-09 -12.
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 82 Hôm qua, 12:48 PM
Bài mới nhất: Godspear
  Tạo Menu dạng TreeView bằng Query (không dùng ActiveX) ongke0711 4 267 06-12-16, 09:16 PM
Bài mới nhất: toancvp
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 38 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
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 209 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq

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ơ