phfb.net
当前位置:首页 >> ACCEss vBA 范例 大全 >>

ACCEss vBA 范例 大全

很好的一本书

这本书 不适合初学者,需要有一定基础的读者学习,如果你在学习过程中有任何问题,都可以私我。。。

Dim cn As New adodb.Connection Dim rs As New adodb.Recordset cn.Provider = "microsoft.jet.oledb.4.0" cn.Open (ThisWorkbook.Path & "\数据库\class.mdb") rs.ActiveConnection = cn rs.Open ("select * from class"), , adOpenDynamic, a...

两个循环即可: for i=100 to 0 step -2 s=s+i next i msgbox s for i=1 to 99 step 4 p=p+i*(i+2) next i msgbox p

VBA语句编写是在模块或者窗体的事件中进行,至于如何编写就复杂了,给你一个简单的例子。 单击退出access事件的语句: Private Sub 退出系统_Click() If MsgBox("你确定要退出Access系统?", vbQuestion + vbYesNo, "确认") = vbYes Then docmd....

按Alt+F11进入VBA,插入一个模块,粘贴以下代码: Sub 在条码表中插入150条记录() For i = 1 To 150 'insert into 条码表(条码,批次) values('A000001','JJJ1-1') CurrentDb.Execute ("insert into 条码表(条码,批次) values('A" & Right(CStr(1...

VBA代码我会写

1. 需要建一个用户表,表中要有用户名和密码字段,只建一个用户表就可以; 2. 登陆按钮的单击事件代码: Private Sub 登陆_Click() if isnull(me.用户名) or isnull(me.密码) then msgbox "请输入正确的用户名和密码!" elseif isnull(DLookup("...

说明需要引用 ADO2 到项目 Dim vaSqlStr As String, rst As New ADODB.Recordset,n as Integer Dim vaFldValue() vaSqlStr = "Select * From tbl1" Set rst = CurrentDb.OpenRecordset(vaSqlStr) redim vaFldValue(3,rst.RecordCount-1) for n=0...

access vba中使用sql的方法举例: Private Sub Command12_Click() Dim sqlStr As String Dim condStr As String Dim db As Database Dim rs As Recordset Dim f As Field Set db = CurrentDb sqlStr = "SELECT 品名.名称, 品名.性质(分类), 品...

网站首页 | 网站地图
All rights reserved Powered by www.phfb.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com