Access.2007.VBA.Bibl..

In a menu add-in, the function called from the add-in is preceded by an equals sign; in a wizard add-in, there is no equals sign ...

TABLE 14.5 USysRegInfo Rows Needed for a Property Builder Subkey Type ValName Value HKEY_CURRENT_ACCESS_PROFILE\Wizards\ 0 Prope ...

n An add-in can display forms, usually as unbound dialogs. Typically, all add-ins except menu add-ins use one or more forms (and ...

n Turn navigation buttons off. n If your wizard has several forms, make sure that controls used on more than one form in a serie ...

Private Sub cmdCustomBackupPath_Click() On Error GoTo ErrorHandler Dim strSelectedPath As String Create a FileDialog object as a ...

On Error Resume Next DoCmd.RunCommand acCmdSizeToFitForm On Error GoTo ErrorHandler intChoice = Nz(Me![BackupChoice], 2) Select ...

Save the user’s choice to a database property in the calling database. Set dbsCalling = CurrentDb strPropName = “BackupChoice” C ...

rst.MoveFirst rst.Edit rst![BackupChoice] = strBackupChoice rst![BackupPath] = strBackupPath rst.Update rst.Close On Error Resum ...

Copy various objects to the calling database, if they don’t already exist. These objects are needed to support the add-in’s func ...

Back up Database .................................................................................................... The Backup ...

Custom folder strBackupPath = strPath & “\” End Select Debug.Print “Backup path: “ & strBackupPath Check whether the pat ...

strProposedSaveName = strBackupPath & strSaveName Debug.Print “Backup save name: “ & strProposedSaveName strTitle = “Dat ...

Dim strFullDBName As String Dim strFileName As String Dim strFullPath() As String Dim strDBName As String Dim intUBound As Integ ...

No linked tables found. strTitle = “No back end” strPrompt = “There are no linked tables in this database; “ _ & “please use ...

Select Case strBackupChoice Case “1” Same folder as back end database strBackupPath = strBackEndDBPath Case “2” Backups folder u ...

Len(strBackEndDBName) - intExtLength) _ & “ Copy “ & BackEndSaveNo _ & “, “ & strDayPrefix & strExtension st ...

Set dbsCode = CodeDb Set dbsCalling = CurrentDb Delete old table in code database (if there is one). strTable = “zstblQueryAndFi ...

Next qdf rst.Close Copy the filled table to the calling database so it will be available for printing in the calling database: s ...

Delete the old table in code database (if there is one): strTable = “zstblTableAndFieldNames” Set tdfsCode = dbsCode.TableDefs S ...

Copy the filled table to the calling database so it will be available for printing in the calling database: strTable = “zstblTab ...