Office Systems Developer : Microsoft Access

VSTO (Access) How to Backup the Current project?

Joao Livio — Wed, 22 Apr 2009 21:40:19 GMT

Access.Application oAccess = ((Access.Application)
                (Marshal.GetActiveObject("Access.Application")));
// ----------------------------------------------------------------------------------------
// Author:                        Joao Tito Livio
// Company:                       MACL
// Assembly version:              0.0.*
// Date:                          21-04-2009
// Time:                          23:47
// Project Item Name:             M3DatabaseUtilities.cs
// Project Item Filename:         M3DatabaseUtilities.cs
// Project Item Kind:             Code
// Class FullName:                Macl.M3DatabaseUtilities
// Class Name:                    M3DatabaseUtilities
// Class Kind Description:        Class
// Class Kind Keyword:            class
// Procedure FullName:            Macl.M3DatabaseUtilities.BackupCurrentDatabase
// Procedure Name:                BackupCurrentDatabase
// Procedure Kind Description:    Function
// Procedure Kind Keyword:        
// Function Return Type Name:     Boolean
// Function Return Type FullName: System.Boolean
// Function Return Type Alias:    bool
// Purpose:                       Backup the Current database, CAN BE IN USE
// Parameters:
//    - MyDestinationpathAndFile (string)() :  Path and File (c:\backup.accdb")
// ----------------------------------------------------------------------------------------
public bool BackupCurrentDatabase(string MyDestinationpathAndFile)
{               
    try
    {
       Access.Application oAccess = ((Access.Application)
        (Marshal.GetActiveObject("Access.Application")));

        File.Copy(oAccess.CurrentProject.FullName, 
            MyDestinationpathAndFile);
        return true;                
    }
    catch (Exception)
    {
        throw;
    }
    finally
    {
        Marshal.ReleaseComObject(oAccess);
    }
}

VSTO (Access) How to execute a SQL Statement from a File?

Joao Livio — Wed, 22 Apr 2009 21:37:21 GMT

public bool ExecuteSqlFromFile(String MyConnectionString, String MyTextFilePath)
        {
            using (OleDbConnection sqlConnection = new OleDbConnection(MyConnectionString))
            {
                OleDbCommand cmd = new OleDbCommand();
                try
                {
                    using (StreamReader fh = new StreamReader(MyTextFilePath))
                    {
                        String MyText;
                        string s;
                        while ((s = fh.ReadLine()) != null)
                            MyText = s;
                        fh.Close();
                        cmd.CommandText = s;
                    }
                    cmd.CommandType = CommandType.Text;
                    cmd.Connection = sqlConnection;
                    sqlConnection.Open();
                    cmd.ExecuteNonQuery();
                    sqlConnection.Close();
                    return true;
                }
                catch (Exception)
                {
                    throw;
                }
                finally
                {
                    sqlConnection.Close();
                    cmd.Dispose();
                }
            }
        }

VSTO (Access) – How to return a RecordSet from a OleDb Provider?

Joao Livio — Wed, 22 Apr 2009 21:33:16 GMT

// ----------------------------------------------------------------------------------------
        // Author:                        Joao Tito Livio
        // Company:                       MACL
        // Assembly version:              0.0.*
        // Date:                          21-04-2009
        // Time:                          23:55
        // Project Item Name:             M3Data.cs
        // Project Item Filename:         M3Data.cs
        // Project Item Kind:             Code
        // Class FullName:                Macl.M3Data
        // Class Name:                    M3Data
        // Class Kind Description:        Class
        // Class Kind Keyword:            class
        // Procedure FullName:            Macl.M3Data.ReturnRecordset
        // Procedure Name:                ReturnRecordset
        // Procedure Kind Description:    Function
        // Procedure Kind Keyword:        
        // Function Return Type Name:     Recordset
        // Function Return Type FullName: ADODB.Recordset
        // Function Return Type Alias:    Recordset
        // Purpose:                       Return a recordset from any OleDb provider
        // Parameters:
        //    - MyConnectionString (string)()   : Connection strin for the OleDb Conenction
        //    - MyTableOrSQL (string)()         : Can be a Table or a SQL statement
        //    - MyCursorType (CursorTypeEnum)() : http://msdn.microsoft.com/en-us/library/ms677593(VS.85).aspx
        // ----------------------------------------------------------------------------------------
        public ADODB.Recordset ReturnRecordset(String MyConnectionString, String MyTableOrSQL,
                                               ADODB.CursorTypeEnum MyCursorType)
        {
            ADODB.Connection cnn = new ADODB.Connection();
            ADODB.Recordset rs = new ADODB.Recordset();
            
            try
            {
                cnn.ConnectionString = MyConnectionString;                
                cnn.Open(null, null, null, 0);
                //}                
                rs.Open(MyTableOrSQL, cnn, MyCursorType, ADODB.LockTypeEnum.adLockOptimistic, -1);
                return rs;
            }
            catch (Exception)
            {
                throw;
            }
        }

