Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Hàm tìm kiếm giá trị gần dúng
#1
(03-02-13, 02:13 PM)quyvt1993 Đã viết: ....Trên form, 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 giá trị bằng hoặc gần bằng GiaTien, nếu thấy thì xuất ra textbox kq, nếu ko tìm giá trị gần nhất xuất ra....

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
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 quyvt1993 , hatashibl , sorryikillyo , conmeo , donkist


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Dùng VBA để tính tồn kho Xuân Thanh 4 1,962 23-07-15, 04:15 PM
Bài mới nhất: bvchauthanh
  Sử dụng thư viện hàm của Excel trong Access Noname 4 5,747 14-02-15, 01:45 PM
Bài mới nhất: thucgia
  Hàm tìm kiếm một chuỗi trong một chuỗi cho trước Xuân Thanh 2 2,332 17-01-13, 10:24 PM
Bài mới nhất: duyhiep
  Hàm kiểm tra 1 file được mở hay chưa Noname 0 1,773 03-10-10, 11:53 PM
Bài mới nhất: Noname
  Hàm Kiểm tra kiểu dữ liệu của fields Noname 2 2,858 31-08-10, 03:33 PM
Bài mới nhất: Noname

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ơ