Method Calls

team lib

AccessObjectProperties

 AccessObjectProperties.Add(PropertyName As String, Value As Variant) 
AccessObjectProperties.Remove(Item As Variant)

Application

 Variant = Application.AccessError(ErrorNumber As Variant) 
Application.AddAutoCorrect(ChangeFrom As String, ChangeTo As String)
Application.AddToFavorites
Variant = Application.AppLoadString(id As Integer) Application.BeginUndoable(Hwnd As Integer)
String = Application.BuildCriteria(Field As String, FieldType As SmallInt, _ Expression As String)
Variant = Application.BuilderString
Application.CloseCurrentDatabase
Application.CodeDb
Application.CreateAccessProject(filepath As String, [Connect As Variant])
Control = Application.CreateControl(FormName As String, ControlType As AcControlType, _ Section As AcSection, [Parent As Variant], [ColumnName As Variant], _
[Left As Variant], [Top As Variant], [Width As Variant], [Height As Variant])
Control = Application.CreateControlEx(FormName As String, ControlType As AcControlType, _ Section As AcSection, Parent As String, ControlSource As String, Left As Integer, _
Top As Integer, Width As Integer, Height As Integer) DataAccessPage = Application.CreateDataAccessPage(FileName As Variant, _ CreateNewFile As Boolean)
Form = Application.CreateForm([Database As Variant], [FormTemplate As Variant])
Integer = Application.CreateGroupLevel(ReportName As String, Expression As String, _ Header As SmallInt, Footer As SmallInt)
Report = Application.CreateReport([Database As Variant], [ReportTemplate As Variant])
Control = Application.CreateReportControl(ReportName As String, _ ControlType As AcControlType, Section As AcSection, [Parent As Variant], _
[ColumnName As Variant], [Left As Variant], [Top As Variant], [Width As Variant], _
[Height As Variant]) Application.CurrentDb
String = Application.CurrentUser
Variant = Application.DAvg(Expr As String, Domain As String, [Criteria As Variant])
Variant = Application.DCount(Expr As String, Domain As String, [Criteria As Variant])
Application.DDEExecute(ChanNum As Variant, Command As String) Variant = Application.DDEInitiate(Application As String, Topic As String)
Application.DDEPoke(ChanNum As Variant, Item As String, Data As String)
String = Application.DDERequest(ChanNum As Variant, Item As String)
Application.DDETerminate(ChanNum As Variant) Application.DDETerminateAll
Application.DefaultWorkspaceClone
Application.DelAutoCorrect(ChangeFrom As String)
Application.DeleteControl(FormName As String, ControlName As String)
Application.DeleteReportControl(ReportName As String, ControlName As String)
Variant = Application.DFirst(Expr As String, Domain As String, [Criteria As Variant])
Variant = Application.DLast(Expr As String, Domain As String, [Criteria As Variant])
Variant = Application.DLookup(Expr As String, Domain As String, [Criteria As Variant])
Variant = Application.DMax(Expr As String, Domain As String, [Criteria As Variant])
Variant = Application.DMin(Expr As String, Domain As String, [Criteria As Variant])
Variant = Application.DStDev(Expr As String, Domain As String, [Criteria As Variant])
Variant = Application.DStDevP(Expr As String, Domain As String, [Criteria As Variant])
Variant = Application.DSum(Expr As String, Domain As String, [Criteria As Variant])
Variant = Application.DVar(Expr As String, Domain As String, [Criteria As Variant])
Variant = Application.DVarP(Expr As String, Domain As String, [Criteria As Variant])
Application.Echo(EchoOn As SmallInt, bstrStatusBarText As String) Variant = Application.Eval(StringExpr As String)
Application.FollowHyperlink(Address As String, SubAddress As String, _ NewWindow As Boolean, AddHistory As Boolean, ExtraInfo As Variant, _
Method As _LabelEvents, HeaderInfo As String) Boolean = Application.GetHiddenAttribute(ObjectType As AcObjectType, _ ObjectName As String)
Variant = Application.GetOption(OptionName As String)
Variant = Application.GUIDFromString(String As Variant)
String = Application.HyperlinkPart(Hyperlink As Variant, Part As AcHyperlinkPart)
Application.InsertText(Text As String, ModuleName As String) Application.LoadFromText(ObjectType As AcObjectType, ObjectName As String, _ FileName As String)
Set Object = Application.LoadPicture(FileName As String)
Application.NewAccessProject(filepath As String, [Connect As Variant])
Application.NewCurrentDatabase(filepath As String) Variant = Application.Nz(Value As Variant, [ValueIfNull As Variant])
Application.OpenAccessProject(filepath As String, Exclusive As Boolean)
Application.OpenCurrentDatabase(filepath As String, Exclusive As Boolean)
Application.Quit(Option As AcQuitOption) Application.RefreshDatabaseWindow
Application.RefreshTitleBar
Application.ReloadAddIns
Application.ReplaceModule(objtyp As Integer, ModuleName As String, FileName As _
String,token As Integer) Variant = Application.Run(Procedure As String, [Arg1 As Variant], [Arg2 As Variant], _
[Arg3 As Variant], [Arg4 As Variant], [Arg5 As Variant], [Arg6 As Variant], _
[Arg7 As Variant], [Arg8 As Variant], [Arg9 As Variant], [Arg10 As Variant], _
[Arg11 As Variant], [Arg12 As Variant], [Arg13 As Variant], [Arg14 As Variant], _
[Arg15 As Variant], [Arg16 As Variant], [Arg17 As Variant], [Arg18 As Variant], _
[Arg19 As Variant], [Arg20 As Variant], [Arg21 As Variant], [Arg22 As Variant], _
[Arg23 As Variant], [Arg24 As Variant], [Arg25 As Variant], [Arg26 As Variant], _
[Arg27 As Variant], [Arg28 As Variant], [Arg29 As Variant], [Arg30 As Variant])
Application.RunCommand(Command As AcCommand) Application.SaveAsText(ObjectType As AcObjectType, ObjectName As String, _ FileName As String)
Application.SetHiddenAttribute(ObjectType As AcObjectType, ObjectName As String, _
fHidden As Boolean) Application.SetOption(OptionName As String, Setting As Variant)
Application.SetUndoRecording(yesno As SmallInt) Variant = Application.StringFromGUID(Guid As Variant)
Variant = Application.SysCmd(Action As AcSysCmdAction, [Argument2 As Variant], _ [Argument3 As Variant])

