{"id":536,"date":"2018-04-10T07:01:38","date_gmt":"2018-04-10T07:01:38","guid":{"rendered":"http:\/\/pt.accessrepairnrecovery.com\/blog\/?p=536"},"modified":"2021-10-21T07:21:35","modified_gmt":"2021-10-21T07:21:35","slug":"codigo-de-ms-access-vba","status":"publish","type":"post","link":"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba","title":{"rendered":"Saiba tudo sobre o c\u00f3digo de MS Access VBA &#8211; Fun\u00e7\u00f5es VBA, atalhos e muito mais &#8230;!"},"content":{"rendered":"<div class=\"61a7eaf49d266b7aad494940042015c0\" data-index=\"1\" style=\"float: none; margin:0px 0 0px 0; text-align:center;\">\n<style>\r\n.leaderboard { width: 320px; height: 100px; }\r\n@media(min-width: 500px) { .leaderboard { width: 468px; height: 60px; } }\r\n@media(min-width: 800px) { .leaderboard { width: 728px; height: 90px; } }\r\n<\/style>\r\n<script async src=\"https:\/\/pagead2.googlesyndication.com\/pagead\/js\/adsbygoogle.js?client=ca-pub-8329139124199643\" crossorigin=\"anonymous\"><\/script>\r\n<ins class=\"adsbygoogle leaderboard\"\r\n     style=\"display:inline-block\"\r\n\t data-full-width-responsive=\"true\"\r\n     data-ad-client=\"ca-pub-8329139124199643\"\r\n     data-ad-slot=\"1972481166\"><\/ins>\r\n<script>\r\n     (adsbygoogle = window.adsbygoogle || []).push({});\r\n<\/script>\n<\/div>\n<blockquote>\n<p style=\"text-align: justify;\"><strong><em>resumo:<\/em><\/strong><\/p>\n<p style=\"text-align: justify;\"><strong><em>Este tutorial ajuda voc\u00ea a orientar as ferramentas de<\/em><\/strong><strong><em>programa\u00e7\u00e3o,\u00a0ou seja,\u00a0o c\u00f3digo VBA no Microsoft Access e aponta para recursos Alguns Onde voc\u00ea pode aprender mais sobre programa\u00e7\u00e3o.<\/em><\/strong><\/p>\n<\/blockquote>\n<p><!--more--><\/p>\n<p style=\"text-align: justify;\">Voc\u00ea deve ter usado as macros do Access e \u00e9 mais trabalhoso trabalhar\u00a0com ele &#8230; &#8230;\u00a0<em>n\u00e3o<\/em>\u00a0<em>\u00e9<\/em>\u00a0?\u00a0Mas voc\u00ea sabe como simplificar essa complexidade apenas fazendo uso de c\u00f3digos VBA no Access.<\/p>\n<p style=\"text-align: justify;\">O que \u00e9 o c\u00f3digo VBA?\u00a0Bem, para obter respostas a estas perguntas, voc\u00ea s\u00f3 precisa colocar as m\u00e3os no MS Access.<\/p>\n<h3 style=\"text-align: justify;\"><strong>Introdu\u00e7\u00e3o<\/strong>\u00a0<strong>para<\/strong>\u00a0<strong>acessar o VBA<\/strong><\/h3>\n<p style=\"text-align: justify;\">VBA \u00e9 uma linguagem de programa\u00e7\u00e3o que voc\u00ea pode usar para criar aplicativos poderosos no Access.\u00a0O VBA inclui um grande n\u00famero de vari\u00e1veis \u200b\u200bque voc\u00ea pode usar para acessar macros.<\/p>\n<p style=\"text-align: justify;\">N\u00e3o s\u00f3 isso, mas tamb\u00e9m o uso de controles de terceiros e escrever suas pr\u00f3prias fun\u00e7\u00f5es \/ procedimentos para necessidades espec\u00edficas espec\u00edficas.\u00a0Voc\u00ea tamb\u00e9m pode usar o c\u00f3digo VBA para integrar seu acesso a outros programas tamb\u00e9m.<\/p>\n<p style=\"text-align: justify;\"><strong><u>Programar o Microsoft Access com o VBA<\/u><\/strong>\u00a0pode ser mais f\u00e1cil se voc\u00ea souber o teclado para os comandos mais comuns e os bits de c\u00f3digo mais comuns em seu aplicativo.<\/p>\n<p style=\"text-align: justify;\">[\u00a0cta-pt-729\u00a0]\n<h3 style=\"text-align: justify;\"><strong>Como<\/strong>\u00a0<strong>ativar as fun\u00e7\u00f5es Built-In no Access VBA<\/strong><\/h3>\n<p style=\"text-align: justify;\">Voc\u00ea sabe que pode ativar as fun\u00e7\u00f5es incorporadas do VBA em seu aplicativo Access 2013\/2016.\u00a0\u00a0\u00a0Quer saber como seguir estas instru\u00e7\u00f5es passo a passo.<\/p>\n<p style=\"text-align: justify;\">Para usar as fun\u00e7\u00f5es incorporadas do VBA em seu acesso\u00a0\u00a0\u00a0banco de\u00a0dados\u00a0, voc\u00ea precisar\u00e1 ativar a refer\u00eancia b\u00e1sica visual chamada &#8220;Visual Basic for Applications&#8221;.<\/p>\n<ul style=\"text-align: justify;\">\n<li>Para isso, voc\u00ea s\u00f3 precisa abrir o banco de dados.imprensa\u00a0\u00a0\u00a0Alt + F11 para abrir o\u00a0\u00a0\u00a0<em>Microsoft Visual<\/em>\u00a0<em>Basic<\/em>\u00a0\u00a0\u00a0Quando\u00a0a\u00a0<strong>janela<\/strong>\u00a0do\u00a0<strong><em>Microsoft Visual Basic<\/em><\/strong>\u00a0aparecer, selecione\u00a0<strong>refer\u00eancias<\/strong>\u00a0no\u00a0menu\u00a0<strong>Ferramentas<\/strong>\u00a0.<\/li>\n<li>Quando ajanela\u00a0<em>References<\/em>\u00a0aparece, procure a refer\u00eancia chamado Expirado\u00a0\u00a0\u00a0<strong>Visual Basic for Applications<\/strong>\u00a0\u00a0\u00a0e verifique se ele est\u00e1 marcado.<\/li>\n<li>Ap\u00f3s o clique no bot\u00e3o OK.<\/li>\n<li>Agora seu banco de dados de acesso \u00e9 capaz de usar as fun\u00e7\u00f5es VBA internas.<\/li>\n<\/ul>\n<h2 style=\"text-align: justify;\"><span style=\"text-decoration: underline;\"><strong>C\u00f3digo de<\/strong>\u00a0<strong>programa\u00e7\u00e3o<\/strong>\u00a0<strong>e<\/strong>\u00a0<strong>depura\u00e7\u00e3o de<\/strong>\u00a0<strong>acesso comum<\/strong><\/span><\/h2>\n<p style=\"text-align: justify;\">Aqui est\u00e1 a lista de c\u00f3digo VBA comum que ajuda voc\u00ea a executar a tarefa do VBA conclu\u00edda, portanto, mantenha-a \u00e0 m\u00e3o.<\/p>\n<p style=\"text-align: justify;\"><strong>Para abrir um formul\u00e1rio na exibi\u00e7\u00e3o de formul\u00e1rio:<\/strong><\/p>\n<p style=\"text-align: justify;\">DoCmd.OpenForm &#8220;<em>formname<\/em>&#8220;,acNormal<\/p>\n<h3 style=\"text-align: justify;\"><strong>Para fazer altera\u00e7\u00f5es no formul\u00e1rio de propriedade em um formul\u00e1rio aberto:<\/strong><\/h3>\n<p style=\"text-align: justify;\">Forms![<em>formName<\/em>].<em>propertyName<\/em> = <em>newValue<\/em><\/p>\n<p style=\"text-align: justify;\"><strong>Obter valor de um controle em um formul\u00e1rio aberto:<\/strong><\/p>\n<p style=\"text-align: justify;\">Forms![<em>formName<\/em>]![<em>controlName<\/em>].Value<\/p>\n<p style=\"text-align: justify;\"><strong>Alterar o valor de um controle em um formul\u00e1rio aberto:<\/strong><\/p>\n<p style=\"text-align: justify;\">Forms![<em>formName<\/em>]![<em>controlName<\/em>].Value = <em>newValue<\/em><\/p>\n<p style=\"text-align: justify;\"><strong>Altere uma propriedade de controle em um formul\u00e1rio aberto:<\/strong><\/p>\n<p style=\"text-align: justify;\">Forms![<em>formName<\/em>]![<em>controlName<\/em>].<em>propertyName<\/em> = <em>newValue<\/em><\/p>\n<p style=\"text-align: justify;\"><strong>Feche um formul\u00e1rio, salvando as altera\u00e7\u00f5es:<\/strong><\/p>\n<p style=\"text-align: justify;\">DoCmd.Close acForm, &#8220;<em>formName<\/em>&#8220;, acSaveYes<\/p>\n<p style=\"text-align: justify;\"><strong>Imprima um relat\u00f3rio:<\/strong><\/p>\n<p style=\"text-align: justify;\">DoCmd.OpenReport &#8220;<em>reportName<\/em>&#8220;, acViewNormal<\/p>\n<p style=\"text-align: justify;\"><strong>Execute uma consulta de a\u00e7\u00e3o:<\/strong><\/p>\n<p style=\"text-align: justify;\">DoCmd.RunSQL &#8220;<em>SQLstatement<\/em>&#8220;<\/p>\n<p style=\"text-align: justify;\"><strong>Para exibir uma mensagem simples<\/strong><\/p>\n<p style=\"text-align: justify;\">MsgBox &#8220;<em>yourMessage<\/em>&#8220;<\/p>\n<p style=\"text-align: justify;\"><strong>Para fazer perguntas sim \/ n\u00e3o na tela.<\/strong><\/p>\n<p style=\"text-align: justify;\"><em>variable <\/em>= MsgBox(&#8220;<em>yourMessage<\/em>&#8220;, vbQuestion + vbYesNo)<\/p>\n<blockquote>\n<p style=\"text-align: center;\"><em><strong>LEIA TAMB\u00c9M<\/strong><\/em><\/p>\n<p style=\"text-align: center;\"><a href=\"http:\/\/pt.accessrepairnrecovery.com\/blog\/corrigir-access-reservado-erro-7713-7748-7711\"><strong>Como<\/strong>\u00a0<strong>corrigir MS Access Reservado Erro 7713, 7748, 7711 No Access 2016 \/ 2013\/2010\/2007<\/strong><\/a><\/p>\n<\/blockquote>\n<h3 style=\"text-align: justify;\"><strong>Navegando<\/strong>\u00a0<strong>e<\/strong>\u00a0<strong>selecionando o c\u00f3digo no<\/strong>\u00a0<strong>Vba<\/strong><\/h3>\n<p style=\"text-align: justify;\">Voc\u00ea pode usar esses atalhos do VBA na janela de c\u00f3digo e na janela imediata para simplificar seu estilo de trabalho.<\/p>\n<table width=\"419\">\n<tbody>\n<tr>\n<td><strong>a\u00e7\u00e3o<\/strong><\/td>\n<td><strong>Tecla de atalho<\/strong><\/td>\n<\/tr>\n<tr>\n<td>Mover o cursor para a direita um caractere<\/td>\n<td>\u2192<\/td>\n<\/tr>\n<tr>\n<td>Selecione o personagem para a direita<\/td>\n<td>Shift + \u2192<\/td>\n<\/tr>\n<tr>\n<td>Mover o cursor para a direita uma palavra<\/td>\n<td>Ctrl + \u2192<\/td>\n<\/tr>\n<tr>\n<td>Selecione para o final da palavra<\/td>\n<td>Ctrl + Shift + \u2192<\/td>\n<\/tr>\n<tr>\n<td>Mover o cursor para a esquerda de um caractere<\/td>\n<td>\u2190<\/td>\n<\/tr>\n<tr>\n<td>Selecione o caractere \u00e0 esquerda do cursor<\/td>\n<td>Shift + \u2190<\/td>\n<\/tr>\n<tr>\n<td>Mover o cursor para a esquerda de uma palavra<\/td>\n<td>Ctrl + \u2190<\/td>\n<\/tr>\n<tr>\n<td>Mover o cursor para a linha inicial<\/td>\n<td>casa<\/td>\n<\/tr>\n<tr>\n<td>Selecione o texto para come\u00e7ar a linha<\/td>\n<td>Shift + In\u00edcio<\/td>\n<\/tr>\n<tr>\n<td>Mover o cursor para o final da linha<\/td>\n<td>final<\/td>\n<\/tr>\n<tr>\n<td>Selecione o texto no final da linha<\/td>\n<td>Shift + End<\/td>\n<\/tr>\n<tr>\n<td>Mover o cursor para cima de uma linha<\/td>\n<td>\u2191<\/td>\n<\/tr>\n<tr>\n<td>Mover o cursor para baixo de uma linha<\/td>\n<td>\u2193<\/td>\n<\/tr>\n<tr>\n<td>Mover o cursor para o pr\u00f3ximo procedimento<\/td>\n<td>Ctrl + \u2193<\/td>\n<\/tr>\n<tr>\n<td>Mover o cursor para o procedimento anterior<\/td>\n<td>Ctrl + \u2191<\/td>\n<\/tr>\n<tr>\n<td>Rolar para cima uma tela<\/td>\n<td>PgUp<\/td>\n<\/tr>\n<tr>\n<td>Rolar para baixo uma tela<\/td>\n<td>PgDn<\/td>\n<\/tr>\n<tr>\n<td>Ir para o topo do m\u00f3dulo<\/td>\n<td>Ctrl + Home<\/td>\n<\/tr>\n<tr>\n<td>Selecione todo o texto na parte superior do m\u00f3dulo<\/td>\n<td>Ctrl +\u00a0Shift + Home<\/td>\n<\/tr>\n<tr>\n<td>Ir para o final do m\u00f3dulo<\/td>\n<td>Ctrl + End<\/td>\n<\/tr>\n<tr>\n<td>Selecione todo o texto para a parte inferior do m\u00f3dulo<\/td>\n<td>Ctrl +\u00a0Shift + End<\/td>\n<\/tr>\n<tr>\n<td>Corte de sele\u00e7\u00e3o<\/td>\n<td>Ctrl + X<\/td>\n<\/tr>\n<tr>\n<td>Copiar sele\u00e7\u00e3o<\/td>\n<td>Ctrl + C<\/td>\n<\/tr>\n<tr>\n<td>Colar a sele\u00e7\u00e3o<\/td>\n<td>Ctrl + V<\/td>\n<\/tr>\n<tr>\n<td>Cortar linha atual para a \u00e1rea de transfer\u00eancia<\/td>\n<td>Ctrl + Y<\/td>\n<\/tr>\n<tr>\n<td>Excluir at\u00e9 o final da palavra<\/td>\n<td>Ctrl + Delete<\/td>\n<\/tr>\n<tr>\n<td>Excluir caractere ou texto selecionado<\/td>\n<td>Excluir (Del)<\/td>\n<\/tr>\n<tr>\n<td>Apagar caractere \u00e0 esquerda do cursor<\/td>\n<td>retrocesso<\/td>\n<\/tr>\n<tr>\n<td>Excluir at\u00e9 o final da palavra<\/td>\n<td>Ctrl + Delete<\/td>\n<\/tr>\n<tr>\n<td>Excluir para o in\u00edcio da palavra<\/td>\n<td>Ctrl + Backspace<\/td>\n<\/tr>\n<tr>\n<td>desfazer<\/td>\n<td>Ctrl + Z<\/td>\n<\/tr>\n<tr>\n<td>Linha de recuo<\/td>\n<td>aba<\/td>\n<\/tr>\n<tr>\n<td>Linha\u00a0Outdent<\/td>\n<td>Shift + Tab<\/td>\n<\/tr>\n<tr>\n<td>encontrar<\/td>\n<td>Ctrl + F<\/td>\n<\/tr>\n<tr>\n<td>substituir<\/td>\n<td>Ctrl + H<\/td>\n<\/tr>\n<tr>\n<td>Encontre o pr\u00f3ximo<\/td>\n<td>F3<\/td>\n<\/tr>\n<tr>\n<td>Encontre Anterior<\/td>\n<td>Shift + F3<\/td>\n<\/tr>\n<tr>\n<td>Obter ajuda com a palavra atualmente selecionada<\/td>\n<td>F1<\/td>\n<\/tr>\n<tr>\n<td>Informa\u00e7\u00e3o R\u00e1pida<\/td>\n<td>Ctrl + I<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<h3 style=\"text-align: justify;\"><strong>Teclas de Atalho do Editor Geral do VBA<\/strong><\/h3>\n<p style=\"text-align: justify;\">A tabela a seguir lhe dar\u00e1 o conhecimento das teclas de atalho e suas fun\u00e7\u00f5es em todo o editor do Visual Basic, onde voc\u00ea ir\u00e1\u00a0gravar,\u00a0modificar e executar seu c\u00f3digo VBA.<\/p>\n<table width=\"419\">\n<tbody>\n<tr>\n<td><strong>a\u00e7\u00e3o<\/strong><\/td>\n<td><strong>Tecla de atalho<\/strong><\/td>\n<\/tr>\n<tr>\n<td>Alternar entre o Access e o editor do VBA<\/td>\n<td>Alt + F11<\/td>\n<\/tr>\n<tr>\n<td>ajudar<\/td>\n<td>F1<\/td>\n<\/tr>\n<tr>\n<td>Visualizar Navegador de Objetos<\/td>\n<td>F2<\/td>\n<\/tr>\n<tr>\n<td>Ver propriedades \/ eventos<\/td>\n<td>F4<\/td>\n<\/tr>\n<tr>\n<td>Ver janela de c\u00f3digo<\/td>\n<td>F7<\/td>\n<\/tr>\n<tr>\n<td>Ver janela imediata<\/td>\n<td>Ctrl + L<\/td>\n<\/tr>\n<tr>\n<td>Visualizar menu de atalho<\/td>\n<td>Shift + F10 (ou clique com o bot\u00e3o direito)<\/td>\n<\/tr>\n<tr>\n<td>Executar um Sub \/\u00a0UserForm<\/td>\n<td>F5<\/td>\n<\/tr>\n<tr>\n<td>Parar a execu\u00e7\u00e3o do c\u00f3digo<\/td>\n<td>Ctrl + Break<\/td>\n<\/tr>\n<tr>\n<td>Feche o Editor VBA e retorne ao Access<\/td>\n<td>Alt + Q<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<h3 style=\"text-align: justify;\"><strong>Teclas de atalho de depura\u00e7\u00e3o do VBA<\/strong><\/h3>\n<p style=\"text-align: justify;\">C\u00f3digo em linguagem de programa\u00e7\u00e3o tem que ser exatamente, n\u00e3o pode haver erros ou erros.\u00a0Se houver algum erro ou erro, ele mostrar\u00e1 o problema de compila\u00e7\u00e3o.\u00a0Felizmente, voc\u00ea pode depurar o c\u00f3digo VBA rapidamente com esses atalhos de depura\u00e7\u00e3o.<\/p>\n<table width=\"419\">\n<tbody>\n<tr>\n<td><strong>a\u00e7\u00e3o<\/strong><\/td>\n<td><strong>Tecla de atalho<\/strong><\/td>\n<\/tr>\n<tr>\n<td>Alternar ponto de interrup\u00e7\u00e3o<\/td>\n<td>F9<\/td>\n<\/tr>\n<tr>\n<td>Entre em<\/td>\n<td>F8<\/td>\n<\/tr>\n<tr>\n<td>Passar por cima<\/td>\n<td>Shift + F8<\/td>\n<\/tr>\n<tr>\n<td>Sair<\/td>\n<td>Ctrl + Shift + F8<\/td>\n<\/tr>\n<tr>\n<td>Corra para o cursor<\/td>\n<td>Ctrl + F8<\/td>\n<\/tr>\n<tr>\n<td>Limpar todos os pontos de interrup\u00e7\u00e3o<\/td>\n<td>Ctrl + F9<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<h2 style=\"text-align: center;\"><strong><u>C\u00f3digo de acesso importante do VBA junto com os exemplos<\/u><\/strong><\/h2>\n<h3 style=\"text-align: justify;\"><strong><u>ChangeLinkPath<\/u><\/strong><\/h3>\n<p style=\"text-align: justify;\">Esta fun\u00e7\u00e3o \u00e9 usada principalmente para alterar o caminho para um novo caminho.\u00a0A fun\u00e7\u00e3o faz isso soltando as tabelas e\u00a0liberando-as\u00a0para a tabela no novo caminho.<\/p>\n<blockquote><p><em>Public Function<\/em>\u00a0<em>ChangeLinkPath<\/em>\u00a0<em>(<\/em>\u00a0<em>strNewPath<\/em>\u00a0<em>As String) Como String<\/em>\u00a0<em>\u00a0<\/em><\/p>\n<p><em>dbs<\/em>\u00a0<em>Dim<\/em>\u00a0<em>DAO.Database<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>Dim<\/em>\u00a0<em>strTblName<\/em>\u00a0<em>As String<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>Cole\u00e7\u00e3o<\/em>\u00a0<em>Dim<\/em>\u00a0<em>ColTbl<\/em>\u00a0<em>As<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>Dim<\/em>\u00a0<em>IntTbl<\/em>\u00a0<em>As Integer<\/em>\u00a0<em>\u00a0<\/em><\/p>\n<p><em>Se<\/em>\u00a0<em>strNewPath<\/em>\u00a0<em>&lt;&gt; &#8220;&#8221; E<\/em>\u00a0<em>Dir (<\/em>\u00a0<em>strNewPath<\/em>\u00a0<em>) &lt;&gt; &#8220;&#8221; Ent\u00e3o<\/em><\/p>\n<p><em>\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>Set<\/em>\u00a0<em>colTbl<\/em>\u00a0<em>= nova cole\u00e7\u00e3o<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>Definir<\/em>\u00a0<em>dbs<\/em>\u00a0<em>=<\/em>\u00a0<em>CurrentDb<\/em>\u00a0<em>\u00a0<\/em><\/p>\n<p><em>\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>Para<\/em>\u00a0<em>intTbl<\/em>\u00a0<em>=<\/em>\u00a0<em>dbs.TableDefs.Count<\/em>\u00a0<em>&#8211; 1 TB 0 Etapa -1<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>Se<\/em>\u00a0<em>dbs.TableDefs<\/em>\u00a0<em>(<\/em>\u00a0<em>intTbl<\/em>\u00a0<em>)<\/em>\u00a0<em>.Connect<\/em>\u00a0<em>&lt;&gt; &#8220;&#8221; E _<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>N\u00e3o<\/em>\u00a0<em>dbs.TableDefs<\/em>\u00a0<em>(<\/em>\u00a0<em>intTbl<\/em>\u00a0<em>)<\/em>\u00a0<em>.Connect<\/em>\u00a0<em>Like &#8220;*&#8221; &amp;<\/em>\u00a0<em>strNewPath<\/em>\u00a0<em>Then<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0colTbl.Add<\/em>\u00a0<em>dbs.TableDefs<\/em>\u00a0<em>(<\/em>\u00a0<em>intTbl<\/em>\u00a0<em>).<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0dbs.TableDefs.Delete<\/em>\u00a0<em>dbs.TableDefs<\/em>\u00a0<em>(<\/em>\u00a0<em>intTbl<\/em>\u00a0<em>).<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>End If<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>Pr\u00f3xima<\/em>\u00a0<em>intTbl<\/em>\u00a0<em>\u00a0<\/em><\/p>\n<p><em>\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>Para<\/em>\u00a0<em>intTbl<\/em>\u00a0<em>=<\/em>\u00a0<em>colTbl.Count<\/em>\u00a0<em>para 1 passo -1<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0strTblName<\/em>\u00a0<em>=<\/em>\u00a0<em>colTbl<\/em>\u00a0<em>(<\/em>\u00a0<em>intTbl<\/em>\u00a0<em>)<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DoCmd.TransferDatabase<\/em>\u00a0<em>acLink<\/em>\u00a0<em>, &#8220;Microsoft Access&#8221;, _<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0strNewPath<\/em>\u00a0<em>,<\/em>\u00a0<em>acTable<\/em>\u00a0<em>,<\/em>\u00a0<em>strTblName<\/em>\u00a0<em>,<\/em>\u00a0<em>strTblName<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Debug.Print<\/em>\u00a0<em>&#8220;conex\u00e3o feita para&#8221; &#8220;&amp;<\/em>\u00a0<em>strTblName<\/em>\u00a0<em>&amp;&#8221; &#8216;&#8221;<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>Pr\u00f3xima<\/em>\u00a0<em>intTbl<\/em>\u00a0<em>\u00a0<\/em><\/p>\n<p><em>\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>Set<\/em>\u00a0<em>dbs<\/em>\u00a0<em>= Nothing<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>Set<\/em>\u00a0<em>colTbl<\/em>\u00a0<em>= Nothing<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Debug.Print<\/em>\u00a0<em>&#8220;FEITO!&#8221;<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0ChangeLinkPath<\/em>\u00a0<em>= &#8220;FEITO!&#8221;<\/em>\u00a0<em>\u00a0<\/em><\/p>\n<p><em>mais<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Debug.Print<\/em>\u00a0<em>&#8220;Novas<\/em>\u00a0<em>altera\u00e7\u00f5es<\/em>\u00a0<em>n\u00e3o fornecidas.<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0ChangeLinkPath<\/em>\u00a0<em>= &#8220;Novo caminho n\u00e3o fornecido.<\/em><\/p>\n<p><em>End If<\/em><\/p>\n<p><em>Sair da fun\u00e7\u00e3o<\/em>\u00a0<em>\u00a0<\/em><br \/>\n<em>Fun\u00e7\u00e3o final<\/em><\/p><\/blockquote>\n<h3 style=\"text-align: justify;\"><strong>ImportExportSpecification<\/strong><\/h3>\n<p style=\"text-align: justify;\">Esta se\u00e7\u00e3o do Access VBA cont\u00e9m documenta\u00e7\u00e3o para todos os objetos, propriedades, m\u00e9todos e eventos no modelo de objeto de acesso.<\/p>\n<p style=\"text-align: justify;\"><strong>ImportExportSpecification<\/strong>\u00a0\u00a0\u00a0objeto cont\u00e9m todas as informa\u00e7\u00f5es que acessa precisa repetir uma importa\u00e7\u00e3o \/ exporta\u00e7\u00e3o<\/p>\n<p style=\"text-align: justify;\">Voc\u00ea tem que usar o\u00a0\u00a0\u00a0<strong>adicionar<\/strong>\u00a0\u00a0\u00a0m\u00e9todo do\u00a0\u00a0\u00a0<strong>ImportExportSpecifications<\/strong>\u00a0\u00a0\u00a0cole\u00e7\u00e3o para criar um novo\u00a0\u00a0\u00a0<strong>ImportExportSpecification<\/strong>\u00a0\u00a0\u00a0objeto.\u00a0Use o<strong>bot\u00e3o Executar<\/strong>\u00a0\u00a0\u00a0m\u00e9todo para executar a opera\u00e7\u00e3o de importa\u00e7\u00e3o ou exporta\u00e7\u00e3o salva.<\/p>\n<blockquote>\n<p style=\"text-align: center;\"><strong>LEIA TAMB\u00c9M:<\/strong><\/p>\n<p style=\"text-align: center;\"><strong><a class=\"row-title\" href=\"http:\/\/pt.accessrepairnrecovery.com\/blog\/corrigir-o-access-formularios-e-relatorios-nao-mostrando-imagem\" aria-label=\"\u201cComo corrigir o Access Formul\u00e1rios e Relat\u00f3rios N\u00e3o Mostrando Imagem Emitir\u201d (Edit)\">Como corrigir o Access Formul\u00e1rios e Relat\u00f3rios N\u00e3o Mostrando Imagem Emitir<\/a><\/strong><\/p>\n<\/blockquote>\n<h3 style=\"text-align: justify;\"><strong><u>ConcatenateFieldValues<\/u><\/strong><\/h3>\n<p style=\"text-align: justify;\">Bem, essa fun\u00e7\u00e3o \u00e9 baseada em um nome de fun\u00e7\u00e3o concatenado.\u00a0Ele \u00e9 usado para criar uma string concatenada a partir de um \u00fanico campo de valores.<\/p>\n<p style=\"text-align: justify;\">Os registros a serem inclu\u00eddos, mais o campo a ser usado para a seq\u00fc\u00eancia de caracteres concatenada, s\u00e3o fornecidos pela instru\u00e7\u00e3o SQL que \u00e9 passada para a fun\u00e7\u00e3o.<\/p>\n<p style=\"text-align: justify;\">Instru\u00e7\u00e3o SQL passada deve retornar apenas um campo para que essa fun\u00e7\u00e3o funcione corretamente.\u00a0O valor na string concatenada \u00e9 fornecido pela string fornecida \u00e0 fun\u00e7\u00e3o como uma string delimitadora.<\/p>\n<blockquote><p><em>Public Function<\/em>\u00a0<em>ConcatenateFieldValues<\/em>\u00a0<em>(<\/em>\u00a0<em>pstrSQL<\/em>\u00a0<em>As String, _<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>Opcional<\/em>\u00a0<em>pstrDelim<\/em>\u00a0<em>As String = &#8220;,&#8221;) As String<\/em><\/p>\n<p><em>Dim<\/em>\u00a0<em>strcat<\/em>\u00a0<em>Como<\/em>\u00a0<em>string<\/em><\/p>\n<p><em>&#8216;====== Para ADO como as pr\u00f3ximas 2 linhas e =======<\/em><br \/>\n<em>&#8216;====== descomente as linhas ADO abaixo =======<\/em><br \/>\n<em>Dim db As<\/em>\u00a0<em>DAO.Database<\/em><br \/>\n<em>Dim<\/em>\u00a0<em>rs<\/em>\u00a0<em>As<\/em>\u00a0<em>DAO.Recordset<\/em><br \/>\n<em>On Error Resume Next<\/em><br \/>\n<em>strConcat<\/em>\u00a0<em>= &#8220;&#8221;<\/em><br \/>\n<em>&#8216;====== Para ADO como voc\u00ea sai 2 linhas DAO e =======<\/em><br \/>\n<em>&#8216;====== descomentar linhas ADO abaixo =======<\/em><br \/>\n<em>Definir db =<\/em>\u00a0<em>CurrentDb<\/em><br \/>\n<em>Definir<\/em>\u00a0<em>rs<\/em>\u00a0<em>=<\/em>\u00a0<em>db.OpenRecordset<\/em>\u00a0<em>(<\/em>\u00a0<em>pstrSQL<\/em>\u00a0<em>)<\/em><\/p>\n<p><em>&#8216;====== Para ADO, remova as pr\u00f3ximas duas linhas e =====<\/em><br \/>\n<em>&#8216;====== como sobre as linhas DAO acima e abaixo ======<\/em><br \/>\n<em>&#8216;Dim<\/em>\u00a0<em>rs<\/em>\u00a0<em>As New<\/em>\u00a0<em>ADODB.Recordset<\/em><br \/>\n<em>&#8216;<\/em>\u00a0<em>rs.Abra<\/em>\u00a0<em>pstrSQL<\/em>\u00a0<em>,<\/em>\u00a0<em>CurrentProject.Connection<\/em>\u00a0<em>, _<\/em><br \/>\n<em>&#8216;<\/em>\u00a0<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0adOpenKeyset<\/em>\u00a0<em>,<\/em>\u00a0<em>adLockOptimistic<\/em><br \/>\n<em>Com<\/em>\u00a0<em>rs<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>Se n\u00e3o .EOF ent\u00e3o<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>.<\/em>\u00a0<em>MoveFirst<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>Do While Not .EOF<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0strConcat<\/em>\u00a0<em>=<\/em>\u00a0<em>strConcat<\/em>\u00a0<em>&amp; .Fields (0) &amp;<\/em>\u00a0<em>pstrDelim<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>.<\/em>\u00a0<em>MoveNext<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>la\u00e7o<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>End If<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>.Fechar<\/em><br \/>\n<em>Fim com<\/em><br \/>\n<em>Set<\/em>\u00a0<em>rs<\/em>\u00a0<em>= Nothing<\/em><br \/>\n<em>&#8216;====== Como as pr\u00f3ximas 2 linhas para o ADO ========<\/em><br \/>\n<em>db.Close<\/em><br \/>\n<em>Set db = Nothing<\/em><br \/>\n<em>Se Len (<\/em>\u00a0<em>strConcat<\/em>\u00a0<em>)&gt; 0 Ent\u00e3o<\/em>\u00a0<em>strConcat<\/em>\u00a0<em>= _<\/em><br \/>\n<em>\u00a0\u00a0\u00a0\u00a0\u00a0<\/em>\u00a0<em>Esquerda (<\/em>\u00a0<em>strConcat<\/em>\u00a0<em>, Len (<\/em>\u00a0<em>strConcat<\/em>\u00a0<em>) &#8211; Len (<\/em>\u00a0<em>pstrDelim<\/em>\u00a0<em>))<\/em><br \/>\n<em>ConcatenateFieldValues<\/em>\u00a0<em>=<\/em>\u00a0<em>strConcat<\/em><br \/>\n<em>Sair da fun\u00e7\u00e3o<\/em><br \/>\n<em>Fun\u00e7\u00e3o final<\/em><\/p><\/blockquote>\n<p style=\"text-align: justify;\"><strong><em>DeleteAllRelationships<\/em><\/strong>\u00a0<strong><em>()<\/em><\/strong><\/p>\n<p style=\"text-align: justify;\">Fun\u00e7\u00e3o\u00a0<strong><em>DeleteAllRelationships<\/em><\/strong>\u00a0<strong><em>(<\/em><\/strong>\u00a0<strong><em>)<\/em><\/strong>\u00a0<em>\u00a0<\/em>\u00a0Basicamente c\u00f3digo \u00e9 usado para\u00a0<strong>apagar todos os relacionamentos<\/strong>\u00a0no banco de dados atual.<\/p>\n<p style=\"text-align: justify;\">Em algumas circunst\u00e2ncias, o banco de dados de acesso n\u00e3o exibe rela\u00e7\u00f5es entre tabelas na janela de relacionamento.\u00a0Desde que voc\u00ea n\u00e3o podia ver o relacionamento nem voc\u00ea\u00a0\u00a0\u00a0n\u00e3o foi\u00a0poss\u00edvel\u00a0exclu\u00ed-los, o que levaria voc\u00ea a um estado inconsistente.\u00a0Portanto, para esses\u00a0casos,\u00a0esse c\u00f3digo \u00e9 fornecido como uma corre\u00e7\u00e3o.<\/p>\n<blockquote><p><em>Fun\u00e7\u00e3o<\/em>\u00a0<em>DeleteAllRelationships<\/em>\u00a0<em>(<\/em>\u00a0<em>) Como String<\/em><br \/>\n<em>&#8216;AVISO: Exclui todos os relacionamentos no banco de dados atual.<\/em><br \/>\n<em>Banco de dados Dim DB &#8216;Current DB<\/em><br \/>\n<em>Dim<\/em>\u00a0<em>rex<\/em>\u00a0<em>Como Relacionamentos de<\/em>\u00a0<em>currentDB<\/em>\u00a0<em>.<\/em><br \/>\n<em>Rel<\/em>\u00a0<em>Rel<\/em>\u00a0<em>Dim<\/em>\u00a0<em>Relacionamento &#8216;sendo exclu\u00eddo.<\/em><br \/>\n<em>Dim<\/em>\u00a0<em>iKt<\/em>\u00a0<em>As Integer &#8216;Contagem de rela\u00e7\u00f5es exclu\u00eddas.<\/em><br \/>\n<em>Dim<\/em>\u00a0<em>sMsg<\/em>\u00a0<em>As String &#8216;<\/em>\u00a0<em>MsgBox<\/em>\u00a0<em>string.<\/em><\/p>\n<p><em>sMsg<\/em>\u00a0<em>= &#8220;Sobre para excluir TODAS as rela\u00e7\u00f5es entre tabelas no banco de dados atual.&#8221;<\/em>\u00a0<em>&amp;<\/em>\u00a0<em>vbCrLf<\/em>\u00a0<em>&amp; &#8220;Continuar?&#8221;<\/em><br \/>\n<em>Se<\/em>\u00a0<em>MsgBox<\/em>\u00a0<em>(<\/em>\u00a0<em>sMsg<\/em>\u00a0<em>,<\/em>\u00a0<em>vbQuestion<\/em>\u00a0<em>+<\/em>\u00a0<em>vbYesNo<\/em>\u00a0<em>+ vbDefaultButton2, &#8220;Tem certeza?&#8221;) =<\/em>\u00a0<em>VbNo<\/em>\u00a0<em>Then<\/em><br \/>\n<em>DeleteAllRelationships<\/em>\u00a0<em>= &#8220;Opera\u00e7\u00e3o cancelada&#8221;<\/em><br \/>\n<em>Sair da fun\u00e7\u00e3o<\/em><br \/>\n<em>End If<\/em><\/p>\n<p><em>Definir db =<\/em>\u00a0<em>CurrentDb<\/em>\u00a0<em>(<\/em>\u00a0<em>)<\/em><br \/>\n<em>Definir<\/em>\u00a0<em>rex<\/em>\u00a0<em>=<\/em>\u00a0<em>db.Relations<\/em><br \/>\n<em>iKt<\/em>\u00a0<em>=<\/em>\u00a0<em>rex.Count<\/em><br \/>\n<em>Do<\/em>\u00a0<em>while rex.Count<\/em>\u00a0<em>&gt; 0<\/em><br \/>\n<em>Debug.Print<\/em>\u00a0<em>rex<\/em>\u00a0<em>(0).<\/em><br \/>\n<em>rex.Delete<\/em>\u00a0<em>rex<\/em>\u00a0<em>(0).<\/em><br \/>\n<em>la\u00e7o<\/em><br \/>\n<em>DeleteAllRelationships<\/em>\u00a0<em>=<\/em>\u00a0<em>iKt<\/em>\u00a0<em>&amp; &#8220;relacionamento (s) exclu\u00eddos&#8221;<\/em><br \/>\n<em>Fun\u00e7\u00e3o final<\/em><\/p>\n<p>Basta copiar e colar essa fun\u00e7\u00e3o em um m\u00f3dulo.\u00a0Pressione\u00a0Ctrl + G\u00a0para abrir a janela imediata.\u00a0digite:<\/p>\n<p><em>?<\/em>\u00a0<em>DeleteAllRelationships<\/em>\u00a0<em>()<\/em><\/p><\/blockquote>\n<p style=\"text-align: justify;\"><strong>conclus\u00e3o:<\/strong><\/p>\n<p style=\"text-align: justify;\">Espero que voc\u00ea tenha obtido muito conhecimento sobre o c\u00f3digo Access VBA.\u00a0EXPLORE SUAS IDEIAS NA PROGRAMA\u00c7\u00c3O COM ACESSO &#8230;.!<\/p>\n<p style=\"text-align: justify;\">[\u00a0cta-pt-729\u00a0]\n\n<div style=\"font-size: 0px; height: 0px; line-height: 0px; margin: 0; padding: 0; clear: both;\"><\/div>","protected":false},"excerpt":{"rendered":"<p>resumo: Este tutorial ajuda voc\u00ea a orientar as ferramentas deprograma\u00e7\u00e3o,\u00a0ou seja,\u00a0o c\u00f3digo VBA no Microsoft Access e aponta para recursos &#8230; <\/p>\n<p class=\"read-more-container\"><a title=\"Saiba tudo sobre o c\u00f3digo de MS Access VBA &#8211; Fun\u00e7\u00f5es VBA, atalhos e muito mais &#8230;!\" class=\"read-more button\" href=\"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba#more-536\" aria-label=\"Read more about Saiba tudo sobre o c\u00f3digo de MS Access VBA &#8211; Fun\u00e7\u00f5es VBA, atalhos e muito mais &#8230;!\">Read more<\/a><\/p>\n","protected":false},"author":2,"featured_media":541,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1448],"tags":[425,427,426,428,429],"class_list":["post-536","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-tutoriais","tag-acessar-codigo-vba","tag-acesse-o-codigo-de-programacao-vba","tag-acesse-o-codigo-vba-com-o-exemplo","tag-codigo-do-microsoft-access-vba","tag-ms-access-functions","resize-featured-image"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v27.4 - https:\/\/yoast.com\/product\/yoast-seo-wordpress\/ -->\n<title>Saiba tudo sobre o c\u00f3digo de MS Access VBA - Fun\u00e7\u00f5es VBA, atalhos e muito mais ...!<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Saiba tudo sobre o c\u00f3digo de MS Access VBA - Fun\u00e7\u00f5es VBA, atalhos e muito mais ...!\" \/>\n<meta property=\"og:description\" content=\"resumo: Este tutorial ajuda voc\u00ea a orientar as ferramentas deprograma\u00e7\u00e3o,\u00a0ou seja,\u00a0o c\u00f3digo VBA no Microsoft Access e aponta para recursos ... Read more\" \/>\n<meta property=\"og:url\" content=\"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba\" \/>\n<meta property=\"og:site_name\" content=\"Blog de Reparo e Recuperacao do MS Access\" \/>\n<meta property=\"article:published_time\" content=\"2018-04-10T07:01:38+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2021-10-21T07:21:35+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-content\/uploads\/2018\/04\/ACCESS-pt.png\" \/>\n\t<meta property=\"og:image:width\" content=\"777\" \/>\n\t<meta property=\"og:image:height\" content=\"520\" \/>\n\t<meta property=\"og:image:type\" content=\"image\/png\" \/>\n<meta name=\"author\" content=\"Pearson Willey\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:creator\" content=\"@https:\/\/twitter.com\/pearson_willey\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"Pearson Willey\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"9 minutes\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/codigo-de-ms-access-vba#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/codigo-de-ms-access-vba\"},\"author\":{\"name\":\"Pearson Willey\",\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/#\\\/schema\\\/person\\\/a38175469c0746d451eead783463bc78\"},\"headline\":\"Saiba tudo sobre o c\u00f3digo de MS Access VBA &#8211; Fun\u00e7\u00f5es VBA, atalhos e muito mais &#8230;!\",\"datePublished\":\"2018-04-10T07:01:38+00:00\",\"dateModified\":\"2021-10-21T07:21:35+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/codigo-de-ms-access-vba\"},\"wordCount\":1858,\"publisher\":{\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/codigo-de-ms-access-vba#primaryimage\"},\"thumbnailUrl\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/wp-content\\\/uploads\\\/2018\\\/04\\\/ACCESS-pt.png\",\"keywords\":[\"Acessar C\u00f3digo VBA\",\"Acesse o c\u00f3digo de programa\u00e7\u00e3o VBA\",\"Acesse o c\u00f3digo VBA com o exemplo\",\"C\u00f3digo do Microsoft Access VBA\",\"ms Access functions\"],\"articleSection\":[\"Tutoriais\"],\"inLanguage\":\"en-US\"},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/codigo-de-ms-access-vba\",\"url\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/codigo-de-ms-access-vba\",\"name\":\"Saiba tudo sobre o c\u00f3digo de MS Access VBA - Fun\u00e7\u00f5es VBA, atalhos e muito mais ...!\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/codigo-de-ms-access-vba#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/codigo-de-ms-access-vba#primaryimage\"},\"thumbnailUrl\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/wp-content\\\/uploads\\\/2018\\\/04\\\/ACCESS-pt.png\",\"datePublished\":\"2018-04-10T07:01:38+00:00\",\"dateModified\":\"2021-10-21T07:21:35+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/codigo-de-ms-access-vba#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/codigo-de-ms-access-vba\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/codigo-de-ms-access-vba#primaryimage\",\"url\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/wp-content\\\/uploads\\\/2018\\\/04\\\/ACCESS-pt.png\",\"contentUrl\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/wp-content\\\/uploads\\\/2018\\\/04\\\/ACCESS-pt.png\",\"width\":777,\"height\":520,\"caption\":\"Saiba tudo sobre o c\u00f3digo de MS Access VBA\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/codigo-de-ms-access-vba#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Saiba tudo sobre o c\u00f3digo de MS Access VBA &#8211; Fun\u00e7\u00f5es VBA, atalhos e muito mais &#8230;!\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/#website\",\"url\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/\",\"name\":\"Blog de Reparo e Recuperacao do MS Access\",\"description\":\"Seu Destino \u00fanico para Corre\u00e7\u00f5es, Tutoriais e Muito mais do MS Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/#organization\",\"name\":\"Blog de Reparo e Recuperacao do MS Access\",\"url\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/wp-content\\\/uploads\\\/2021\\\/07\\\/accessrepairnrecovery-com-logo.png\",\"contentUrl\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/wp-content\\\/uploads\\\/2021\\\/07\\\/accessrepairnrecovery-com-logo.png\",\"width\":350,\"height\":70,\"caption\":\"Blog de Reparo e Recuperacao do MS Access\"},\"image\":{\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/#\\\/schema\\\/person\\\/a38175469c0746d451eead783463bc78\",\"name\":\"Pearson Willey\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1e14359741626aa0b5f1415dc1929323c9923a9826470b578bddbc2a39751640?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1e14359741626aa0b5f1415dc1929323c9923a9826470b578bddbc2a39751640?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1e14359741626aa0b5f1415dc1929323c9923a9826470b578bddbc2a39751640?s=96&d=mm&r=g\",\"caption\":\"Pearson Willey\"},\"description\":\"Pearson Willey \u00e9 escritor de conte\u00fado de sites e longo- planejador de conte\u00fado do formul\u00e1rio. Al\u00e9m disso, ele tamb\u00e9m \u00e9 um \u00e1vido leitor. Assim, ele sabe muito bem como escrever um conte\u00fado atraente para os leitores. Escrever \u00e9 como uma vantagem crescente para ele. Ele adora explorar seu conhecimento no MS Access e compartilhar blogs de tecnologia.\",\"sameAs\":[\"https:\\\/\\\/www.linkedin.com\\\/in\\\/pearson-willey-4b8887194\\\/\",\"https:\\\/\\\/x.com\\\/https:\\\/\\\/twitter.com\\\/pearson_willey\"],\"url\":\"https:\\\/\\\/pt.accessrepairnrecovery.com\\\/blog\\\/author\\\/pearson\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Saiba tudo sobre o c\u00f3digo de MS Access VBA - Fun\u00e7\u00f5es VBA, atalhos e muito mais ...!","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba","og_locale":"en_US","og_type":"article","og_title":"Saiba tudo sobre o c\u00f3digo de MS Access VBA - Fun\u00e7\u00f5es VBA, atalhos e muito mais ...!","og_description":"resumo: Este tutorial ajuda voc\u00ea a orientar as ferramentas deprograma\u00e7\u00e3o,\u00a0ou seja,\u00a0o c\u00f3digo VBA no Microsoft Access e aponta para recursos ... Read more","og_url":"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba","og_site_name":"Blog de Reparo e Recuperacao do MS Access","article_published_time":"2018-04-10T07:01:38+00:00","article_modified_time":"2021-10-21T07:21:35+00:00","og_image":[{"width":777,"height":520,"url":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-content\/uploads\/2018\/04\/ACCESS-pt.png","type":"image\/png"}],"author":"Pearson Willey","twitter_card":"summary_large_image","twitter_creator":"@https:\/\/twitter.com\/pearson_willey","twitter_misc":{"Written by":"Pearson Willey","Est. reading time":"9 minutes"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba#article","isPartOf":{"@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba"},"author":{"name":"Pearson Willey","@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/#\/schema\/person\/a38175469c0746d451eead783463bc78"},"headline":"Saiba tudo sobre o c\u00f3digo de MS Access VBA &#8211; Fun\u00e7\u00f5es VBA, atalhos e muito mais &#8230;!","datePublished":"2018-04-10T07:01:38+00:00","dateModified":"2021-10-21T07:21:35+00:00","mainEntityOfPage":{"@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba"},"wordCount":1858,"publisher":{"@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/#organization"},"image":{"@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba#primaryimage"},"thumbnailUrl":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-content\/uploads\/2018\/04\/ACCESS-pt.png","keywords":["Acessar C\u00f3digo VBA","Acesse o c\u00f3digo de programa\u00e7\u00e3o VBA","Acesse o c\u00f3digo VBA com o exemplo","C\u00f3digo do Microsoft Access VBA","ms Access functions"],"articleSection":["Tutoriais"],"inLanguage":"en-US"},{"@type":"WebPage","@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba","url":"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba","name":"Saiba tudo sobre o c\u00f3digo de MS Access VBA - Fun\u00e7\u00f5es VBA, atalhos e muito mais ...!","isPartOf":{"@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/#website"},"primaryImageOfPage":{"@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba#primaryimage"},"image":{"@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba#primaryimage"},"thumbnailUrl":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-content\/uploads\/2018\/04\/ACCESS-pt.png","datePublished":"2018-04-10T07:01:38+00:00","dateModified":"2021-10-21T07:21:35+00:00","breadcrumb":{"@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba"]}]},{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba#primaryimage","url":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-content\/uploads\/2018\/04\/ACCESS-pt.png","contentUrl":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-content\/uploads\/2018\/04\/ACCESS-pt.png","width":777,"height":520,"caption":"Saiba tudo sobre o c\u00f3digo de MS Access VBA"},{"@type":"BreadcrumbList","@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/codigo-de-ms-access-vba#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/pt.accessrepairnrecovery.com\/blog"},{"@type":"ListItem","position":2,"name":"Saiba tudo sobre o c\u00f3digo de MS Access VBA &#8211; Fun\u00e7\u00f5es VBA, atalhos e muito mais &#8230;!"}]},{"@type":"WebSite","@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/#website","url":"https:\/\/pt.accessrepairnrecovery.com\/blog\/","name":"Blog de Reparo e Recuperacao do MS Access","description":"Seu Destino \u00fanico para Corre\u00e7\u00f5es, Tutoriais e Muito mais do MS Access","publisher":{"@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/pt.accessrepairnrecovery.com\/blog\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Organization","@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/#organization","name":"Blog de Reparo e Recuperacao do MS Access","url":"https:\/\/pt.accessrepairnrecovery.com\/blog\/","logo":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/#\/schema\/logo\/image\/","url":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-content\/uploads\/2021\/07\/accessrepairnrecovery-com-logo.png","contentUrl":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-content\/uploads\/2021\/07\/accessrepairnrecovery-com-logo.png","width":350,"height":70,"caption":"Blog de Reparo e Recuperacao do MS Access"},"image":{"@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/pt.accessrepairnrecovery.com\/blog\/#\/schema\/person\/a38175469c0746d451eead783463bc78","name":"Pearson Willey","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/secure.gravatar.com\/avatar\/1e14359741626aa0b5f1415dc1929323c9923a9826470b578bddbc2a39751640?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1e14359741626aa0b5f1415dc1929323c9923a9826470b578bddbc2a39751640?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1e14359741626aa0b5f1415dc1929323c9923a9826470b578bddbc2a39751640?s=96&d=mm&r=g","caption":"Pearson Willey"},"description":"Pearson Willey \u00e9 escritor de conte\u00fado de sites e longo- planejador de conte\u00fado do formul\u00e1rio. Al\u00e9m disso, ele tamb\u00e9m \u00e9 um \u00e1vido leitor. Assim, ele sabe muito bem como escrever um conte\u00fado atraente para os leitores. Escrever \u00e9 como uma vantagem crescente para ele. Ele adora explorar seu conhecimento no MS Access e compartilhar blogs de tecnologia.","sameAs":["https:\/\/www.linkedin.com\/in\/pearson-willey-4b8887194\/","https:\/\/x.com\/https:\/\/twitter.com\/pearson_willey"],"url":"https:\/\/pt.accessrepairnrecovery.com\/blog\/author\/pearson"}]}},"_links":{"self":[{"href":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-json\/wp\/v2\/posts\/536","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-json\/wp\/v2\/comments?post=536"}],"version-history":[{"count":3,"href":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-json\/wp\/v2\/posts\/536\/revisions"}],"predecessor-version":[{"id":2493,"href":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-json\/wp\/v2\/posts\/536\/revisions\/2493"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-json\/wp\/v2\/media\/541"}],"wp:attachment":[{"href":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-json\/wp\/v2\/media?parent=536"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-json\/wp\/v2\/categories?post=536"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/pt.accessrepairnrecovery.com\/blog\/wp-json\/wp\/v2\/tags?post=536"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}