Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Câu lệnh SECLECT TOP trong VBA
#1
Sad 
Chào các anh chị em đang viết 1 hàm tính điểm chuẩn
Câu lệnh SECLECT TOP em viết như kia tại sao nó lại không chạy vậy?
Em muốn lấy ra top bằng với chỉ tiêu và lấy điểm chuẩn của từng ngành bằng với SumDiem của thí sinh đứng ở thứ hạng bằng với chỉ tiêu đó ạ.
Mong mọi người giúp em. [SumDiem] và [MaNganh] nằm trong bảng THISINH
Mã PHP:
Option Compare Database

Function Diemchuan(MaNganh As StringChitieu As Integer) As Single
Dim strQSL 
As String 'Luu cau lenh SQL
Dim rs As Recordset
On Error Resume Next
strSQL = "SELECT TOP "&Chitieu&" [SumDiem], MaNganh FROM THISINH "&_
"WHERE (((THISINH.MaNganh)='"&MaNganh&"')) ORDER BY [SumDiem] DESC"
Set rs = CurrenDb.OpenRecordset(strSQL, 2)
rs.MoveLast
Diemchuan = rs.Fields("SumDiem")
rs.Close
Set rs = Nothing
End Function 
Chữ ký của eltoro eltoro,gia nhập Thủ Thuật Access từ 13-01 -16.
Reply
Những người đã cảm ơn
#2
Bạn thêm khoảng cách giữa dấu "&" và tên các biến.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Lọc điều kiện theo nhiều dòng trong 1 Listbox hoặc nhiều Listbox ongke0711 11 1,400 23-09-17, 04:54 PM
Bài mới nhất: ongke0711
  Làm sao chạy được code cả trong access 32 bit và access 64 bit haquocquan 1 104 12-09-17, 11:15 PM
Bài mới nhất: maidinhdan
  Xin file demo theo yêu cầu, tùy biến các query theo câu lệnh SQL Đình Phán 12 493 19-08-17, 07:08 AM
Bài mới nhất: cpucloi
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 61 21,576 18-06-17, 08:49 AM
Bài mới nhất: lehongduc
  Tránh xung đột dữ liệu trong access quocdung9999 17 3,106 11-03-17, 04:12 PM
Bài mới nhất: quocdung9999

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ơ