Đá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: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
#12
Xin lỗi cho mình chen ngang 1 tý,,
mình có Table vị trí ,,, nó liên kết với phieunhapkho và phieuxuatkho,,

Mình đã làm được 1 cái,, tìm hàng hóa đó nằm ở vị trí nào,, và tìm xem vị trí bất kỳ nào đó,,, có hàng hóa gì,,,

Bây giờ ,, mình muốn,, tìm tất cả các vị trí mà ko có hàng hóa ,, để tiện cho việc chỉ định vị trí cụ thể khi nhaphang..

mọi người chỉ mình hướng làm với


thank
Chữ ký của cuong0202 Xin chào, mình là cuong0202, Tham gia http://thuthuataccess.com/forum từ ngày 11-01 -13.
Reply
Những người đã cảm ơn
#13
Không có chi tiết lắm nên hổng hiểu rõ lắm , nhưng thường phiếu nhập , xuất cũng phải có MAHANGHOA , SOLUONG.....kèm theo .Vậy thử làm theo hướng tìm kho có MAHANGHOA hoặc SOLUONG.>0. xem sao !
Hoặc để tiện cho việc chỉ định vị trí cụ thể khi nhaphang thì nghiên cứu cách thiết kế Table vị trí có phần
( Lookup = Combo Box ) của VỊ TRÍ trong Form Nhaphang . khi đó đến cột Vị Trí chỉ cần chọn VỊ TRÍ trong Combo Box của Form là dễ ợt mà !!!!
Hổng biết có đúng ý kg . nhưng khải nguyên cũng từng làm " vị trí " mặt hàng để dễ quản lý hàng hóa khi xuất nhập ......
Khải Nguyên !
Chữ ký của khải nguyên Khải Nguyên Xin Gửi lời chào tới Tất cả các bạn trên Diễn Đàn Thủ Thuật Access
Chúc cả nhà may mắn và  thành đạt ! Lightbulb
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 71 9 Giờ trước
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ơ