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

ACCEss vBA 范例 大全

很好的一本书

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

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

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

把下面的过程放到任何一个模块中 Public Sub CreateTabel(rst As DAO.Recordset, TabelName As String) Dim TS As TableDefs Dim T As TableDef Dim F As DAO.Field Set TS = CurrentDb.TableDefs Set T = New TableDef rst.MoveFirst For Each

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就是返回的...

引用 Sub shili() Dim txtFile 'As Scripting.TextStream Set txtFile = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\a.txt") MsgBox txtFile.ReadLine '读取一行 'MsgBox txtFile.ReadAll '读取全部,两种方法选择用 txtFile...

ACCESS中用VBA代码运行一个已经定义的动作查询,可以用运行DoCmd对象的OpenQuery方法予以实现。 下面例子示范单击ACCESS窗体命令按钮,执行一个预定义的动作查询将表T1中的数据清空。 1)预先定义一个动作查询 将SQL语句:delete from T1; 保存...

说明需要引用 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...

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