Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: bosshaku 13-02-13, 08:22 PM Chuyên mục: Query - Bài trả lời (5) |
Xin cám ơn
|
|
Viết bởi: nmttri 06-02-13, 06:42 PM Chuyên mục: Table - Bài trả lời (3) |
|
|
Viết bởi: hueqlhc 05-02-13, 11:24 AM Chuyên mục: Query - Bài trả lời (8) |
Tôi có 1 table Nhankhau (trong đó có filed: Tenphuong) và 2 query Q_MT và Q_CT như file sau:
http://www.mediafire.com/?nmrz9zmx7csoxew
Vấn đề mong các bạn giải quyết giúp:
Tạo Query TN: thống kê (dùng hàm count) những đối tượng MT và CT trong các phường (hiển thị luôn các giá trị là 0 trong query này)
Chân thành cảm ơn. Mong hồi âm sớm.
|
|
Viết bởi: Minh Tiên 04-02-13, 06:02 PM Chuyên mục: Forms - Bài trả lời (2) |
Khi thiết kế form, để hướng dẫn người sử dụng sử dụng các obj textbox, Button, ... thì tại ControlTip Text của obj đó ta gõ ghi chú vào. Khi mouse chuột đến obj đó thì dòng chữ hiển thị lên.
Xong hiện nay dòng chữ hiển thị hơi chậm (Khoảng 2s mới hiển thị).
Xin hỏi các Sư huynh có cách nào làm dòng chữ hiển thị nhanh hơn không ? (Di chuyển chuột vào sẽ hiển thị liền).
Thanks !
|
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....
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 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"
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ủ đề Mới nhất |
| Buy Dope Online -Chuyên mục: MS Word-Đăng bởi lần cuối: RichardSwill-2 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
| Put an end Paying $100+ P... -Chuyên mục: MS Word-Đăng bởi lần cuối: nyc360news1houth-5 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
| SpcerjeadS -Chuyên mục: MS Word-Đăng bởi lần cuối: HaroldpaK-Hôm qua, 07:10 PM- » Bài trả lời: 0- » Lượt xem: 1 |
| App radmin 3.4 cr@ck full... -Chuyên mục: Tin Học Văn Phòng-Đăng bởi lần cuối: localpageukhouth-Hôm qua, 08:50 AM- » Bài trả lời: 7- » Lượt xem: 4,550 |
| kraken ссылка 2026 — Как ... -Chuyên mục: MS Word-Đăng bởi lần cuối: Benjaminges-31-10-26, 04:09 PM- » Bài trả lời: 0- » Lượt xem: 2 |
| kraken ссылка 2026 — Поче... -Chuyên mục: MS Word-Đăng bởi lần cuối: AndrewMit-31-10-26, 01:22 PM- » Bài trả lời: 0- » Lượt xem: 1 |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,339 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 135 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 153 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,046 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |