Hỏi cách viết 1 hàn function tính điểm TB

[lan007]

Cho mình hỏi cách viết 1 hàm function nhé. Đề bài là
Trong module 1 viết hàm sau
Function DIEM_TB2(MAHS as string) as Single để tính điểm trung bình của thí sinh có MAHS (MÃ HỌC SINH) TRONG TABLE DIEMTHI =MAHS được cho trong hàm theo công thức sau:
DIEM_TB2 = (ĐIỂM VĂN *2+ĐIỂM TOÁN*3)/5

 

[Xuân Phương]

Ðề: Hỏi cách viết 1 hàn function tính điểm TB

1/ Table tblDiem gồm MaHS, DiemToan, DiemVan, trong đó MaHS là Primary Key
2/ Viết hàm trong Modul như sau

Function DiemTB(Ma As String) As Single
    Dim Diem As Recordset
    Set Diem = CurrentDb.OpenRecordset("Select * From tblDiem Where MaHS = '" & Ma & "'")
    DiemTB = Round((Diem!DiemToan * 3 + Diem!DiemVan * 2)/5), 1)
End Function

Bạn test nhé, tôi không có thời gian
Thấn

 

[lan007]

Ðề: Hỏi cách viết 1 hàn function tính điểm TB

Mình test rồi sao chưa được bác ah.
Nó báo lỗi dòng này thì phải DiemTB = Round((Diem!DiemToan * 3 + Diem!DiemVan * 2)/5), 1)

 

[dotienduyet]

Ðề: Hỏi cách viết 1 hàn function tính điểm TB

Mình test rồi sao chưa được bác ah.
Nó báo lỗi dòng này thì phải DiemTB = Round((Diem!DiemToan * 3 + Diem!DiemVan * 2)/5), 1)

+ Nếu dòng này mà áp dụng Query thì sai ở chỗ thiếu 1 dấu ngoặc đơn "(" và dấu phẩy ",". Phải sửa thành: = Round(((Diem!DiemToan * 3 + Diem!DiemVan * 2)/5), (1))

+ Nếu áp dụng trong VBA thì chỉ cần thêm 1 dấu ngoặc đơn "(" sau từ Round. VD: =Round(((

Thân!

 

[lan007]

Ðề: Hỏi cách viết 1 hàn function tính điểm TB

Cho mình hỏi nếu dùng hàm dlookup thi phải viết sao vậy bạn? thầy mình yêu cầu thế.

 

[lan007]

Ðề: Hỏi cách viết 1 hàn function tính điểm TB

Hix. Có ai giúp mình không ?

 

[xuanthanh]

Ðề: Hỏi cách viết 1 hàn function tính điểm TB

Function DiemTB(Ma As String) As Single   
    Dim Toan, Van
    Toan = DlookUp("DiemToan", "tblDiem", "MaHS = '" & Ma & "'")
    Van = DlookUp("DiemVan", "tblDiem", "MaHS = '" & Ma & "'")
    DiemTB = (Toan * 3 + Van * 2)/5
End Function

 

[lan007]

Ðề: Hỏi cách viết 1 hàn function tính điểm TB

Hix, mình thử rồi mà chỗ "DiemToan" và "DiemVan" nó không hiểu bạn ơi.

 

[xuanthanh]

Ðề: Hỏi cách viết 1 hàn function tính điểm TB

Trong table tblDiem của bạn phải bao gồm các trường : MaHS, DiemToan, DiemVan. Thay thế theo cách đặt tên trường của bạn
Thân mến