Viết bởi: Minh Tiên 04-02-13, 06:02 PM Chuyên mục: Forms - Bài trả lời (2) |
Viết bởi: Xuân Thanh 04-02-13, 01:00 PM Chuyên mục: Thư Viện Hàm - Không có hồi đáp |
(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....
Option Explicit
Function TimGanDung(nGiaTri As Double, nLoai 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!GiaSP: KQ = True
End If
End If
Else
If rs!GiaSP > nGiaTri Then
If nGiaTri - rs!GiaSP < 0 Then
TimGanDung = rs!GiaSP: KQ = 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"
Viết bởi: quyvt1993 02-02-13, 03:41 PM Chuyên mục: Forms - Bài trả lời (11) |
Viết bởi: quyvt1993 02-02-13, 03:41 PM Chuyên mục: Forms - Bài trả lời (12) |
Viết bởi: bosshaku 02-02-13, 10:06 AM Chuyên mục: Query - Bài trả lời (4) |
Chủ đề Mới nhất |
Template- Hoa -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: nguyenngocthanh2609-3 Giờ trước- » Bài trả lời: 1- » Lượt xem: 4,352 |
[Demo-Phần 4] Tạo khóa bả... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: huyhoang22-06-05-24, 03:29 PM- » Bài trả lời: 40- » Lượt xem: 5,484 |
Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-06-05-24, 03:21 PM- » Bài trả lời: 40- » Lượt xem: 1,571 |
Dòng Thơ Nhạc Trích Đoạn -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-30-04-24, 04:51 PM- » Bài trả lời: 4- » Lượt xem: 46 |
Trợ giúp về Textbox với c... -Chuyên mục: Forms-Đăng bởi lần cuối: Nguyên Thông-18-04-24, 10:15 PM- » Bài trả lời: 16- » Lượt xem: 5,954 |
In mã vạch tạo từ access ... -Chuyên mục: Forms-Đăng bởi lần cuối: huyhoang22-15-04-24, 11:25 AM- » Bài trả lời: 38- » Lượt xem: 20,799 |
Kết nối bảng từ access A ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: hieunx-11-04-24, 01:23 PM- » Bài trả lời: 5- » Lượt xem: 87 |
Lấy dữ liệu từ 1 cột của ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-09-04-24, 11:34 AM- » Bài trả lời: 11- » Lượt xem: 877 |
[Lỗi] Automation error kh... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: AnNguyen-05-04-24, 09:30 AM- » Bài trả lời: 4- » Lượt xem: 72 |
Lọc tên vật tư theo nhóm -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-02-04-24, 04:00 PM- » Bài trả lời: 1- » Lượt xem: 51 |
Diễn đàn Thống kê |
» Thành viên: 4,526 » Thành viên mới nhất: sicabece » Các chủ đề diễn đàn: 9,858 » Các bài viết diễn: 48,445 Thống kê đầy đủ |