Reparar Ficheiros Office - Repair Office Files

Joao Livio — Thu, 30 Oct 2008 19:15:09 GMT

MDB, DBF, XLS, XLW and DOC Files Recover

ENGLISH

I am testing to recover files in format:

Access (MBD) - Until now 0 Offers
Dbase e FoxPro (DBF) - Until now 0 Offers
Excel (XLS e XLW) - Until now 0 Offers
Word (DOC)- Until now 0 Offers

I'am going to offer the first 3 Repairs for each format

Contact: livio@live.com.pt

PORTUGUÊS

Estou a iniciar testes para reparar ficheiros:

Access (MBD) - Até agora 0 ofertas
Dbase e FoxPro (DBF) - Até agora 0 ofertas
Excel (XLS e XLW) - Até agora 0 ofertas
Word (DOC) - Até agora 0 ofertas

Vou oferecer as primeiras 3 recuperações de cada Formato

Contacto: livio@live.com.pt

Sample Function to Translate a Access Database IDE (ADODB)

Joao Livio — Wed, 29 Oct 2008 19:11:41 GMT

Just an idea to support multilanguage IDE in a Access Database, what i do? i create a Table with the FORM NAME, CONTROL NAME and LANGUAGE, i am selectin the Language and comparing the Control Name with the Table Description, if you want you can ByVal the strLanguage = “pt-PT”, here it is my Function

Option Compare Database
 

Public Function yTranslaction(ByVal strFORM As String, _
                                               ByVal frmFORM As Form)

    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Dim ctlCONTROL As Control

    On Error GoTo erro

    strLanguage = “pt-PT”

    strSQL = “SELECT * FROM y_TRANSLACTIONS ” & _
                   “WHERE LANGUAGE =’” & strLanguage & “‘” & ” AND FORM=’” & strFORM & “‘”
    cnn.ConnectionString = CurrentProject.Connection
    cnn.Open
    rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic

    Set frmFORM = Forms(strFORM)

    With rs
        Debug.Print .RecordCount
        Do Until rs.EOF = True
            For Each ctlCONTROL In frmFORM.Controls
            If TypeOf ctlCONTROL Is Label Then
                If ctlCONTROL.Name = rs.Fields(”CONTROL”).Value Then
                    ctlCONTROL.Caption = rs.Fields(”CAPTION”).Value
                End If
            End If
            If TypeOf ctlCONTROL Is CommandButton Then
                If ctlCONTROL.Name = rs.Fields(”CONTROL”).Value Then
                    ctlCONTROL.Caption = rs.Fields(”CAPTION”).Value
                End If
            End If
        Next
        .MoveNext
        Loop
    End With

    cnn.Close
    Set rs = Nothing
    Exit Function

erro:

    MsgBox Err.Number & ” - ” & Err.Description, vbOKOnly + vbExclamation, "Erro na Rotina”
End Function

MDB Deleted Tables Recover

Joao Livio — Fri, 24 Oct 2008 08:08:00 GMT

MDBTableRecover (Version 1.0.0.2)

Feedback is welcome for erros and new features

I only support MDB (Office 11) Files in this Version, working and improving Utility

System Requirements

Windows 2000 SP4/XP (32/64 Bits)

Windows Vista (32/64 Bits)

Download

Download Utility (32/64 Bits): Here

