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读取表中数据的简单方法
- '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