不做开发好多年,最近又研究Access了!

以下是笔记:

实验版本Access 2007

1.安全警告要打开:



否则无法运行程序.

2.VBA的菜单中,工具-> 引用->Mircosoft ActiveX Data Object X.Y Liberary 前面的沟要选上,否则,无法使用ADO对象.



3.创建一个宏来调试VBA程序,



4.现在可以用VB来开发Access程序了.



VB的语法都忘光光了,好在网上的帮助多的是,这也不是啥新技术.

代码例子(必须有 '订单报表'的表存在):

Option Compare Database

Option Explicit

'用户登录的“用户编号”

Public UserID As String

'用户登录的“用户名”

Public UserName As String

Public varTemp(5) As Variant

Function OpenForm(FormID As Integer)

On Error GoTo Err_OpenForm

Dim i As Integer

Dim STemp As String

Dim Rs1 As ADODB.Recordset

Dim Rs2 As ADODB.Recordset

Set Rs1 = New ADODB.Recordset

Set Rs2 = New ADODB.Recordset

'打开“系统权限”数据表

STemp = "Select * From 订单报表"

Rs1.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Dim blnOpen As Boolean

Dim FormName As String

blnOpen = False

'判断“系统权限”数据是否为空

If Rs1.RecordCount < 1 Then

blnOpen = False

Else

Rs1.MoveFirst

'判断当前“登录用户”是否有权限打开FormID对应的窗体

For i = 1 To Rs1.RecordCount

If Rs1("ID") = UserID Then

blnOpen = True

Else

MsgBox Rs1("ID") & "," & Rs1("买家会员名"), vbOKOnly, "窗体打开错误"

Rs1.MoveNext

End If

Next i

End If

Set Rs1 = Nothing

Set Rs2 = Nothing

MsgBox FormID, vbOKOnly, "窗体打开错误"

Exit Function

Err_OpenForm:

' Set Rs1 = Nothing

' Set Rs2 = Nothing

MsgBox Err.Description, vbOKOnly, "窗体打开错误"

End Function

5。'订单报表'表结构