BoundObjectFrame

 BoundObjectFrame.Requery 
BoundObjectFrame.SetFocus
BoundObjectFrame.SizeToFit

Checkbox

  Checkbox  .Requery 
Checkbox .SetFocus
Checkbox .SizeToFit
Checkbox .Undo

Combobox

  Combobox  .Dropdown 
Combobox .Requery
Combobox .SetFocus
Combobox .SizeToFit
Combobox .Undo

CommandButton

 CommandButton.Requery 
CommandButton.SetFocus
CommandButton.SizeToFit

Control

  Control  .Dropdown 
Control .Requery
Control .SetFocus
Control .SizeToFit
Control .Undo

CurrentProject

  CurrentProject  .CloseConnection 
CurrentProject .OpenConnection([ BaseConnectionString As Variant], [UserID As Variant], _
[Password As Variant] )

DataAccessPage

 DataAccessPage.ApplyTheme(ThemeName As String) 

DoCmd

 DoCmd.AddMenu(MenuName As Variant, MenuMacroName As Variant, StatusBarText As Variant) 
DoCmd.ApplyFilter([FilterName As Variant], [WhereCondition As Variant]) DoCmd.Beep
DoCmd.CancelEvent
DoCmd.Close(ObjectType As AcObjectType, ObjectName As Variant, Save As AcCloseSave)
DoCmd.CopyObject(DestinationDatabase As Variant, NewName As Variant, _ SourceObjectType As AcObjectType, [SourceObjectName As Variant])
DoCmd.DeleteObject(ObjectType As AcObjectType, [ObjectName As Variant])
DoCmd.DoMenuItem(MenuBar As Variant, MenuName As Variant, _ Command As Variant, [Subcommand As Variant], [Version As Variant]) DoCmd.Echo(EchoOn As Variant, [StatusBarText As Variant])
DoCmd.FindNext
DoCmd.FindRecord(FindWhat As Variant, Match As AcFindMatch, MatchCase As Variant, _ Search As AcSearchDirection, SearchAsFormatted As Variant, _
OnlyCurrentField As AcFindField, [FindFirst As Variant])
DoCmd.GoToControl(ControlName As Variant) DoCmd.GoToPage(PageNumber As Variant, [Right As Variant], [Down As Variant])
DoCmd.GoToRecord(ObjectType As AcDataObjectType, ObjectName As Variant, _ Record As AcRecord, [Offset As Variant])
DoCmd.Hourglass(HourglassOn As Variant)
DoCmd.Maximize
DoCmd.Minimize
DoCmd.MoveSize([Right As Variant], [Down As Variant], [Width As Variant], _ [Height As Variant])
DoCmd.OpenDataAccessPage(DataAccessPageName As Variant, View As AcDataAccessPageView)
DoCmd.OpenDiagram(DiagramName As Variant) DoCmd.OpenForm(FormName As Variant, View As AcFormView, FilterName As Variant, _ WhereCondition As Variant, DataMode As AcFormOpenDataMode, _
WindowMode As AcWindowMode, [OpenArgs As Variant]) DoCmd.OpenModule([ModuleName As Variant], [ProcedureName As Variant])
DoCmd.OpenQuery(QueryName As Variant, View As AcView, DataMode As AcOpenDataMode)
DoCmd.OpenReport(ReportName As Variant, View As AcView, [FilterName As Variant], _ [WhereCondition As Variant])
DoCmd.OpenStoredProcedure(ProcedureName As Variant, View As AcView, _ DataMode As AcOpenDataMode)
DoCmd.OpenTable(TableName As Variant, View As AcView, DataMode As AcOpenDataMode)
DoCmd.OpenView(ViewName As Variant, View As AcView, DataMode As AcOpenDataMode)
DoCmd.OutputTo(ObjectType As AcOutputObjectType, [ObjectName As Variant], _ [OutputFormat As Variant], [OutputFile As Variant], [AutoStart As Variant], _
[TemplateFile As Variant]) DoCmd.PrintOut(PrintRange As AcPrintRange, PageFrom As Variant, PageTo As Variant, _ PrintQuality As AcPrintQuality, [Copies As Variant], [CollateCopies As Variant])
DoCmd.Quit(Options As AcQuitOption) DoCmd.Rename(NewName As Variant, ObjectType As AcObjectType, [OldName As Variant])
DoCmd.RepaintObject(ObjectType As AcObjectType, [ObjectName As Variant]) DoCmd.Requery([ControlName As Variant])
DoCmd.Restore
DoCmd.RunCommand(Command As AcCommand)
DoCmd.RunMacro(MacroName As Variant, [RepeatCount As Variant], _ [RepeatExpression As Variant])
DoCmd.RunSQL(SQLStatement As Variant, [UseTransaction As Variant])
DoCmd.Save(ObjectType As AcObjectType, [ObjectName As Variant])
DoCmd.SelectObject(ObjectType As AcObjectType, [ObjectName As Variant], _ [InDatabaseWindow As Variant])
DoCmd.SendObject(ObjectType As AcSendObjectType, [ObjectName As Variant], _ [OutputFormat As Variant], [To As Variant], [Cc As Variant], [Bcc As Variant], _
[Subject As Variant], [MessageText As Variant], [EditMessage As Variant], _ [TemplateFile As Variant])
DoCmd.SetMenuItem(MenuIndex As Variant, [CommandIndex As Variant], _ [SubcommandIndex As Variant], [Flag As Variant])
DoCmd.SetWarnings(WarningsOn As Variant) DoCmd.ShowAllRecords
DoCmd.ShowToolbar(ToolbarName As Variant, Show As AcShowToolbar)
DoCmd.TransferDatabase(TransferType As AcDataTransferType, DatabaseType As Variant, _
DatabaseName As Variant, ObjectType As AcObjectType, [Source As Variant], _
[Destination As Variant], [StructureOnly As Variant], [StoreLogin As Variant])
DoCmd.TransferSpreadsheet(TransferType As AcDataTransferType, _ SpreadsheetType As AcSpreadSheetType, [TableName As Variant], _
[FileName As Variant], [HasFieldNames As Variant], [Range As Variant], _
[UseOA As Variant]) DoCmd.TransferText(TransferType As AcTextTransferType, [SpecificationName As Variant], _ [TableName As Variant], [FileName As Variant], [HasFieldNames As Variant], _
[HTMLTableName As Variant], [CodePage As Variant])

