Ainda não conheço pessoalmente a Fernanda Viégas (Ph.D pelo Media Lab, do MIT), mas admiro o produto que desenvolveu.especializou-se em VISUALIZAÇÃO de dados e fundou, com Martin Waterbarg, o site Many Eyes, mantido pela IBM dos Estados Unidos. O site é uma experiência colaborativa que analisa os impactos das técnicas de divulgação de informações sobre o debate público.A Fernanda acredita que a forma como as pessoas vêem as informações e conseguem estabelecer relações entre elas faz a diferença para no debate público de idéias e o engajamento dos cidadãos na realidade. Ela
✔ VBA Dashboards Specialist® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance. Contate-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.
Views
Important:
Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.
...
25 de novembro de 2013
Dashboards - Many Eyes e Projeto NEO - Criação Brasileira
23 de novembro de 2013
01 - SUA AUDIÊNCIA SE IMPORTA - EMPATIA - O que dirá precisa ser exclusivamente do seu jeito
Acesse a apresentação completa aqui.
02 - SUA AUDIÊNCIA SE IMPORTA - ROBÔS – São legais
Acesse a apresentação completa aqui.
03 - SUA AUDIÊNCIA SE IMPORTA - IMAGENS – Impacto Visual
Acesse a apresentação completa aqui.
04 - SUA AUDIÊNCIA SE IMPORTA - STORYTELLING – Uma boa história
Acesse a apresentação completa aqui.
05 - SUA AUDIÊNCIA SE IMPORTA - TEXTO – Pouco texto e mais conteúdo
Acesse a apresentação completa aqui.
06 - SUA AUDIÊNCIA SE IMPORTA - NA REAL - Olhe-se no espelho
Acesse a apresentação completa aqui.
07 - SUA AUDIÊNCIA SE IMPORTA - RETÓRICA – Não faça discurso!
Acesse a apresentação completa aqui.
22 de novembro de 2013
VBA Access - Adicionando Colchete para SQL - SQL Add Brackets
Public Function SQLAddBrackets (ByVal varReplaceStringValue As Variant) As String
On Error GoTo Error_Function
Let xstrReplaceStringValue = Replace(Nz(varReplaceStringValue, ""), _
"[", "[[]", 1, -1, vbTextCompare)
Let xstrReplaceStringValue = Replace(Nz(varReplaceStringValue, ""), _
"*", "[*]", 1, -1, vbTextCompare)
Let xstrReplaceStringValue = Replace(Nz(varReplaceStringValue, ""), _
"#", "[#]", 1, -1, vbTextCompare)
Let xstrReplaceStringValue = Replace(Nz(varReplaceStringValue, ""), _
"?", "[?]", 1, -1, vbTextCompare)
Let SQLAddBrackets = varReplaceStringValue
Exit_Function:
Err.Clear
Exit Function
Error_Function:
Let SQLAddBrackets = xstrReplaceStringValue
Resume NextEnd Function
VBA Access - Altera o Path das tabelas Conectadas - Change Link Path
Public Function ChangeLinkPath(strNewPath As String) As String
Dim dbs As DAO.Database
Dim strTblName As String
Dim colTbl As Collection
Dim intTbl As Integer
If strNewPath <> "" And Dir(strNewPath) <> "" Then
Set colTbl = New Collection
Set dbs = CurrentDb
For intTbl = dbs.TableDefs.Count - 1 To 0 Step -1
If dbs.TableDefs(intTbl).Connect <> "" And _
Not dbs.TableDefs(intTbl).Connect Like "*" & strNewPath Then
colTbl.Add dbs.TableDefs(intTbl).Name
dbs.TableDefs.Delete dbs.TableDefs(intTbl).Name
End If
Next intTbl
For intTbl = colTbl.Count To 1 Step -1
Let strTblName = colTbl(intTbl)
DoCmd.TransferDatabase acLink, "Microsoft Access", _ strNewPath, acTable, strTblName, strTblName
Debug.Print "connection made to '" & strTblName & "'"
Next intTbl
Set dbs = Nothing
Set colTbl = Nothing
Debug.Print "Feito!"
ChangeLinkPath = "Feito!"
Else
'Debug.Print "New path not provided. No changes made!"
Let ChangeLinkPath = "New path not provided. No changes made!"End If
Exit Function
End Function
VBA Access - Calcula Idade - Calculate Age
Function CalculateAge (DOB As Variant, Optional vDate As Variant) As Variant
If IsDate(vDate) = False Then vDate = Date
If IsDate(DOB) = True Then
Let CalculateAge = DateDiff("yyyy", DOB, vDate) + _
(DateSerial(Year(vDate), Month(DOB), Day(DOB)) > vDate)
ElseLet CalculateAge = Null
End If
End Function