resumo:
Este tutorial ajuda você a orientar as ferramentas deprogramação, ou seja, o código VBA no Microsoft Access e aponta para recursos Alguns Onde você pode aprender mais sobre programação.
Você deve ter usado as macros do Access e é mais trabalhoso trabalhar com ele … … não é ? Mas você sabe como simplificar essa complexidade apenas fazendo uso de códigos VBA no Access.
O que é o código VBA? Bem, para obter respostas a estas perguntas, você só precisa colocar as mãos no MS Access.
Introdução para acessar o VBA
VBA é uma linguagem de programação que você pode usar para criar aplicativos poderosos no Access. O VBA inclui um grande número de variáveis que você pode usar para acessar macros.
Não só isso, mas também o uso de controles de terceiros e escrever suas próprias funções / procedimentos para necessidades específicas específicas. Você também pode usar o código VBA para integrar seu acesso a outros programas também.
Programar o Microsoft Access com o VBA pode ser mais fácil se você souber o teclado para os comandos mais comuns e os bits de código mais comuns em seu aplicativo.
[ cta-pt-729 ]
Como ativar as funções Built-In no Access VBA
Você sabe que pode ativar as funções incorporadas do VBA em seu aplicativo Access 2013/2016. Quer saber como seguir estas instruções passo a passo.
Para usar as funções incorporadas do VBA em seu acesso banco de dados , você precisará ativar a referência básica visual chamada “Visual Basic for Applications”.
- Para isso, você só precisa abrir o banco de dados.imprensa Alt + F11 para abrir o Microsoft Visual Basic Quando a janela do Microsoft Visual Basic aparecer, selecione referências no menu Ferramentas .
- Quando ajanela References aparece, procure a referência chamado Expirado Visual Basic for Applications e verifique se ele está marcado.
- Após o clique no botão OK.
- Agora seu banco de dados de acesso é capaz de usar as funções VBA internas.
Código de programação e depuração de acesso comum
Aqui está a lista de código VBA comum que ajuda você a executar a tarefa do VBA concluída, portanto, mantenha-a à mão.
Para abrir um formulário na exibição de formulário:
DoCmd.OpenForm “formname“,acNormal
Para fazer alterações no formulário de propriedade em um formulário aberto:
Forms![formName].propertyName = newValue
Obter valor de um controle em um formulário aberto:
Forms![formName]![controlName].Value
Alterar o valor de um controle em um formulário aberto:
Forms![formName]![controlName].Value = newValue
Altere uma propriedade de controle em um formulário aberto:
Forms![formName]![controlName].propertyName = newValue
Feche um formulário, salvando as alterações:
DoCmd.Close acForm, “formName“, acSaveYes
Imprima um relatório:
DoCmd.OpenReport “reportName“, acViewNormal
Execute uma consulta de ação:
DoCmd.RunSQL “SQLstatement“
Para exibir uma mensagem simples
MsgBox “yourMessage“
Para fazer perguntas sim / não na tela.
variable = MsgBox(“yourMessage“, vbQuestion + vbYesNo)
LEIA TAMBÉM
Como corrigir MS Access Reservado Erro 7713, 7748, 7711 No Access 2016 / 2013/2010/2007
Navegando e selecionando o código no Vba
Você pode usar esses atalhos do VBA na janela de código e na janela imediata para simplificar seu estilo de trabalho.
ação | Tecla de atalho |
Mover o cursor para a direita um caractere | → |
Selecione o personagem para a direita | Shift + → |
Mover o cursor para a direita uma palavra | Ctrl + → |
Selecione para o final da palavra | Ctrl + Shift + → |
Mover o cursor para a esquerda de um caractere | ← |
Selecione o caractere à esquerda do cursor | Shift + ← |
Mover o cursor para a esquerda de uma palavra | Ctrl + ← |
Mover o cursor para a linha inicial | casa |
Selecione o texto para começar a linha | Shift + Início |
Mover o cursor para o final da linha | final |
Selecione o texto no final da linha | Shift + End |
Mover o cursor para cima de uma linha | ↑ |
Mover o cursor para baixo de uma linha | ↓ |
Mover o cursor para o próximo procedimento | Ctrl + ↓ |
Mover o cursor para o procedimento anterior | Ctrl + ↑ |
Rolar para cima uma tela | PgUp |
Rolar para baixo uma tela | PgDn |
Ir para o topo do módulo | Ctrl + Home |
Selecione todo o texto na parte superior do módulo | Ctrl + Shift + Home |
Ir para o final do módulo | Ctrl + End |
Selecione todo o texto para a parte inferior do módulo | Ctrl + Shift + End |
Corte de seleção | Ctrl + X |
Copiar seleção | Ctrl + C |
Colar a seleção | Ctrl + V |
Cortar linha atual para a área de transferência | Ctrl + Y |
Excluir até o final da palavra | Ctrl + Delete |
Excluir caractere ou texto selecionado | Excluir (Del) |
Apagar caractere à esquerda do cursor | retrocesso |
Excluir até o final da palavra | Ctrl + Delete |
Excluir para o início da palavra | Ctrl + Backspace |
desfazer | Ctrl + Z |
Linha de recuo | aba |
Linha Outdent | Shift + Tab |
encontrar | Ctrl + F |
substituir | Ctrl + H |
Encontre o próximo | F3 |
Encontre Anterior | Shift + F3 |
Obter ajuda com a palavra atualmente selecionada | F1 |
Informação Rápida | Ctrl + I |
Teclas de Atalho do Editor Geral do VBA
A tabela a seguir lhe dará o conhecimento das teclas de atalho e suas funções em todo o editor do Visual Basic, onde você irá gravar, modificar e executar seu código VBA.
ação | Tecla de atalho |
Alternar entre o Access e o editor do VBA | Alt + F11 |
ajudar | F1 |
Visualizar Navegador de Objetos | F2 |
Ver propriedades / eventos | F4 |
Ver janela de código | F7 |
Ver janela imediata | Ctrl + L |
Visualizar menu de atalho | Shift + F10 (ou clique com o botão direito) |
Executar um Sub / UserForm | F5 |
Parar a execução do código | Ctrl + Break |
Feche o Editor VBA e retorne ao Access | Alt + Q |
Teclas de atalho de depuração do VBA
Código em linguagem de programação tem que ser exatamente, não pode haver erros ou erros. Se houver algum erro ou erro, ele mostrará o problema de compilação. Felizmente, você pode depurar o código VBA rapidamente com esses atalhos de depuração.
ação | Tecla de atalho |
Alternar ponto de interrupção | F9 |
Entre em | F8 |
Passar por cima | Shift + F8 |
Sair | Ctrl + Shift + F8 |
Corra para o cursor | Ctrl + F8 |
Limpar todos os pontos de interrupção | Ctrl + F9 |
Código de acesso importante do VBA junto com os exemplos
ChangeLinkPath
Esta função é usada principalmente para alterar o caminho para um novo caminho. A função faz isso soltando as tabelas e liberando-as para a tabela no novo caminho.
Public Function ChangeLinkPath ( strNewPath As String) Como String
dbs Dim DAO.Database
Dim strTblName As String
Coleção Dim ColTbl As
Dim IntTbl As IntegerSe strNewPath <> “” E Dir ( strNewPath ) <> “” Então
Set colTbl = nova coleção
Definir dbs = CurrentDbPara intTbl = dbs.TableDefs.Count – 1 TB 0 Etapa -1
Se dbs.TableDefs ( intTbl ) .Connect <> “” E _
Não dbs.TableDefs ( intTbl ) .Connect Like “*” & strNewPath Then
colTbl.Add dbs.TableDefs ( intTbl ).
dbs.TableDefs.Delete dbs.TableDefs ( intTbl ).
End If
Próxima intTblPara intTbl = colTbl.Count para 1 passo -1
strTblName = colTbl ( intTbl )
DoCmd.TransferDatabase acLink , “Microsoft Access”, _
strNewPath , acTable , strTblName , strTblName
Debug.Print “conexão feita para” “& strTblName &” ‘”
Próxima intTblSet dbs = Nothing
Set colTbl = Nothing
Debug.Print “FEITO!”
ChangeLinkPath = “FEITO!”mais
Debug.Print “Novas alterações não fornecidas.
ChangeLinkPath = “Novo caminho não fornecido.End If
Sair da função
Função final
ImportExportSpecification
Esta seção do Access VBA contém documentação para todos os objetos, propriedades, métodos e eventos no modelo de objeto de acesso.
ImportExportSpecification objeto contém todas as informações que acessa precisa repetir uma importação / exportação
Você tem que usar o adicionar método do ImportExportSpecifications coleção para criar um novo ImportExportSpecification objeto. Use obotão Executar método para executar a operação de importação ou exportação salva.
LEIA TAMBÉM:
Como corrigir o Access Formulários e Relatórios Não Mostrando Imagem Emitir
ConcatenateFieldValues
Bem, essa função é baseada em um nome de função concatenado. Ele é usado para criar uma string concatenada a partir de um único campo de valores.
Os registros a serem incluídos, mais o campo a ser usado para a seqüência de caracteres concatenada, são fornecidos pela instrução SQL que é passada para a função.
Instrução SQL passada deve retornar apenas um campo para que essa função funcione corretamente. O valor na string concatenada é fornecido pela string fornecida à função como uma string delimitadora.
Public Function ConcatenateFieldValues ( pstrSQL As String, _
Opcional pstrDelim As String = “,”) As StringDim strcat Como string
‘====== Para ADO como as próximas 2 linhas e =======
‘====== descomente as linhas ADO abaixo =======
Dim db As DAO.Database
Dim rs As DAO.Recordset
On Error Resume Next
strConcat = “”
‘====== Para ADO como você sai 2 linhas DAO e =======
‘====== descomentar linhas ADO abaixo =======
Definir db = CurrentDb
Definir rs = db.OpenRecordset ( pstrSQL )‘====== Para ADO, remova as próximas duas linhas e =====
‘====== como sobre as linhas DAO acima e abaixo ======
‘Dim rs As New ADODB.Recordset
‘ rs.Abra pstrSQL , CurrentProject.Connection , _
‘ adOpenKeyset , adLockOptimistic
Com rs
Se não .EOF então
. MoveFirst
Do While Not .EOF
strConcat = strConcat & .Fields (0) & pstrDelim
. MoveNext
laço
End If
.Fechar
Fim com
Set rs = Nothing
‘====== Como as próximas 2 linhas para o ADO ========
db.Close
Set db = Nothing
Se Len ( strConcat )> 0 Então strConcat = _
Esquerda ( strConcat , Len ( strConcat ) – Len ( pstrDelim ))
ConcatenateFieldValues = strConcat
Sair da função
Função final
DeleteAllRelationships ()
Função DeleteAllRelationships ( ) Basicamente código é usado para apagar todos os relacionamentos no banco de dados atual.
Em algumas circunstâncias, o banco de dados de acesso não exibe relações entre tabelas na janela de relacionamento. Desde que você não podia ver o relacionamento nem você não foi possível excluí-los, o que levaria você a um estado inconsistente. Portanto, para esses casos, esse código é fornecido como uma correção.
Função DeleteAllRelationships ( ) Como String
‘AVISO: Exclui todos os relacionamentos no banco de dados atual.
Banco de dados Dim DB ‘Current DB
Dim rex Como Relacionamentos de currentDB .
Rel Rel Dim Relacionamento ‘sendo excluído.
Dim iKt As Integer ‘Contagem de relações excluídas.
Dim sMsg As String ‘ MsgBox string.sMsg = “Sobre para excluir TODAS as relações entre tabelas no banco de dados atual.” & vbCrLf & “Continuar?”
Se MsgBox ( sMsg , vbQuestion + vbYesNo + vbDefaultButton2, “Tem certeza?”) = VbNo Then
DeleteAllRelationships = “Operação cancelada”
Sair da função
End IfDefinir db = CurrentDb ( )
Definir rex = db.Relations
iKt = rex.Count
Do while rex.Count > 0
Debug.Print rex (0).
rex.Delete rex (0).
laço
DeleteAllRelationships = iKt & “relacionamento (s) excluídos”
Função finalBasta copiar e colar essa função em um módulo. Pressione Ctrl + G para abrir a janela imediata. digite:
? DeleteAllRelationships ()
conclusão:
Espero que você tenha obtido muito conhecimento sobre o código Access VBA. EXPLORE SUAS IDEIAS NA PROGRAMAÇÃO COM ACESSO ….!
[ cta-pt-729 ]