Formatador de SQL online

O jeito mais fácil de se  criar uma SQL no VBA,  é copiar a sentença SQL de uma consulta e colar no editor do Visual Basic.

O problema é que a cópia vem toda “torta” e é necessário arrumá-la para que a sentença fique compreensível para o Access.  Normalmente eu faço isso indo para o final da primeira parte dela e deletando o espaço que vem na sequência (e assim sucessivamente) até obter a frase completa.  Qual o resultado ? Uma frase quilométrica !!!

Há um site que faz a formatação dessa frase e :

Transforma isto :

SELECT [URLs].[SecuClass], [URLp].[PrinId], [URLs].[SecuId], [URLs].[SecuTituOrig], [URLs].[SecuTituPort]
FROM URLp INNER JOIN URLs ON [URLp].[PrinId]=[URLs].[SecuIdPrin]
WHERE ((([URLs].[SecuClass])=Formulários!URLprincipal!URLprincipalSub.Formulário!SecuClass) And (([URLp].[PrinId])=Formulários!URLprincipal!PrinId));

Nisto:

SQL = “”
SQL = SQL & “SELECT [URLs].[SecuClass] , ”
SQL = SQL & ” [URLp].[PrinId] , ”
SQL = SQL & ” [URLs].[SecuId] , ”
SQL = SQL & ” [URLs].[SecuTituOrig], ”
SQL = SQL & ” [URLs].[SecuTituPort] ”
SQL = SQL & “FROM URLp ”
SQL = SQL & ” INNER JOIN URLs ”
SQL = SQL & ” ON [URLp].[PrinId]=[URLs].[SecuIdPrin] ”
SQL = SQL & “WHERE ( ”
SQL = SQL & ” ( ”
SQL = SQL & ” ( ”
SQL = SQL & ” [URLs].[SecuClass] ”
SQL = SQL & ” ) ”
SQL = SQL & ” =Formulários!URLprincipal!URLprincipalSub.Formulário!SecuClass ”
SQL = SQL & ” ) ”
SQL = SQL & ” AND ”
SQL = SQL & ” ( ”
SQL = SQL & ” ( ”
SQL = SQL & ” [URLp].[PrinId] ”
SQL = SQL & ” ) ”
SQL = SQL & ” =Formulários!URLprincipal!PrinId ”
SQL = SQL & ” ) ”
SQL = SQL & ” );”

Visite o site

Clique aqui para testar

Dica 1 : Em Input SQL selecione : MSAccess e em Output SQL :  VB string(1)

Dica 2 : Se for o caso, depois de colar no editor do VB não esqueça de corrigir “Formulários”  para “Forms” e “Formulário” para “Form”.