不做开发好多年,最近又研究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。'订单报表'表结构