Form

 Form.GoToPage(PageNumber As Integer, Right As Integer, Down As Integer) 
Form.Recalc
Form.Refresh
Form.Repaint
Form .Requery Form .SetFocus
Form .Undo

FormatCondition

 FormatCondition.Delete 
FormatCondition.Modify(Type As AcFormatConditionType, _ Operator As AcFormatConditionOperator, [Expression1 As Variant], _
[Expression2 As Variant])

FormatConditions

 FormatCondition = FormatConditions.Add(Type As AcFormatConditionType, _         Operator As AcFormatConditionOperator, [Expression1 As Variant], _ 
[Expression2 As Variant]) FormatConditions.Delete

Hyperlink

 Hyperlink.AddToFavorites 
Hyperlink.CreateNewDocument(FileName As String, EditNow As Boolean, Overwrite As Boolean)
Hyperlink.Follow(NewWindow As Boolean, AddHistory As Boolean, ExtraInfo As Variant, _ Method As _LabelEvents, HeaderInfo As String)

Image

 Image.Requery 
Image.SetFocus
Image.SizeToFit

Label

 Label.SizeToFit 

Line

  Line  .SizeToFit 

ListBox

  ListBox  .Requery 
ListBox .SetFocus
ListBox .SizeToFit
ListBox .Undo