This Utility is provided “AS-IS”. Was created by Joao Livio Microsoft MVP Office, i don’t work At or For Microsoft, please see http://mvp.support.microsoft.com/. Use it at your own Risk

Basics for Building Access 2007 Runtime-Based Solutions

Joao Livio — Tue, 04 Mar 2008 11:13:00 GMT

Basics for Building Access 2007 Runtime-Based Solutions

Summary: Find out how to prepare your application for use with the Microsoft Office Access 2007 Runtime. (6 printed pages)

Jan Fransen, A23 Consulting

Mike Stowe, Microsoft Corporation

January 2008

Applies to: Microsoft Office Access 2007, Microsoft Office Access 2007 Developer Extensions

My 2 Cents on this Article

The Access Developer Extensios Button is not visible?, if so i will suggest that you follow this Procedures before create your package KB937998

http://support.microsoft.com/kb/937998

Original Article

LINK: http://msdn2.microsoft.com/en-us/library/cc136539.aspx

Recover tables deleted from a database in Access

Joao Livio — Wed, 12 Dec 2007 10:03:00 GMT

How to recover tables deleted from a database in Access 2000, Access 2002, or Access 2003

Applies only to a Microsoft Access database (.mdb).

The following sample function will try to recover all deleted tables in an Access database. To create the sample function, follow these steps.

Note These steps assume that you are creating the sample function for...

http://support.microsoft.com/kb/209874/en-us

Training Kits Microsoft Powered in portuguese - PT Portugal Formacao Office Microsoft Powered

Joao Livio — Sun, 24 Sep 2006 15:56:00 GMT

Ajude a aumentar a segurança: Segurança no Office

Consultas II: Limitar os dados e calcular valores

Relatórios I: Apresentação dos dados

Apresentação dos controlos

Consultas I: obter respostas com consultas

Trabalhar com uma base de dados que não criou

Introdução às bases de dados

Criar um documento do Office acessível

Trabalhar com o teclado no Office

Consultas III: Criar consultas parametrizadas que solicitam a intervenção

Organizar os dados em tabelas

Os formulários são seleccionados consoante a função

Personalizar as barras de ferramentas e menus

Ajude a aumentar a segurança: Segurança no Office

Proteger documentos do Word

Criar um documento do Office acessível

Utilizar desenhos do Visio em apresentações, documentos e publicações

Preparar as férias: Escrever e enviar um boletim com o Word

Adicionar gráficos e mantê-los no local pretendido

Índice I: Criar um índice básico

Criar um destaque de documento

Utilizar impressão em série para mensagens de correio em massa e muito mais

Então é esse o segredo! Grandes funcionalidades do Word

Cabeçalhos e rodapés, simples de elaborar

Personalizar atalhos de teclado no Word

Decorar documentos com fundos, limites e efeitos de texto

Introdução ao XML no Word

Criar notas de rodapé e de fim

Formatar o documento com estilos

Apresentar o projecto no Word, PowerPoint ou Visio

Personalizar as barras de ferramentas e menus

Organizar o ClipArt e outros conteúdos multimédia

Descobrir uma calculadora mais eficiente

Então é esse o segredo! Grandes funcionalidades do Excel

Gráficos I: Como criar gráficos

Criar um documento do Office acessível

Gráficos II: Escolher o tipo de gráfico adequado

Então é esse o segredo! Trabalhar com folhas de cálculo realmente grandes

Trabalhar com o teclado no Office

Gráficos III: Criar gráficos com um aspecto profissional

Listas I: Como utilizar listas no Excel 2003

XML: De que se trata?

Listas II: Publicar listas do Excel 2003 num site do SharePoint

Utilizar fórmulas para editar, corrigir e verificar texto

Tabela Dinâmica I: O que têm os relatórios de Tabela Dinâmica de tão especial?

Tabela Dinâmica II: Entrar em acção com relatórios de Tabela Dinâmica

Criar assinaturas apelativas para as mensagens de correio electrónico

Partilhar um calendário utilizando o Outlook e o Windows SharePoint Services

Ver e partilhar vários calendários

Organizar o ClipArt e outros conteúdos multimédia

Conhecer o Visio

Formas I: Princípios básicos introdutórios sem os quais não consegue viver

O melhor modo de ligar formas em desenhos do Visio

