Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Giúp mình cách viết code xếp loại học sinh trong VBA
#1
1. Mọi người giúp mình viết câu lệnh để gán cho textBox xếp loại với.
Lúc đầu mình viết như thế này nhưng báo lỗi hoài.
Private Sub cmdxeploai_Click()
If txtTB >= 8 Then txtketqua = "Gioi"
ElseIf txtTB >= 6.5 And txtTB < 8 Then txtketqua = " Kha"
ElseIf txtTB >= 5 And txtTB < 6.5 Then txtketqua = "Trung Binh"
Else: txt = " Yeu"
End If
https://www.dropbox.com/s/klndh0ai6dmzdq...h.png?dl=0
[Hình: formtinhbinh.png?dl=0]
Chữ ký của NganNguyen Xin chào, mình là NganNguyen, Tham gia http://thuthuataccess.com/forum từ ngày 19-10 -14.
Reply
Những người đã cảm ơn
#2
1/ Data Type của txtTB phải là Number.
2/ Code

Mã PHP:
    If txtTB.Value >= 8 Then
        txtketqua
.Value "Gioi"
    ElseIf txtTB.Value >= 6.5 And txtTB.Value 8 Then
        txtketqua
.Value " Kha"
    ElseIf txtTB.Value >= And txtTB.Value 6.5 Then
        txtketqua
.Value "Trung Binh"
    Else: txtketqua.Value " Yeu"
    End If 
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn NganNguyen


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Photo [Hỏi] Xin giúp đỡ tạo form đăng nhập có liên kết với form Giao diện chính Thiên Hùng 14 411 10 Giờ trước
Bài mới nhất: Thiên Hùng
  Hướng Dẫn Tiến, lùi trong Listbox cawboy 2 69 11-01-18, 02:18 PM
Bài mới nhất: cawboy
  [Hỏi] Tiêu đề listbox tiếng việt khi đã kết nối SQL server mrsiro 11 518 12-12-17, 05:33 PM
Bài mới nhất: mrsiro
  [Hỏi] Cách sử dụng Old Value - Property? vkaccess 2 150 07-12-17, 04:14 PM
Bài mới nhất: vkaccess
  [Hỏi] Ứng dụng chạy trong mạng lan mrsiro 5 252 27-11-17, 04:46 PM
Bài mới nhất: lehongduc

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ơ