Propósito

✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.

.: Vitrine

Carregando artigos...

Views

Mostrando postagens com marcador index. Mostrar todas as postagens
Mostrando postagens com marcador index. Mostrar todas as postagens

VBA Excel - Criando Índice de todas as Abas - Create An Index Page





Nós desenvolvedores gostaríamos todos de viver num mundo ideal onde tivéssemos bastante tempo para analisar os dados que transformaremos em informações. Seria muito importante que pudéssemos gastar algum tempo prospectando o modo como as informações serão analisadas pelos usuários finais. 

Raras são as vezes onde conseguimos tempo para isso. O código a seguir implementa uma facilidade que não requererá nada do nosso tempo para desenvolver. Apenas podemos copiar e colar.

Tornar os Dashboards mais funcionais, rápidos e práticos é uma das nossas obrigações.

Estamos constantemente sob o paradoxo de não termos tempo para implementar as facilidades que farão com que os usuários utilizem massivamente as nossas soluções. 

A criação de um índice para as diversas planilhas dentro do nosso workbook certamente será bem vinda.

- Acrescente a chamada a este procedimento assim que o workbook for aberto:


Private Sub Workbook_Open()

    Call CreateIndex

End Sub

Crie um novo módulo e cole o conteúdo abaixo:


Sub CreateIndex()

    Let Application.DisplayAlerts = False

    

    On Error Resume Next

    

    Sheets("Index").Delete

    

    On Error GoTo 0

    

    Set myIndex = Sheets.Add(Sheets(1))

    

    Let myIndex.Name = "Index"

    Let iRow = 1

    

    For Each theSheet In ThisWorkbook.Sheets

        If iRow = 1 Then

            Let Cells(iRow, 1).Value = "INDEX"

        Else

            ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow, 1) _

             , Address:="", SubAddress:= _

             "'" & theSheet.Name & "'" & "!A1", TextToDisplay:=theSheet.Name

        End If

        

        Let iRow = iRow + 1

    Next



    Sheets("Index").Move After:=Sheets(1)

End Sub


Tags: VBA, index, sheet, page, create, índice, planilha, worksheet



Nenhum comentário:
Tags: , , , , , , ,

VBA Excel - 00.10 - Referenciando-se as planilhas - Workbooks



Modos de referenciar-se a um Worbook:



Tags: VBA, Excel, Series, reference, referenciando, workbook, worksheet


Nenhum comentário:
Tags: , , , , , , , , , , , ,

VBA Excel - 05.10 - Referenciando planilha - Index - Referenciando pelo índice



É sempre bom lembrar-se de que:

workbooks = Arquivo que contém todas as planilha em diversas pastas.

worksheets = Planilhas individuais, contidas nas abas.


5 - Index - Referenciando um Workbook pelo índice:

Talvez nos seja imposta a condição de que o único modo para fazermos a referência a um workbook seja através do valor do índice. (Sim talvez esteja alterando uma aplicação de terceiros, por exemplo.)

O MS Excel acessa o valor do índice quando o mesmo é aberto nele. o primeiro workbook aberto recebe o valor 1 de índice, o segundo workbook aberto receberá o valor 2 de índice, e assim sucessivamente.

É claro que não é tão simples, este método tem um pequeno problema que o acompanha, pois quando deletamos um workbook ou o fechamos o valor do índice de toda a coleção Workbook muda.

Por exemplo, digamos que tenhamos 3 worbooks abertos com os seguintes índices de valor:

StatisticalDashboardFunctions.xls - 3
111112.xls - 2
HumanResources.xls - 1

Se uma tarefa em particular depende que todos os três workbooks estejam abertos utilizando-se dos valores dos índices destes, poderá ocorrer alguns desencontros quando os 'instanciarmos': Workbooks(1).Activate

Isto ativará HumanResources.xls como aberto, se fechá-la a StatisticalDashboardFunctions.xls e 111112.xls se moverão para baixo no índice: 

StatisticalDashboardFunctions.xls virá a ter o índice como 2

Ao passo que 111112.xls terá o índice como 1.

Usar o valor do índice como referência para os workbooks não é necessariamente errado, mas precisa entender o que está envolvido nesta escolha, sobre os possíveis erros que poderão ocorrer e como os corrigirá.

Tags: VBA, Excel, Series, reference, referenciando, workbook, worksheet, index, índice

Nenhum comentário:
Tags: , , , , , , , ,

VBA Access Advanced - Usando o DDL - Data Definition Language.



| Blog Office VBA | Blog Excel | Blog Access |

Exemplos de Código com o DDL

O SQL padrão é uma sublinguagem utilizada no MS Access para lidar com os dados, tabelas, querys, etc...

