Access VBA 学习笔记技巧

最新推荐文章于 2026-02-12 13:43:58 发布

原创

最新推荐文章于 2026-02-12 13:43:58 发布 · 7.6k 阅读

收录于

这篇博客介绍了Access VBA中数据绑定、查询及记录集的使用技巧，包括DoCmd对象的应用，如何将查询结果绑定到窗体控件，使用DLookup函数进行条件查找，以及ADO Recordset的操作方法。此外，还讲解了如何在VBA中检查并创建查询，以及SQL LIKE语句的使用。

1, 最关键的Object : DoCmd

DoCmd.RunSQL

DoCmd.OpenForm

DoCmd.OpenQuery

DoCmd.OpenTable

DoCmd.Quit

2, 数据的绑定：

Me.frmChild.Form.RecordSource = strSQL

3，关键的查询：

If DLookup("[comSale]", "tblSalelist", "[comSale]='广州分公司'") = "广州分公司"

4，ADO 记录集的使用

vba代码里查询出来的recordset如何绑定到窗体的控件中

如果是子窗体的话，先设置在子窗体的记录源为一个表或查询，然后把你要用的字段放进去，再设置好格式。
然后，动态生成一个recordset, 如果这个recordset 可以用sql表示，那最简单不过：
me.子对象0.form.recordsource="select ......."。

如果是listbox 或combobox的话,先设置记录源为某个表或查询，然后，再动态把表或查询按你的筛选或其他要求更新，然后用：
me.listbox1.requery或me.combobox1.requery语句刷新一下就可以了。

access vba 用recordset读取表中数据的简单方法

[vb]view plaincopy 
    
 'strQuery是表名，查询名等  
 Public  Function Getrs(Byval strQuery as string)  as ADODB.Recordset  
 Dim objRs As New ADODB.Recordset  
 on Error GoTo  Error_Getrs  
 objRs.open  strQuery,CurrentProject.connection  
 '程序调试用  
 'Do While Not objRs.EOF  
 '        Debug.Print objRs(0) & vbTab & objRs(1) & vbTab & _  
 '                    objRs(2)  
 '        objRs.MoveNext  
 'Loop  
 