Đá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 49 18,090 21-03-17, 10:20 PM
Bài mới nhất: maidinhdan
  Tránh xung đột dữ liệu trong access quocdung9999 17 2,043 11-03-17, 04:12 PM
Bài mới nhất: quocdung9999
Heart Chạy lệnh tự động theo thời gian định sẵn minhriohtn 1 162 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 165 18-12-16, 09:43 AM
Bài mới nhất: thanhquyt
  Lấy record từ tbl1 làm thành field trong tbl2. MinhnHang 5 232 13-12-16, 03:05 PM
Bài mới nhất: ongke0711

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ơ