Access.2007.VBA.Bibl..

VBScript (VBS), don’t support named constants, so you need to use the numeric values instead, for example when writing Outlook V ...

Dim strValue As String Dim strPrompt As String Dim strTitle As String Set dbs = CurrentDb Set rst = dbs.OpenRecordset(Name:=”tbl ...

FindNext, FindPrevious); unlike the Seekmethod for table-type dynasets, you don’t need to set an index, and you can search for a ...

strPrompt = “The last Company ID for “ & strValue _ & “ is “ & rst![CompanyID] strTitle = “Search succeeded” MsgBox ...

Forward-only Forward-only recordsets are similar to snapshot-type recordsets, except that you only move through the records in a ...

.MoveFirst .MoveLast CreateAndTestQuery = .RecordCount End With ErrorHandlerExit: Exit Function ErrorHandler: If Err.Number = 30 ...

Argument names are inconsistently capitalized in VBA code. Regardless of how you type them in, when your cursor leaves the line ...

Dim strDBName As String Dim strDBNameAndPath As String Dim strPrompt As String Dim strTitle As String Dim strTable As String Dim ...

.Fields.Append fld Set fld = .CreateField(Name:=”Department”, _ Type:=dbText, Size:=14) .Fields.Append fld Set fld = .CreateFiel ...

Here is the list of tables as printed to the Immediate window by the NewTableprocedure: MSysAccessStorage MSysACEs MSysComplexCo ...

The ADO Object Model .......................................................................................... The ADO object m ...

The syntax for creating a connection to the current database is simple: Dim cnn As ADODB.Connection Set cnn = CurrentProject.Con ...

Need to specify the Jet 4.0 provider for connecting to Access .mdb format databases. With cnn .Provider = “Microsoft.Jet.OLEDB.4 ...

If Not cnn Is Nothing Then If cnn.State = adStateOpen Then cnn.Close Set cnn = Nothing End If End If Exit Sub ErrorHandler: MsgB ...

Attempt to find the database, and put up a message if it is not found. Set fil = fso.GetFile(strDBNameAndPath) If fil Is Nothing ...

strLockType = Switch(rst.LockType = _ adLockOptimistic, _ “Optimistic (“ & adLockOptimistic & “)”, _ rst.LockType = adLo ...

ErrorHandler: MsgBox “Error No: “ & Err.Number _ & “; Description: “ & Err.Description Resume ErrorHandlerExit End S ...

Close the Recordset and Connection objects. If Not rst Is Nothing Then If rst.State = adStateOpen Then rst.Close Set rst = Nothi ...

TABLE 5.5 ADO Recordset Lock Type Named Arguments Lock Type Named Constant Numeric Value Read-only adLockReadOnly 1 Optimistic a ...

Attempt to find the database, and put up a message if it is not found. Set fil = fso.GetFile(strDBNameAndPath) If fil Is Nothing ...