Introdução rápida aos traçados de escritório

Uma rápida introdução a diagramas de blocos

Uma rápida introdução a organogramas

Imprimir desenhos grandes e obter os resultados pretendidos

Criar um documento do Office acessível

Utilizar desenhos do Visio em apresentações, documentos e publicações

Apresentar o projecto no Word, PowerPoint ou Visio

Personalizar as barras de ferramentas e menus

How do i connect to SQL Server within Access 2007 - Create ADP File

Joao Livio — Sun, 17 Sep 2006 16:55:00 GMT

Looks like easy, it is, but the IDE changed a lot so goes the post

1. Choose create a new Black Database

2. Click the Button Browse for Files

3. Save Your File as ADP then Connect normaly to SQL Credentials to an Existing or create a new Database

Cheers

How to Disable item (Type a Question for Help) Access Toolbar?

Joao Livio — Sun, 05 Feb 2006 15:02:00 GMT

'(c) 2005 João Tito Lívio
'This code can only be use as a part of an Application and could not be sell

Just Paste this line of Code to the MAIN form of your Project
Application.CommandBars.DisableAskAQuestionDropdown = True

Dialog Box in Microsoft Access (Find File)

Joao Livio — Sun, 20 Nov 2005 17:32:00 GMT

'(c) 2002 João Tito Lívio
'This code can only be use as a part of an Application and could not be sell

'To REQUEST a full functional sample please > Click

1. Insert a DialogBox ActiveX in your Form.

In Design View go INSERT - ActiveX CONTROL

2. Rename the control to "cdlg"

3. Paste the Code to a CLICK event of a Commad Button

CODE

    Dim strCaminho As String
    With Me.cdlg
            'Initial Directory
            .InitDir = "C:\"
            'Dialog Title
            .DialogTitle = "Localizar Arquivo"
            'Filter File Types
            .Filter = "Arquivos(*.txt)|*.txt|All Files (*.*)|*.*"
            .ShowOpen
            'Return File and Path to a Variable
            strCaminho = .FileName
    End With
    MsgBox "Path: " & strCaminho

SAMPLE

Linked Table Manager is Missing!

Joao Livio — Tue, 30 Aug 2005 21:52:00 GMT

'(c) 2005 João Tito Lívio
'This code can only be use as a part of an Application and could not be sell

Linked Table Manager is Missing!

The file acwztool.mde may be corrupted or is missing

Workaround:

1. Find file acwztool.mde an put it in the MS Access Directory

2. Try Open File maybe or is Corrupted or is from another version of Access.

Follow Steps: http://support.microsoft.com/kb/242218/en-us

How to automate with Office Assistance?

Joao Livio — Mon, 18 Apr 2005 05:31:00 GMT

'(c) 2002 João Tito Lívio
'This code can only be use as a part of an Application and could not be sell

'This method can not be USER FRENDLY, use with caution

'To REQUEST a full functional sample please > Click

modAssistancePropreties

Option Compare Database

' This class saves the Assistant's property settings when
' the class is initialized and restores those properties
' when the class is destroyed.
'
' PUBLIC PROPERTIES (all properties are read-only):
' AssistWithAlerts
' AssistWithHelp
' AssistWithWizards
' FeatureTips
' FileName
' GuessHelp
' HighPriorityTips
' KeyboardShortcutTips
' MouseTips
' MoveWhenInTheWay
' On
' SearchWhenProgramming
' Sounds
' TipOfDay
' Visible
'
' NOTE The Assistant's Reduced property can be set and changed but will have
'       no visible effect on the character.
'
' SAMPLE USAGE (from a standard module):
' Function DoSomethingWithAsst()
'   Dim objAsst As clsAssistantProperties
'
'   Set objAsst = New clsAssistantProperties
'   With Application.Assistant
'       ' Insert code here to change Assistant property settings.
'   End With
'   Set objAsst = Nothing
' End Function
'
' EXAMPLE:
' You can see an example that uses this class to save and restore
' Assistant properties in the TestSaveAssistProperties procedure in
' the modAssistantProperties module.

