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

[thuykoy91]

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

View more random threads:

• Bấm nút có thêm Record đã điền trong textbox
• Hai khúc mắc trong VBA
• Lấy giá trị từ combo box
• Giúp đở vấn đề share csdl access để được nhiều người dùng
• Lấy dữ liệu từ một form sang form khác
• Giúp mình tạo số chứng từ tự động tăng theo tháng năm hiện tại
• Không cập nhật được khi tiến hành Append rồi Delete
• Làm sao để ghi dữ liệu vào record?
• Có Thể Nén Backend từ FrontEnd Không ?
• [hỏi] cập nhập dữ liệu trên sub form

[tungloiloi1]

Ðề: 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

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

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

[aplico]

Ðề: 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)

[vietquan_231092]

Ðề: 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!

[duthu94]

Ðề: 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ế.

[kysybongdemictu]

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

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

[thienho]

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

[COLOR=#000000]
[/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]DiemTB[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Ma [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700]) As [/COLOR][COLOR=#0000BB]Single       Dim Toan[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Van    Toan [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]DlookUp[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"DiemToan"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"tblDiem"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"MaHS = '" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Ma [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]"'"[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]Van [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]DlookUp[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"DiemVan"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"tblDiem"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"MaHS = '" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Ma [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]"'"[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]DiemTB [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#0000BB]Toan [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]3 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Van [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700])/[/COLOR][COLOR=#0000BB]5End [/COLOR][COLOR=#007700]Function[/COLOR] 

[seovg]

Ðề: 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.

[linktac]

Ðề: 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