Đá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ướng Dẫn Tạo số phiếu thu trên form cawboy 6 96 5 Giờ trước
Bài mới nhất: cawboy
  Cho mình hỏi về tạo checkbox để xuất ra report tieu_ngao 4 170 21-05-17, 06:07 PM
Bài mới nhất: tranthanhan1962
  Hướng Dẫn Giúp sửa đổi thành forms tìm kiếm nhiều tiêu chí xndt 6 233 15-05-17, 02:52 PM
Bài mới nhất: xndt
  Cho mình hỏi về file.ldb khi tắt form tieu_ngao 3 119 14-05-17, 11:55 AM
Bài mới nhất: ongke0711
  Tạo code cho form đăng nhập feeling 1 171 14-05-17, 10:50 AM
Bài mới nhất: nhannt4

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ơ