Option Explicit
' Private class properties used to save initial Assistant
' property settings.
Private p_blnAssistWithAlerts      As Boolean
Private p_blnAssistWithHelp        As Boolean
Private p_blnAssistWithWizards     As Boolean
Private p_blnFeatureTips           As Boolean
Private p_strFileName              As String
Private p_blnGuessHelp             As Boolean
Private p_blnHighPriorityTips      As Boolean
Private p_blnKeyboardShortcutTips As Boolean
Private p_blnMouseTips             As Boolean
Private p_blnMoveWhenInTheWay      As Boolean
Private p_blnAssistantOn           As Boolean
Private p_blnSearchWhenProgramming As Boolean
Private p_blnSounds                As Boolean
Private p_blnTipOfDay              As Boolean
Private p_blnVisible               As Boolean

Property Get AssistWithAlerts() As Boolean
AssistWithAlerts = p_blnAssistWithAlerts
End Property

Property Get AssistWithHelp() As Boolean
AssistWithHelp = p_blnAssistWithHelp
End Property

Property Get AssistWithWizards() As Boolean
AssistWithWizards = p_blnAssistWithWizards
End Property

Property Get FeatureTips() As Boolean
FeatureTips = p_blnFeatureTips
End Property

Property Get FileName() As String
FileName = p_strFileName
End Property

Property Get GuessHelp() As Boolean
GuessHelp = p_blnGuessHelp
End Property

Property Get HighPriorityTips() As Boolean
HighPriorityTips = p_blnHighPriorityTips
End Property

Property Get KeyboardShortcutTips() As Boolean
KeyboardShortcutTips = p_blnKeyboardShortcutTips
End Property

Property Get MouseTips() As Boolean
MouseTips = p_blnMouseTips
End Property

Property Get MoveWhenInTheWay() As Boolean
MoveWhenInTheWay = p_blnMoveWhenInTheWay
End Property

Property Get AssistantOn() As Boolean
AssistantOn = p_blnAssistantOn
End Property

Property Get SearchWhenProgramming() As Boolean
SearchWhenProgramming = p_blnSearchWhenProgramming
End Property

Property Get Sounds() As Boolean
Sounds = p_blnSounds
End Property

Property Get TipOfDay() As Boolean
TipOfDay = p_blnTipOfDay
End Property

Property Get Visible() As Boolean
Visible = p_blnVisible
End Property

Private Sub Class_Initialize()
    ' Save the Assistant properties in effect
    ' when this class was created.
    With Application.Assistant
        p_blnAssistWithAlerts = .AssistWithAlerts
        p_blnAssistWithHelp = .AssistWithHelp
        p_blnAssistWithWizards = .AssistWithWizards
        p_blnFeatureTips = .FeatureTips
        p_strFileName = .FileName
        p_blnGuessHelp = .GuessHelp
        p_blnHighPriorityTips = .HighPriorityTips
        p_blnKeyboardShortcutTips = .KeyboardShortcutTips
        p_blnMouseTips = .MouseTips
        p_blnMoveWhenInTheWay = .MoveWhenInTheWay
        p_blnAssistantOn = .On
        p_blnSearchWhenProgramming = .SearchWhenProgramming
        p_blnSounds = .Sounds
        p_blnTipOfDay = .TipOfDay
        p_blnVisible = .Visible
    End With
End Sub

Private Sub Class_Terminate()
    ' Restore the Assistant properties to
    ' those that were set when this class
    ' was initialized.
    With Application.Assistant
        .AssistWithAlerts = p_blnAssistWithAlerts
        .AssistWithHelp = p_blnAssistWithHelp
        .AssistWithWizards = p_blnAssistWithWizards
        .FeatureTips = p_blnFeatureTips
        .FileName = p_strFileName
        .GuessHelp = p_blnGuessHelp
        .HighPriorityTips = p_blnHighPriorityTips
        .KeyboardShortcutTips = p_blnKeyboardShortcutTips
        .MouseTips = p_blnMouseTips
        .MoveWhenInTheWay = p_blnMoveWhenInTheWay
        .On = p_blnAssistantOn
        .SearchWhenProgramming = p_blnSearchWhenProgramming
        .Sounds = p_blnSounds
        .TipOfDay = p_blnTipOfDay
        .Visible = p_blnVisible
    End With
