Đá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
Heart Chạy lệnh tự động theo thời gian định sẵn minhriohtn 1 126 22-12-16, 11:22 AM
Bài mới nhất: ongke0711
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 43 17,579 18-12-16, 03:37 PM
Bài mới nhất: huuduy.duy
  Hướng Dẫn Enter xuống dòng trong textbox thanhquyt 2 125 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 186 13-12-16, 03:05 PM
Bài mới nhất: ongke0711
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 9 387 09-12-16, 06:11 PM
Bài mới nhất: maidinhdan

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ơ