[示例]通過代碼實現快速錄入

表（tab1）

窗體（Main）

代碼

Option Compare Database
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'設置窗體快捷按鍵 NUM-，按下後輸入文本框獲得焦點，並對其顯示內容進行全選
'需要設置窗體鍵預覽屬性爲是
    Select Case KeyCode
        Case vbKeySubtract
        	'屏蔽系統快捷鍵
            KeyCode = 0
            '輸入文本框獲得焦點，並對輸入框進行全選
            Me.txt_input.SetFocus
            Me.txt_input.SelStart = 0
            Me.txt_input.SelLength = Len(Me.txt_input.Text)
    End Select
End Sub
Private Sub txt_input_Change()
    Dim qry_sql As String
	'SQL語句
    qry_sql = "SELECT code,name FROM tab1 WHERE tab1.code LIKE '" & CStr(txt_input.Text) & "*'"
    '創建一個查詢
    Set qdf = CurrentDb.CreateQueryDef("qry_code", qry_sql)
    '設置列表框的行來源，列表框設置顯示2列，便於查看代碼和代碼對應的內容
    lst_view.RowSource = "qry_code"
    '賦值給給輸出文本框
    txt_out.Value = lst_view.Column(1, 0)
    '刷新窗體
    Application.RefreshDatabaseWindow
    '刪除查詢
    DoCmd.DeleteObject acQuery, "qry_code"
End Sub

運行效果