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

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

近几年来, 自称融合了Access和Excel以及易表优势的FoxTable势头越来越盛,在其宣传中,矛头直指Excel和Access,用了一些诸如“还在用Access?落伍了!”、“FoxTable上市,秒杀Excel”之类的以贬低微软产品而抬高自身的宣传,大有不妥之处,为什么呢?...

按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...

Dlookup(”[触发情况]“,”虚拟故障案例库“,”[编号]=6“)

Private Sub Command1_Click() Dim sql as string Dim rst As DAO.Recordset sql = "SELECT DGZY.usename FROM DGZY WHERE (((DGZY.usename) Like " & '张三' & "))" Set rst = CurrentDb.OpenRecordset '然后你就可以处理rst了,rst就是返回的...

按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...

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