[示例]通过代码实现快速录入

表(tab1)
表(tab1)
窗体(Main)
窗体(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

运行效果
运行效果

发布了3 篇原创文章 · 获赞 0 · 访问量 5876
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览