End Sub

TimerClass

Option Explicit

Private Declare Function GetTickCount& Lib "kernel32" ()
Private p_blnTimerDone      As Boolean
Private p_lngElapsedTime    As Long
Private p_lngStartTime      As Long

Property Get TimerDone() As Boolean
TimerDone = p_blnTimerDone
End Property

Property Get ElapsedTime() As Long
ElapsedTime = p_lngElapsedTime
End Property

Public Sub StartTimer(lngInterval As Long)
    Dim lngEndTime As Long

    p_blnTimerDone = False
    p_lngStartTime = GetTickCount()
    lngEndTime = p_lngStartTime + lngInterval
    Do While GetTickCount() < lngEndTime
        DoEvents
    Loop
    p_blnTimerDone = True
    p_lngElapsedTime = p_lngStartTime + GetTickCount()
End Sub

Private Sub Class_Initialize()
p_blnTimerDone = False
p_lngElapsedTime = 0
End Sub

modAssistantTour

Option Compare Database
Option Explicit

Sub ShowAssistant()
' This procedure will show the Assistant.

    With Application.Assistant
        If Not .On Then
            .On = True
        ElseIf Not .Visible Then
            .Visible = True
        End If
    End With
End Sub

Sub BalloonLabelControls()
    ' This procedure illustrates how to work
    ' with Balloon object properties and methods
    ' and how to use label controls. The procedure
    ' also shows how to use the return value of the
    ' show method to determine the value selected
    ' by the user.
    Dim balBalloon As Balloon
    Dim intRetVal   As Integer
    Dim strChoice   As String

    Set balBalloon = Assistant.NewBalloon
    Assistant.Visible = True
    With balBalloon
        .Button = msoButtonSetNone
        .Heading = "Balloon Object Example One"
        .Labels(1).Text = "VBA is a powerful programming language."
        .Labels(2).Text = "Office is a great development environment."
        .Labels(3).Text = "The Assistant is cool!"
        .Labels(4).Text = "Balloon objects are easy to use."
        .Text = "Select one of the following " _
            & .Labels.Count & " options:"
        ' Show the balloon.
        intRetVal = .Show

        ' Save the selection made by the user.
        If intRetVal > 0 Then
            strChoice = "{cf 4}" & .Labels(intRetVal).Text & "{cf 0}"
        Else
            strChoice = ""
        End If
    End With

    Set balBalloon = Assistant.NewBalloon
    With balBalloon
        .Text = "You selected option " & CStr(intRetVal) & ": '" _
            & strChoice & "'"
        .Show
    End With

End Sub

Sub BalloonCheckboxControls()
    ' This procedure illustrates how to work
    ' with Balloon object properties and methods
    ' and how to use checkbox controls. The procedure
    ' also shows how to use the return value of the
    ' show method to determine the value selected
    ' by the user.
    Dim balBalloon As Balloon
    Dim intRetVal   As Integer
    Dim strChoice   As String
    Dim chkBox      As BalloonCheckbox

    Set balBalloon = Assistant.NewBalloon
    Assistant.Visible = True
    With balBalloon
        .Button = msoButtonSetOK
        .Heading = "Balloon Object Example Two"
        .Text = "How many of the following " _
            & .Checkboxes.Count & " statements do you agree with?"
        .Checkboxes(1).Text = "VBA is a powerful programming language."
        .Checkboxes(2).Text = "Office is a great development environment."
        .Checkboxes(3).Text = "The Assistant is cool!"
        .Checkboxes(4).Text = "Balloon objects are easy to use."
        ' Save the selection made by the user.
        intRetVal = .Show
        ' Construct the string to display to the user based on the
        ' user's selections.
        For Each chkBox In .Checkboxes
            If chkBox.Checked = True Then
                strChoice = strChoice & "{cf 4}" & chkBox.Text & "{cf 0}" & "' and '"
            End If
        Next chkBox
        ' Remove the trailing "' and '" from strChoice.
        If Len(strChoice) <> 0 Then
            strChoice = Left(strChoice, Len(strChoice) - 7)
        End If
    End With

    ' Create new Balloon object and display the user's choices.
    Set balBalloon = Assistant.NewBalloon
    With balBalloon
        If intRetVal > 0 Or Len(strChoice) > 0 Then
            .Text = "You selected '" & strChoice & "'."
        Else
            .Text = "You didn't make a selection."
        End If
        .Show
    End With
