Viết bởi: Noname 13-08-10, 10:29 PM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (10) |
Private Sub Form_Current()
‘ Nội dung 4 đáp án liệt kê mỗi lần chuyển sang câu khác
lblTraLoi1.Caption = Me.TraLoi1
lblTraLoi2.Caption = Me.TraLoi2
lblTraLoi3.Caption = Me.TraLoi3
lblTraLoi4.Caption = Me.TraLoi4
grpTraLoi = Me.DapAnDuocChon
End Sub
Private Sub grpTraLoi_Click()
Me.DapAnDuocChon = grpTraLoi ‘ Khi thí sinh chọn đáp án
End Sub
Private Sub cmdChonDe_Click()
Dim db As Database, tbDeThi As Recordset, tbNganHang As Recordset
Dim rsTamThoi As Recordset
Dim nSoLuongCau As Byte, I As Byte, sSQL As String
Dim nTongSoCauTrongNH As Long, nSoNgauNhien As Long
nSoLuongCau = 30 ' Giả sử 30 câu
Set db = CurrentDb
' Tạm thời không kiểm tra trường hợp số lượng câu hỏi cần chọn có lớn hơn
' hay bằng tổng số câu trong ngân hàng đề thi không
Set tbNganHang = db.OpenRecordset("NganHangCauHoi")
tbNganHang.MoveFirst
If tbNganHang.EOF Then
MsgBox "Không có câu hỏi trong ngân hàng dữ liệu đề thi !"
tbNganHang.Close
db.Close
Exit Sub
End If
' Xóa đề trước đó
sSQL = "DELETE * FROM DeThiVaKetQua;"
db.Execute sSQL
' Tính tổng số câu hỏi trong ngân hàng đề thi
sSQL = "SELECT Max(SoThuTu) AS TongSoCauHoi FROM NganHangCauHoi"
Set rsTamThoi = db.OpenRecordset(sSQL)
rsTamThoi.MoveFirst
nTongSoCauTrongNH = rsTamThoi!TongSoCauHoi
rsTamThoi.Close
Set tbDeThi = db.OpenRecordset("DeThiVaKetQua")
' Tạo đề mới
tbNganHang.Index = "SoThuTu"
For I = 1 To nSoLuongCau
Do While True
nSoNgauNhien = Int((nTongSoCauTrongNH * Rnd) + 1) ‘ Chọn số thứ tự ngẫu nhiên
tbNganHang.Seek "=", nSoNgauNhien
If Not tbNganHang.NoMatch Then ' chắc chắn tìm thấy
If Not tbNganHang!DaDuocChon Then ' Câu này chưa chọn
tbDeThi.AddNew
tbDeThi!SoThuTu = I
tbDeThi!NoiDung = tbNganHang!NoiDung
tbDeThi!TraLoi1 = tbNganHang!TraLoi1
tbDeThi!TraLoi2 = tbNganHang!TraLoi2
tbDeThi!TraLoi3 = tbNganHang!TraLoi3
tbDeThi!TraLoi4 = tbNganHang!TraLoi4
tbDeThi!DapAnDung = tbNganHang!DapAnDung
tbDeThi!DapAnDuocChon = 0
tbDeThi.Update
' Đánh dấu đã chọn câu này để đưa vào bộ đề thi rồi
tbNganHang.Edit
tbNganHang!DaDuocChon = True
tbNganHang.Update
Exit Do
End If
End If
Loop
Next
tbDeThi.Close
' Đánh dấu chưa được chọn đối với các câu hỏi trong ngân hàng đề thi
tbNganHang.Close
sSQL = "UPDATE NganHangCauHoi SET DaDuocChon = False WHERE DaDuocChon = True"
db.Execute (sSQL)
db.Close
' Bộ đề mới đã tạo xong, hiển thị lại trên biểu mẫu
Me.Requery
SoThuTu.SetFocus ‘ Để có thể disable nút Chọn đề
cmdChonDe.Enabled = False ‘ Không cho chọn đề khác nữa
End Sub
Private Sub cmdKetQua_Click()
Dim nTongDiem As Byte, rs As Recordset
Set rs = Me.Recordset
nTongDiem = 0
With rs
.MoveFirst
While Not .EOF
nTongDiem = nTongDiem + IIf(!DapAnDuocChon = !DapAnDung, 1, 0)
.MoveNext
Wend
.MoveFirst
End With
MsgBox "Tổng số điểm đạt được là: " & nTongDiem, vbInformation, Me.Caption
Set rs = Nothing
End Sub
Viết bởi: Noname 13-08-10, 10:25 PM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (6) |
SELECT soquy.sochungtu, soquy.ngay, soquy.thuchi, soquy.sotien, soquy.diengiai, IIf([thuchi],[sotien],[sotien]*-1) AS sotien1, IIf([thuchi],[sotien],0) AS Thu, IIf([thuchi],0,[sotien]) AS Chi
FROM soquy
ORDER BY soquy.ngay;
Viết bởi: Noname 13-08-10, 10:13 PM Chuyên mục: Report - Bài trả lời (3) |
If Soluongtxt.Value = 0 Then
Soluongtxt.DecimalPlaces = 0
Else
Soluongtxt.DecimalPlaces = 2
End If
Viết bởi: Noname 13-08-10, 10:10 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (22) |
Viết bởi: Noname 13-08-10, 10:07 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (5) |
Sub LinkTable(T As String)
' xoa table link cu~
DoCmd.DeleteObject acTable, T
'link lai tablelink moi
DoCmd.TransferDatabase acLink, "Microsoft Access", CurrentProject.Path & "\" & "QLVB_en.mdb", acTable, T, T
End Sub
Chủ đề Mới nhất |
instagram gizli hesaplari... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: MiltonTer-8 Giờ trước- » Bài trả lời: 0- » Lượt xem: 6 |
In mã vạch tạo từ access ... -Chuyên mục: Forms-Đăng bởi lần cuối: tranthanhan1962-11 Giờ trước- » Bài trả lời: 31- » Lượt xem: 20,535 |
[Hỏi] Kết nối dữ liệu bằn... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: Seo-Ul-Vah-Hôm qua, 07:37 PM- » Bài trả lời: 53- » Lượt xem: 33,539 |
tradingview -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: RobertFut-Hôm qua, 06:05 PM- » Bài trả lời: 0- » Lượt xem: 8 |
kraken сайт зеркала -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: RobertNer-Hôm qua, 12:29 PM- » Bài trả lời: 0- » Lượt xem: 6 |
postegro -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: MiltonTer-Hôm qua, 02:16 AM- » Bài trả lời: 0- » Lượt xem: 7 |
Làm Video hướng dẫn lập t... -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: bazabkaki-27-03-24, 10:26 AM- » Bài trả lời: 4- » Lượt xem: 2,673 |
Biến 50GB từ Box.net thàn... -Chuyên mục: Tin Học Văn Phòng-Đăng bởi lần cuối: Seo-Ul-Vah-27-03-24, 03:38 AM- » Bài trả lời: 1- » Lượt xem: 2,102 |
Windows 10 ISO Full Direc... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: SuperMan2543a-26-03-24, 11:55 PM- » Bài trả lời: 0- » Lượt xem: 9 |
Утепление фасадов в москв... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: ppu-pr_dier-26-03-24, 11:35 PM- » Bài trả lời: 0- » Lượt xem: 4 |
Diễn đàn Thống kê |
» Thành viên: 4,348 » Thành viên mới nhất: Boxerapawn » Các chủ đề diễn đàn: 9,859 » Các bài viết diễn: 48,399 Thống kê đầy đủ |