Objeto
Tipo
Tabela
1
Query
5
Tabela Conectada 
4, 6, or 8
Formulário
-32768
Relatório
-32764
Módulo
-32761

  • Data Manipulation Language (DML): O comando SELECT e queries de ação (DELETE, UPDATE, INSERT INTO, ...)
  • Data Definition Language (DDL): Comandos que alterem o "schema" (Mudando tabelas, campos, índices, relações, queries, etc.)

Usando o DML para queries, poderemos ler alguns aspectos do "schema" do banco de dados.

Poderá listar os objetos na base de dados Access como abaixo: 

SELECT MSysObjects.Type, MSysObjects.Name FROM MSysObjects WHERE MSysObjects.Name Not Like "~*" ORDER BY MSysObjects.Type, MSysObjects.Name;

Onde Type poderá colocar um dos valores da tabela acima. (Infelizmente, o modo provido pelo DML não é o caminho mais fácil para se ler os nomes dos campos nas tabelas.)

O DDL provê outras características de intervenção como:

  • CREATE TABLE para gerar uma nova tabela, especificando os nomes dos campos, tipos, e constraints.
  • ALTER TABLE para adicionar uma coluna para a tabela, deletar uma coluna na tabela, ou mudar a tabela como tipo e tamanho da mesma.
  • DROP TABLE para deletar uma tabela.

Similarmente, você pode aplicar o comandos CREATE/ALTER/DROP em outras coisas tais como índices, constraints, views e procedures (queries), usuário e grupos (segurança.)

Enquanto o DDL é importante para algumas bases de dados enormes, ele é limitado no uso com o MS Access. Você pode criar um campo Texto, mas não pode configurá-lo com a propriedade Largura Diferente de Zero, ou características similares. Pode criar um campo Yes/No, mas não pode dizer que o dataentry ocorrerá por meio de um text box, ou um check box. Também poderá criar um campo Date/Time, mas não poderá configurar a sua propriedade Format. DDL não pode criar campos Hyperlink, ou campos Attachment.

Poderá executar uma query DDL sob o DAO ou ADO.

Parar DAO, use: dbEngine(0)(0).Execute strSql, dbFailOnError
Parar ADO, use: CurrentProject.Connection.Execute strSql

Algumas características do JET 4 (Access 2000 e superior) são suportados somente sob o ADO.

Uma situação na qual o DDL é realmente utilizável é quanto a mudança do Tipo ou Tamanho dos campos. Você não pode fazer isto com o DAO ou ADOX, utilizar o DDL é a técnica mais prática para estes fins. Obviamente existem outras saídas mais trabalhosas e incoerentes pelo simples fato de serem mais demoradas tanto na implementação quanto na execução.

Abaixo disponibilizo alguns exemplos para que você possa iniciar-se nas técnicas de utilização do DDL.
Índice das Funções
Descrição
CreateTableDDL()
Cria duas tabelas, seus índices e relacionamentos, ilustrando os diferentes tipos de campos suas propriedades configuradas.
CreateFieldDDL()
Ilustra como adicionar um campo para uma tabela.
CreateFieldDDL2()
Adiciona um campo a uma tabela em outra base de dados.
CreateViewDDL()
Cria uma nova query.
DropFieldDDL()
Deleta o campo de uma tabela.
ModifyFieldDDL()
Muda o tipo ou tamanho de um campo. (Este é o mais comum uso do DDL.)
AdjustAutoNum()
Configura o start da AutoNumeração.
DefaultZLS()
Cria um campo que tem por default ser uma stringque não suporta ficar vazia.

  
Option Compare Database
Option Explicit
  
Sub CreateTableDDL()
     Dim cmd As New ADODB.Command
     Dim strSql As String
  
   Let cmd.ActiveConnection = CurrentProject.Connection
  
   'Cria o "Contractor" na tabela.
    
   Let strSql = "CREATE TABLE tblDdlContractor " & _           "(ContractorID COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, " & _         "Surname TEXT(30) WITH COMP NOT NULL, " & _           "FirstName TEXT(20) WITH COMP, " & _           "Inactive YESNO, " & _         "HourlyFee CURRENCY DEFAULT 0, " & _         "PenaltyRate DOUBLE, " & _           "BirthDate DATE, " & _         "EnteredOn DATE DEFAULT Now(), " & _           "Notes MEMO, " & _         "CONSTRAINT FullName UNIQUE (Surname, FirstName));"       
         "(ContractorID COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, " & _
       "Surname TEXT(30) WITH COMP NOT NULL, " & _
    
       "FirstName TEXT(20) WITH COMP, " & _
           "Inactive YESNO, " & _
       "HourlyFee CURRENCY DEFAULT 0, " & _
       "PenaltyRate DOUBLE, " & _
    
       "BirthDate DATE, " & _
         "EnteredOn DATE DEFAULT Now(), " & _
         "Notes MEMO, " & _
       "CONSTRAINT FullName UNIQUE (Surname, FirstName));"
    
   Let cmd.CommandText = strSql       cmd.Execute       Debug.Print "tblDdlContractor criada."         'Cria a tabela de Booking.     
  
   cmd.Execute
  
   Debug.Print "tblDdlContractor criada."
    
   'Cria a tabela de Booking.
   Let strSql = "CREATE TABLE tblDdlBooking " & _           "(BookingID COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, " & _         "BookingDate DATE CONSTRAINT BookingDate UNIQUE, " & _         "ContractorID LONG REFERENCES tblDdlContractor (ContractorID) " & _           "ON DELETE SET NULL, " & _         "BookingFee CURRENCY, " & _         "BookingNote TEXT (255) WITH COMP NOT NULL);"       
  
       "(BookingID COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, " & _
       "BookingDate DATE CONSTRAINT BookingDate UNIQUE, " & _
         "ContractorID LONG REFERENCES tblDdlContractor (ContractorID) " & _
  
       "ON DELETE SET NULL, " & _
         "BookingFee CURRENCY, " & _
       "BookingNote TEXT (255) WITH COMP NOT NULL);"
  
   Let cmd.CommandText = strSql       cmd.Execute       Debug.Print "tblDdlBooking criado."  End Sub    Sub CreateFieldDDL()      Dim strSql As String     Dim db As DAO.Database           
     cmd.Execute
  
   Debug.Print "tblDdlBooking criado."
  End Sub
  