End Sub

Form Code

Option Compare Database

Option Explicit

' Create a global object variable used to store the original
' Office Assistant's properties when the form opens.
Public gclsAsstProps As clsAssistantProperties

' Location of Assistant files.
Const ASSISTANT_PATH As String = "c:\program files\microsoft office\office\"

Private Sub cboAnimations_AfterUpdate()
    If Assistant.Visible = False Then
        Call ShowAssistant
    End If
    Assistant.Animation = Me!cboAnimations.Value
End Sub

Private Sub cboCharacter_AfterUpdate()
    With Assistant
        If InStr(.FileName, cboCharacter.Value) = 0 Then
            .Animation = msoAnimationDisappear
            ' Call the Wait procedure to give the
            ' animation 1 second to finish.
            Wait
            .FileName = ASSISTANT_PATH & Me.cboCharacter.Value
        End If
    End With
    UpdateCaption Me!lblFileName
    ShowAssistant
End Sub

Private Sub cmdShowBalloon_Click()
    ' This procedure is called from the Show Balloon
    ' button on the View Balloon tab of the Assistant form.
    Dim balBalloon      As Balloon
    Dim intRetVal       As Integer
    Dim intI            As Integer
    Dim strChoice       As String
    Dim blnAsstVisible As Boolean

    On Error GoTo ShowBalloon_Err

    ' Set Balloon object variable.
    Set balBalloon = Assistant.NewBalloon

    ' Make sure the Assistant is visible.
    If Assistant.Visible = False Then
        Call ShowAssistant
    End If

    ' Determine the button style selected by the user.
    Select Case Me!ctlOptionStyle
        Case 1      ' Label button style.
            With balBalloon
                .Button = msoButtonSetNone
                .Heading = Me!txtBalloonHeading
                .Labels(1).Text = Me!txtOption1
                .Labels(2).Text = Me!txtOption2
                .Labels(3).Text = Me!txtOption3
                .Labels(4).Text = Me!txtOption4
                .Text = "Which of the following " _
                    & .Labels.Count & " choices apply to you?"
                ' Save the selection made by the user.
                intRetVal = .Show
                If intRetVal > 0 Then
                    strChoice = "{cf 4}" & .Labels(intRetVal).Text & "{cf 0}"
                Else
                    strChoice = ""
                End If
            End With
        Case 2      ' Check box button style.
            With balBalloon
                .Button = msoButtonSetOK
                .Heading = Me!txtBalloonHeading
                .Checkboxes(1).Text = Me!txtOption1
                .Checkboxes(2).Text = Me!txtOption2
                .Checkboxes(3).Text = Me!txtOption3
                .Checkboxes(4).Text = Me!txtOption4
                .Text = "Which of the following " _
                    & .Checkboxes.Count & " choices apply to you?"
                ' Save the selection made by the user.
                intRetVal = .Show
                ' Construct the string to display to the user based on the
                ' user's selections.
                For intI = 1 To .Checkboxes.Count
                    If .Checkboxes(intI).Checked = True Then
                        strChoice = strChoice & "{cf 4}" & .Checkboxes(intI).Text & "{cf 0}" & "' and '"
                    End If
                Next intI
                ' Remove the trailing "' and '" from strChoice.
                If Len(strChoice) <> 0 Then
                    strChoice = Left(strChoice, Len(strChoice) - 7)
                End If
            End With
    End Select

    ' Create new Balloon object and display the user's choices.
    Set balBalloon = Assistant.NewBalloon
        With balBalloon
            If intRetVal > 0 Or Len(strChoice) > 0 Then
                .Text = "You selected '" & strChoice & "'"
            Else
                .Text = "You didn't make a selection."
            End If
        .Show
        End With

ShowBalloon_End:
    Exit Sub
ShowBalloon_Err:
    MsgBox Err.Description
    Resume ShowBalloon_End
End Sub

