ACCESS 碎片知识

一.ColumnHidden  隐藏字段

For Each TEMP In Me.FM刀具项夹表.Form.Controls
        If Not TypeOf TEMP Is Label Then
            If TEMP.Name <> "RecordID" And TEMP.Name <> "项目" And TEMP.Name <> "夹位" And TEMP.Name <> "标准寿命" Then
                TEMP.ColumnHidden = -1
            End If
        End If
    Next

 

二.统计数据表筛选过后的记录数量

Me.FM探头状态.Form.Filter = "字段名 = '筛选条件'"
Me.FM探头状态.Form.FilterOn = True

' 统计筛选后的记录数量
Dim count As Long
count = Me.FM探头状态.Form.RecordsetClone.RecordCount

MsgBox "筛选后的记录数量为：" & count

三.统计ACCESS数据库内数据表,查询,窗体,报表,模块的数量

'数据表数量
db.TableDefs.Count - 1  ' 减去系统表"MSysObjects"

'查询数量
CurrentProject.AllQueries.Count

'窗体数量
CurrentProject.AllForms.Count

'报表数量
CurrentProject.AllReports.Count

'模块数量
CurrentProject.AllModules.Count

'统计ACCESS内所有对象的数量,也就是上面几个数量之和
 Dim db As DAO.Database
    Dim tableCount As Long, queryCount As Long, formCount As Long, reportCount As Long, moduleCount As Long
    Dim totalObjects As Long    
    Set db = CurrentDb()    
    tableCount = db.TableDefs.Count - 1  ' 减去系统表的数量
    queryCount = CurrentProject.AllQueries.Count
    formCount = CurrentProject.AllForms.Count
    reportCount = CurrentProject.AllReports.Count
    moduleCount = CurrentProject.AllModules.Count    
    totalObjects = tableCount + queryCount + formCount + reportCount + moduleCount
    

四.统计已经打开的表单(窗体)数量.

forms.count

五.判断指定窗体是否有打开

CurrentProject.AllForms("窗体1").IsLoaded

 六.在EXCEL中设置了ActiveX,也会影响到ACCESS中的Activex控件的使用.例如在EXCEL中设置Activex为禁用状态时,再打开ACCESS程序,里面如果有调用Activex控件 ,则其代码会提示不支持的属性和方法.

　额外说明,在EXCEL选项中 设置"宏设置",不会对ACCESS程序造成影响.