Sub CreateFieldDDL()
      Dim strSql As String
   Dim db As DAO.Database
    
   Let Set db = CurrentDb()     
   Let strSql = "ALTER TABLE MyTable ADD COLUMN MyNewTextField TEXT (5);"       db.Execute strSql, dbFailOnError       Set db = Nothing       Debug.Print "MyNewTextField adicionado para MyTable"  End Sub    Function CreateFieldDDL2()       Dim strSql As String     Dim db As DAO.Database         Set db = CurrentDb()       
  
   db.Execute strSql, dbFailOnError
    
   Set db = Nothing
  
   Debug.Print "MyNewTextField adicionado para MyTable"
  End Sub
  
Function CreateFieldDDL2()
       Dim strSql As String
   Dim db As DAO.Database
  
   Set db = CurrentDb()
  
   Let strSql = "ALTER TABLE Table IN 'C:\A&A\Junkki.mdb' ADD COLUMN MyNewField TEXT (5);"       db.Execute strSql, dbFailOnError       Set db = Nothing       Debug.Print "MyNewField Adicionado!"  End Function    Function CreateViewDDL()       Dim strSql As String         
  
   db.Execute strSql, dbFailOnError
    
   Set db = Nothing
  
   Debug.Print "MyNewField Adicionado!"
  End Function
  
Function CreateViewDDL()
       Dim strSql As String
  
   Let strSql = "CREATE VIEW qry1 as SELECT tblInvoice.* from tblInvoice;"       CurrentProject.Connection.Execute strSql  End Function    Sub DropFieldDDL()      Dim strSql As String         
  
   CurrentProject.Connection.Execute strSql
  End Function
  
Sub DropFieldDDL()
      Dim strSql As String
  
   Let strSql = "ALTER TABLE [MyTable] DROP COLUMN [DeleteMe];"       DBEngine(0)(0).Execute strSql, dbFailOnError  End Sub    Sub ModifyFieldDDL()     Dim strSql As String         
  
   DBEngine(0)(0).Execute strSql, dbFailOnError
  End Sub
  
Sub ModifyFieldDDL()
     Dim strSql As String
  
   Let strSql = "ALTER TABLE MyTable ALTER COLUMN MyText2Change TEXT(100);"       DBEngine(0)(0).Execute strSql, dbFailOnError  End Sub    Function AdjustAutoNum()     Dim strSql As String         
  
   DBEngine(0)(0).Execute strSql, dbFailOnError
  End Sub
  
Function AdjustAutoNum()
     Dim strSql As String
  
   Let strSql = "ALTER TABLE MyTable ALTER COLUMN ID COUNTER (1000,1);"       CurrentProject.Connection.Execute strSql  End Function    Function DefaultZLS()      Dim strSql As String         
  
   CurrentProject.Connection.Execute strSql
  End Function
  
Function DefaultZLS()
      Dim strSql As String
  
   Let strSql = "ALTER TABLE MyTable ADD COLUMN MyZLSfield TEXT (100) DEFAULT """";"       CurrentProject.Connection.Execute strSql  End Function
  
   CurrentProject.Connection.Execute strSql
  End Function


Tags: VBA, Acces, DDL, DML, DAO, ADO, CREATE, ALTER,DROP,índices, constraints, views e procedures,queries, usuário, grupos, users, groups, index, JET 4, ADOX


Nenhum comentário:
Tags: , , , , , , , , , , , , , , , , , , ,
Assinar: Postagens (Atom)
diHITT - Notícias