Private Sub Form_Open(Cancel As Integer)
    ' This procedure locates Assistant files and
    ' fills a combo box with the names of the
    ' Assistant files on this system.
    Dim strCharacterFiles   As String
    Dim intCurrFile         As Integer
    Dim intDirPath          As Integer

    Set gclsAsstProps = New clsAssistantProperties

    ' Use FileSearch Object to load Assistant combo box.
    With Application.FileSearch
        .NewSearch
        .FileName = "*.acs"
        .LookIn = ASSISTANT_PATH
        intDirPath = Len(ASSISTANT_PATH)
        .SearchSubFolders = False
        If .Execute > 0 Then
            For intCurrFile = 1 To .FoundFiles.Count
                strCharacterFiles = strCharacterFiles & Mid$(.FoundFiles(intCurrFile), intDirPath + 1) & ";"
            Next intCurrFile
            strCharacterFiles = Left(strCharacterFiles, Len(strCharacterFiles) - 1)
        Else
            MsgBox "No Assistant files (*.acs) located in the '" & .LookIn & "' directory."
        End If
        With Me!cboCharacter
            .RowSource = strCharacterFiles
            .Value = Mid$(Assistant.FileName, intDirPath + 1)
        End With
        UpdateCaption Me!lblFileName
    End With

    ShowAssistant

    With Assistant
        .Left = 500
        .Top = 200
    End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ' Restore the Assistant properties to those
    ' that were in effect when this form was
    ' loaded.
    Set gclsAsstProps = Nothing
End Sub
Sub UpdateCaption(ctl As Control)
    ' Update the label caption using the selected assistant name.
    ctl.Caption = "Animation for: '" & Assistant.Item & "'"
End Sub
Sub Wait(Optional lngDuration As Long = 1000)
    ' This procedure is called after an Assistant Animation
    ' property setting is specified and is designed to give the
    ' animation time to complete. The procedure waits the number
    ' of milliseconds sepecified in the lngDuration argument.
    ' The default is 1 second.
    Dim clsTimer As TimerClass

    Set clsTimer = New TimerClass

    With clsTimer
        .StartTimer lngDuration
        Do Until .TimerDone = True
            DoEvents
        Loop
    End With

    Set clsTimer = Nothing
End Sub

How to use "Like" in SQL Access to find Costumers in a Form (TextBox and a ListBox)

Joao Livio — Mon, 18 Apr 2005 05:10:00 GMT

'(c) 2003 João Tito Lívio
'This code can only be use as a part of an Application and could not be sell

'To REQUEST a full functional sample please > Click

SQL

Using an SQL Querie

SELECT Customers.CompanyName, Customers.ContactName, Customers.ContactTitle
FROM Customers
WHERE (((Customers.CompanyName) Like "*" & [Forms]![Form1]![Text0] & "*"));

Using in JET (VBE)

Dim StrSql As String

StrSql = "SELECT Customers.CompanyName, Customers.ContactName, Customers.ContactTitle " & _
"FROM Customers " & _
"WHERE Customers.CompanyName Like & '"*" & Me.Text0 & "*"'

How to Disable (F11 key) Shortcut to database Window?

Joao Livio — Sun, 17 Apr 2005 07:13:00 GMT

'(c) 2005 João Tito Lívio 
'This code can only be use as a part of an Application and could not be sell

'TIP: Use code in the Autoexec Macro

'USAGE: If DisableSpecialKeys = True then MsgBox"OK"

 'To REQUEST a full functional sample please > Click

Option Compare Database

Public Function DisableSpecialKeys() As Boolean
On Error GoTo Err_DisableSpecialKeys

Dim db As Database
Dim Prop As Property
Const conPropNotFound = 3270

Set db = CurrentDb()
db.Properties("AllowSpecialKeys") = False
Set db = Nothing

DisableSpecialKeys = True

Exit_DisableSpecialKeys:
    Exit Function

Err_DisableSpecialKeys:
    If Err = conPropNotFound Then
        'If the property doesn't exist, create it
        Set Prop = db.CreateProperty("AllowSpecialKeys", dbBoolean, True)
        db.Properties.Append Prop
        Resume Next
    Else
        MsgBox "Disable did not Work!!"
        DisableSpecialKeys = False
        Resume Exit_DisableSpecialKeys
    End If

End Function