-
Notifications
You must be signed in to change notification settings - Fork 0
/
frmDashboard.vba
81 lines (59 loc) · 1.85 KB
/
frmDashboard.vba
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Option Compare Database
Option Explicit
'------------------------------------------------------------
' Form_Load
'
'------------------------------------------------------------
Private Sub Form_Load()
On Error GoTo Form_Load_Err
Dim objAD As Object
Dim objUser As Object
Dim userName As String
Set objAD = CreateObject("AdSystemInfo")
Set objUser = GetObject("LDAP://" & objAD.userName)
userName = objUser.displayName
Me.lblCurrentUser.Caption = "Logged in as: " & userName
DoCmd.SetWarnings False
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Form_Load_Exit:
Exit Sub
Form_Load_Err:
MsgBox Error$
Resume Form_Load_Exit
End Sub
'------------------------------------------------------------
' btnStartQuiz_Click
'
'------------------------------------------------------------
Private Sub btnStartQuiz_Click()
On Error GoTo btnStartQuiz_Click_Err
Dim vbOkay As VbMsgBoxStyle
Dim clearAnswerSheet As String
clearAnswerSheet = "DELETE * FROM tblAnswerSheet"
If MsgBox("You are about to begin your quiz. Good luck!", vbOKCancel + vbQuestion) = vbCancel Then
Exit Sub
Else:
TempVars.RemoveAll
DoCmd.RunSQL (clearAnswerSheet)
DoCmd.OpenForm "frmRandomizedQuiz"
DoCmd.Close acForm, Me.Name
End If
btnStartQuiz_Click_Exit:
Exit Sub
btnStartQuiz_Click_Err:
MsgBox Error$
Resume btnStartQuiz_Click_Exit
End Sub
'------------------------------------------------------------
' btnExitQuiz_Click
'
'------------------------------------------------------------
Private Sub btnExitQuiz_Click()
On Error GoTo btnExitQuiz_Click_Err
DoCmd.Quit acQuitPrompt
btnExitQuiz_Click_Exit:
Exit Sub
btnExitQuiz_Click_Err:
MsgBox Error$
Resume btnExitQuiz_Click_Exit
End Sub