Đá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
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 61 20,503 18-06-17, 08:49 AM
Bài mới nhất: lehongduc
  Tránh xung đột dữ liệu trong access quocdung9999 17 2,713 11-03-17, 04:12 PM
Bài mới nhất: quocdung9999
  code chuyển đổi Hex sang ASCII trong access thanhtruong 9 707 13-02-17, 10:34 PM
Bài mới nhất: ongke0711
Heart Chạy lệnh tự động theo thời gian định sẵn minhriohtn 1 288 22-12-16, 11:22 AM
Bài mới nhất: ongke0711
  Hướng Dẫn Enter xuống dòng trong textbox thanhquyt 2 283 18-12-16, 09:43 AM
Bài mới nhất: thanhquyt

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ơ