【填空題】【跳轉(zhuǎn)查看指定間隔記錄】【通過(guò)按鍵跳轉(zhuǎn)記錄 keycode】
填空題
Dim search_rs As DAO.Recordset
Dim correct_text As String
Private Sub Command確定_Click()
On Error Resume Next
If Me.答題 = correct_text Then
MsgBox "正確"
Else
MsgBox "錯(cuò)誤：" & correct_text
End If
search_rs.MoveNext
If search_rs.EOF = False Then
題目.Value = search_rs!題目.Value
correct_text = search_rs!答案.Value
Me.答題.Value = ""
Me.答題.SetFocus
Else
MsgBox "已到達(dá)最后記錄"
Exit Sub
End If
End Sub
Private Sub Form_Close()
On Error Resume Next
search_rs.Close
Set search_rs = Nothing
End Sub
Private Sub Form_Load()
Dim search_sql As String
search_sql = "Select * From 題目表"
Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset)
If search_rs.EOF = False Then
題目.Value = search_rs!題目.Value
correct_text = search_rs!答案.Value
Me.答題.Value = ""
Me.答題.SetFocus
End If
End Sub
跳轉(zhuǎn)查看指定間隔記錄
Public endnum As Long
Private Sub Command上一個(gè)_Click()
Dim gotonum As Long
gotonum = Me.當(dāng)前 - Me.間隔數(shù)
If gotonum < 1 Then
gotonum = 1
End If
DoCmd.GoToRecord , , acGoTo, gotonum
Me.當(dāng)前 = gotonum
End Sub
Private Sub Command下一個(gè)_Click()
Dim gotonum As Long
gotonum = Me.當(dāng)前 + Me.間隔數(shù)
If gotonum > endnum Then
gotonum = endnum
End If
DoCmd.GoToRecord , , acGoTo, gotonum
Me.當(dāng)前 = gotonum
End Sub
Private Sub Form_Load()
endnum = DCount("ID", "英語(yǔ)單詞表")
End Sub
通過(guò)按鍵跳轉(zhuǎn)記錄 keycode
Private Sub Command上一個(gè)_Click()
On Error Resume Next
DoCmd.GoToRecord , , acPrevious
End Sub
Private Sub Command下一個(gè)_Click()
On Error Resume Next
DoCmd.GoToRecord , , acNext
End Sub
Private Sub 詞義_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 65 Then
Call Command上一個(gè)_Click
End If
If KeyCode = 68 Then
Call Command下一個(gè)_Click
End If
End Sub
