Visual Basic para aplicativos no Microsoft Access

Introdução

Conteúdo

• Eventos no Microsoft Access
• Exemplo de código VBA:garantindo que os nomes estejam em maiúsculas e minúsculas
• A linguagem VBA – Declarando e Atribuindo a Variáveis, Declarações Condicionais e Comentários
• A linguagem VBA – funções, métodos e exemplos
• A linguagem VBA – Propriedades
• Exercícios de codificação VBA
• Como lidar com erros no VBA
• Executando consultas SQL personalizadas no VBA

Eventos no Microsoft Access

Exemplo de código VBA:garantindo que os nomes estejam em maiúsculas e minúsculas

1. Abra a entrada de dados do cliente no modo de design.
2. Clique com o botão direito do mouse no Nome caixa de texto e selecione Propriedades no menu pop-up.
3. Quando a Folha de propriedades for exibido, clique na guia Evento. Isso é mostrado na figura abaixo:
   Observe a lista de eventos que são exibidos. Cada um pode ser programado para responder ao evento específico que acontece com o FirstName caixa de texto.
4. Crie um novo manipulador de eventos clicando nos três pontos à direita do evento Após a atualização.
5. O Escolher construtor janela aparecerá. Selecione Construtor de código e clique em OK botão.
6. A janela de edição de código VBA será exibida. Observe que o Access já criou o stub da sub-rotina que começa com as palavras Private Sub e termina com as palavras End Sub.
   O nome da sub-rotina é criado usando o nome do controle de formulários (FirstName) e o nome do Evento ao qual esta sub-rotina responderá (AfterUpdate).
   
   A linha End Sub é onde esta sub-rotina em particular terminará.
   
   
7. Adicione o seguinte código na linha vazia entre Private Sub e End Sub.:

   FirstName = StrConv(FirstName, vbProperCase)
   
   

   
   Depois de concluído, o código aparecerá da seguinte forma:
   
   
   
   Esta nova linha de código faz o seguinte:
   
   StrConv é uma função que recebe o conteúdo da caixa de texto FirstName e o converte de acordo com o segundo parâmetro fornecido, que é vbProperCase neste exemplo. Depois que essa conversão for feita, o resultado será atribuído (usando o sinal de igual) de volta à caixa de texto FirstName. Isso substituirá qualquer coisa que esteja atualmente na caixa de texto FirstName. Por exemplo, esta função pegará “sally”, converterá para “Sally” e então colocará “Sally” na caixa de texto FirstName.
8. Salve este novo código puxando para baixo o Arquivo menu e selecionando Salvar .
9. Teste o novo código. Volte para a tela do modo de design do Microsoft Access. Altere a visualização para Visualização de formulário.
10. Navegue até um registro vazio. Clique no campo FirstName e digite um nome em todas as letras minúsculas:
    
    
    
11. Pressione a guia para mover para a próxima caixa de texto. O nome de Joe deve ser alterado para “Joe” conforme mostrado abaixo:
12. Se você receber um erro, volte para o editor de código VBA e certifique-se de ter escrito todas as partes do código corretamente. Pode ser necessário baixar o Executar menu e selecione Redefinir para interromper a execução do código VBA.

A linguagem VBA

Declarando variáveis

Atribuindo valores

Declarações Condicionais

If AccountBalance < 1000 Then
      MonthlyFee = 10
Else
      MonthlyFee = 0
End If

If AccountBalance < 1000 AND AccountAge > 12 Then
      MonthlyFee = 10
Else
      MonthlyFee = 0
End If

Comentários

Linguagem VBA – Continuação

Funções

Métodos

Exemplos

If AccountBalance < 1000 Then
      MsgBox("Warning: The Account Balance is now less than $1,000.")
End If

If Not IsNull( [FirstName] ) Then
   FirstName = StrConv( [FirstName], vbProperCase )
End If

Propriedades

Exercícios de código VBA

Exercício 1

Exercício 2

Exercício 3

Como lidar com erros no VBA

Private Sub FirstName_AfterUpdate
     ' Subroutine to convert the FirstName of the customer to Proper Case
    On Error Goto FirstName_AfterUpdate_Error_Handler
     FirstName = StrConv(FirstName, vbProperCase)
     ' If the conversion was successful, exit this subroutine
     Exit Sub
FirstName_AfterUpdate_Error_Handler:
       ' If there is an error show the description of the error
      MsgBox Err.Description
      ' Resume with the next statement In the subroutine
     Resume Next
End Sub

Executando consultas SQL personalizadas no VBA

SELECT customerid, firstname, lastname
FROM  customer

Private Sub CustomerID_DblClick(Cancel As Integer)

End Sub

Private Sub CustomerID_DblClick(Cancel As Integer)
    ' Create a new CustomerID when user double-clicks in the CustomerID field
    On Error GoTo ErrorHandler
    Dim rstResults As Recordset ' This will hold the set of result records
    Dim strSQL As String        ' This variable will hold the text of the SQL Statement
    ' If there is nothing in the CustomerID text box
    If IsNull(CustomerID) Then
       ' Make the SQL statement
       strSQL = "SELECT MAX(customerid) + 1 AS NewID FROM customer"
       ' Run the SQL query against the current database
       Set rstResults = CurrentDb.OpenRecordset(strSQL)
       ' If at least 1 record is returned
       If rstResults.EOF = False Then
          ' Assign the NewID to the CustomerID field
          CustomerID = rstResults!NewID
       End If

        rstResults.Close              ' Close up the result set
       Set rstResults = Nothing      ' Empty out the result set
    End If
    Exit Sub

ErrorHandler:
    Set rstResults = Nothing
End Sub