Beginning Access 2002 VBA (Programmer to Programmer)

Connection

Connection.Cancel Connection.Close QueryDef = Connection.CreateQueryDef([Name As Variant], _ [SQLText As Variant]) Connection.Execute(Query As String, [Options As Variant]) Recordset = Connection.OpenRecordset(Name As String, [Type As Variant], _ [Options As Variant], [LockEdit As Variant])

Connections

Connections.Refresh

Containers

Containers.Refresh

Database

Database.Close Property = Database.CreateProperty([Name As Variant], [Type As Variant], _ [Value As Variant], [DDL As Variant]) QueryDef = Database.CreateQueryDef([Name As Variant], [SQLText As Variant]) Relation = Database.CreateRelation([Name As Variant], [Table As Variant], _ [ForeignTable As Variant], [Attributes As Variant]) TableDef = Database.CreateTableDef([Name As Variant], _ [Attributes As Variant], [SourceTableName As Variant], [Connect As Variant]) Database.Execute(Query As String, [Options As Variant]) Database.MakeReplica(PathName As String, Description As String, [Options As Variant]) Database.NewPassword(bstrOld As String, bstrNew As String) Recordset = Database.OpenRecordset(Name As String, [Type As Variant], _ [Options As Variant], [LockEdit As Variant]) Database.PopulatePartial(DbPathName As String) Database.Synchronize(DbPathName As String, [ExchangeType As Variant])

Databases

Databases.Refresh

DBEngine

DBEngine.BeginTrans DBEngine.CommitTrans( Option As Integer) DBEngine.CompactDatabase( SrcName As String, DstName As String, _ [DstLocale As Variant], [Options As Variant], [SrcLocale As Variant]) Database = DBEngine.CreateDatabase( Name As String, Locale As String, [Option As Variant]) Workspace = DBEngine.CreateWorkspace( Name As String, UserName As String, _ Password As String, [UseType As Variant]) DBEngine.Idle([ Action As Variant]) Integer = DBEngine.ISAMStats( StatNum As Integer, [Reset As Variant]) Connection = DBEngine.OpenConnection( Name As String, [Options As Variant], _ [ReadOnly As Variant], [Connect As Variant]) Database = DBEngine.OpenDatabase( Name As String, [Options As Variant], _ [ReadOnly As Variant], [Connect As Variant]) DBEngine.RegisterDatabase( Dsn As String, Driver As String, Silent As Boolean, _ Attributes As String) DBEngine.RepairDatabase( Name As String) DBEngine.Rollback DBEngine.SetOption( Option As Integer, Value As Variant)

Document

Property = Document.CreateProperty([Name As Variant], [Type As Variant], _ [Value As Variant], [DDL As Variant])

Documents

Documents.Refresh

DynaCollection

DynaCollection.Append(Object As Object) DynaCollection.Delete(Name As String) DynaCollection.Refresh

Errors

Errors .Refresh

Field

Field.AppendChunk(Val As Variant) Property = Field.CreateProperty([Name As Variant], [Type As Variant], _ [Value As Variant], [DDL As Variant]) Variant = Field.GetChunk(Offset As Integer, Bytes As Integer)

Fields

Fields.Append(Object As Object) Fields.Delete(Name As String) Fields.Refresh

Group

User = Group.CreateUser([Name As Variant], [PID As Variant], [Password As Variant])

Groups

Groups.Append(Object As Object) Groups.Delete(Name As String) Groups.Refresh

Index

Field = Index.CreateField([Name As Variant], [Type As Variant], [Size As Variant]) Property = Index.CreateProperty([Name As Variant], [Type As Variant], _ [Value As Variant], [DDL As Variant])

Indexes

Indexes.Append(Object As Object) Indexes.Delete(Name As String) Indexes.Refresh

IndexFields

IndexFields.Append(Object As Object) IndexFields.Delete(Name As String) IndexFields.Refresh

Parameters

Parameters.Refresh

Properties

Properties.Append(Object As Object) Properties.Delete(Name As String) Properties.Refresh

QueryDef

QueryDef.Cancel QueryDef.Close Property = QueryDef.CreateProperty([Name As Variant], [Type As Variant], _ [Value As Variant], [DDL As Variant]) QueryDef.Execute([Options As Variant]) Recordset = QueryDef.OpenRecordset([Type As Variant], [Options As Variant], _ [LockEdit As Variant])

QueryDefs

QueryDefs.Append(Object As Object) QueryDefs.Delete(Name As String) QueryDefs.Refresh

Recordset

Recordset.AddNew Recordset.Cancel Recordset.CancelUpdate(UpdateType As Integer) Recordset = Recordset.Clone Recordset.Close QueryDef = Recordset.CopyQueryDef Recordset.Delete Recordset.Edit Recordset.FillCache([Rows As Variant], [StartBookmark As Variant]) Recordset.FindFirst(Criteria As String) Recordset.FindLast(Criteria As String) Recordset.FindNext(Criteria As String) Recordset.FindPrevious(Criteria As String) Variant = Recordset.GetRows([NumRows As Variant]) Recordset.Move(Rows As Integer, [StartBookmark As Variant]) Recordset.MoveFirst Recordset.MoveLast(Options As Integer) Recordset.MoveNext Recordset.MovePrevious Boolean = Recordset.NextRecordset Recordset = Recordset.OpenRecordset([Type As Variant], [Options As Variant]) Recordset.Requery([NewQueryDef As Variant]) Recordset.Seek(Comparison As String, Key1 As Variant, [Key2 As Variant], _ [Key3 As Variant], [Key4 As Variant], [Key5 As Variant], [Key6 As Variant], _ [Key7 As Variant], [Key8 As Variant], [Key9 As Variant], [Key10 As Variant], _ [Key11 As Variant], [Key12 As Variant], [Key13 As Variant]) Recordset.Update(UpdateType As Integer, Force As Boolean)

Recordsets

Recordsets.Refresh

Relation

Field = Relation.CreateField([Name As Variant], [Type As Variant], [Size As Variant])

Relations

Relations.Append(Object As Object) Relations.Delete(Name As String) Relations.Refresh

TableDef

Field = TableDef.CreateField([Name As Variant], [Type As Variant], [Size As Variant]) Index = TableDef.CreateIndex([Name As Variant]) Property = TableDef.CreateProperty([Name As Variant], [Type As Variant], _ [Value As Variant], [DDL As Variant]) Recordset = TableDef.OpenRecordset([Type As Variant], [Options As Variant]) TableDef.RefreshLink

TableDefs

TableDefs.Append(Object As Object) TableDefs.Delete(Name As String) TableDefs.Refresh

User

Group = User.CreateGroup([Name As Variant], [PID As Variant]) User.NewPassword(bstrOld As String, bstrNew As String)

Users

Users.Append(Object As Object) Users.Delete(Name As String) Users.Refresh

Workspace

Workspace.BeginTrans Workspace.Close Workspace.CommitTrans( Options As Integer) Database = Workspace.CreateDatabase( Name As String, Connect As String, _ [Option As Variant] ) Group = Workspace .CreateGroup([ Name As Variant], [PID As Variant] ) User = Workspace .CreateUser([ Name As Variant], [PID As Variant], [Password As Variant] ) Connection = Workspace.OpenConnection( Name As String, [Options As Variant], _ [ReadOnly As Variant], [Connect As Variant]) Database = Workspace.OpenDatabase( Name As String, [Options As Variant], _ [ReadOnly As Variant], [Connect As Variant]) Workspace.Rollback

Workspaces

Workspaces.Append(Object As Object) Workspaces.Delete(Name As String) Workspaces.Refresh