Module

 Module.AddFromFile(FileName As String) 
Module.AddFromString(String As String)
Integer = Module.CreateEventProc(EventName As String, ObjectName As String)
Module.DeleteLines(StartLine As Integer, Count As Integer) Boolean = Module.Find(Target As String, StartLine As Integer, StartColumn As Integer, _ EndLine As Integer, EndColumn As Integer, WholeWord As Boolean, _
MatchCase As Boolean, PatternSearch As Boolean) Module.InsertLines(Line As Integer, String As String)
Module.InsertText(Text As String) Module.ReplaceLine(Line As Integer, String As String)

ObjectFrame

 ObjectFrame.Requery 
ObjectFrame.SetFocus
ObjectFrame.SizeToFit

OptionButton

 OptionButton.Requery 
OptionButton.SetFocus
OptionButton.SizeToFit

OptionGroup

 OptionGroup.Requery 
OptionGroup.SetFocus
OptionGroup.SizeToFit
OptionGroup.Undo

Page

  Page  .Requery 
Page .SetFocus
Page .SizeToFit

PageBreak

  PageBreak  .SizeToFit 

Pages

 Page = Pages.Add([Before As Variant]) 
Pages.Remove([Item As Variant])

Rectangle

  Rectangle  .SizeToFit 

References

 Reference = References.AddFromFile(FileName As String) 
Reference = References.AddFromGuid(Guid As String, Major As Integer, Minor As Integer)
Reference = References.Item(var As Variant) References.Remove(Reference As Reference)

Report

 Report.Circle(flags As SmallInt, X As Single, Y As Single, radius As Single, _ 
color As Integer, start As Single, end As Single, aspect As Single)
Report.Line(flags As SmallInt, x1 As Single, y1 As Single, x2 As Single, y2 As Single, _
color As Integer) Report.Print(Expr As String)
Report.PSet(flags As SmallInt, X As Single, Y As Single, color As Integer)
Report.Scale(flags As SmallInt, x1 As Single, y1 As Single, x2 As Single, y2 As Single)
Single = Report.TextHeight(Expr As String) Single = Report.TextWidth(Expr As String)

SubForm

  SubForm  .Requery 
SubForm .SetFocus SubForm .SizeToFit

TabControl

  TabControl  .SizeToFit 

Textbox

  Textbox  .Requery 
Textbox .SetFocus
Textbox .SizeToFit
Textbox .Undo

ToggleButton

 ToggleButton.Requery 
ToggleButton.SetFocus
ToggleButton.SizeToFit
ToggleButton.Undo

WebOptions

  WebOptions  .UseDefaultFolderSuffix 
 
team lib


Beginning Access 2002 VBA
Beginning Access 2002 VBA (Programmer to Programmer)
ISBN: 0764544020
EAN: 2147483647
Year: 2003
Pages: 256

flylib.com © 2008-2017.
If you may any questions please contact us: flylib@qtcs.net