Compartilhe!

Para criar uma função que busque dados do Access basta usar o seguinte modelo:

Function BuscaDados(Data As Double, Tipo As String)   Dim objCon      As ADODB.Connection
  Dim rs          As ADODB.Recordset
  File = "C:\Temp\Teste.mdb"
  Tipo = "'" & Tipo & "'"
  Set cn = CreateObject("ADODB.Connection")
  With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & File & ";"
    .Open
  End With
  strSQL = "SELECT * from Tabela1 where [Data] = " & Data & " and [Tipo] = " & Tipo
  Set rs = cn.Execute(strSQL)
  Resultado = rs.Fields(0).Value
  rs.Close
  BuscaDados = Resultado
  Set rs = Nothing End Function

Outra forma de criar essa função você pode ver aqui.

Caso queria esse arquivo, favor enviar um email para atendimento@exceleaccess.com solicitando.

Confira o vídeo demonstrativo
Você também vai gostar:
Excel e Access – Criando uma função que busque dados do Access 1

Para criar uma função que busque dados do Access basta usar o seguinte modelo: Function BuscaDados(Data As Double, Tipo As Leia mais...

Jogos no Excel – Angry Birds

Além de tudo que o Excel nos proporciona ele também é diversão. Baixe o Joguinho Angry Birds no excel no Leia mais...

Excel Avançado – Como transpor dados

Muitas vezes os dados que recebemos não ficam de uma maneira de fácil visualização e temos que reorganizar. Vamos mostrar Leia mais...

Excel Avançado – Como colocar em ordem alfabética

Para organizar os dados em ordem alfabética você pode usar a função Classificar dentro do menu Dados - Classificar, conforme Leia mais...

Obrigado pela visita!

www.exceleaccess.com

contato@exceleaccess.com

www.exceleaccess.com

www.exceleaccess.com

www.exceleaccess.com


Compartilhe!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *