Notifications
Clear all

Excel copia informações do acess atraves de botão

15 Posts
3 Usuários
0 Reactions
3,330 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola caros colegas do forum.

Sou totalmente leiga em acess e preciso muito da ajuda de vocês.

1º Desenvolvi com a ajuda do Forum uma planilha no excel c/ vba, so que o meu banco de dados e na propria planilha e como a demanda de registros está aumentando gostaria de saber se ao inves de salvar no excel, se eu posso criar um botão no excel que copie as informações para o acess e salve lá, "não precisa deixar o acess aberto" (com isso verificando se os dados não estão repetidos la no acess tbm).

2º Quando eu precisar recuperar algum dado que esteja salvo lá no acess, preciso de um botão no excel que pergunte o numero do registro que eu quero recuperar e vá lá e busque o que eu estou precisando, "não precisa deixar o acess aberto" ( meu registro e realizado atraves de numeros diferentes, mais uma numeração interna da minha empresa).

Duvida: no excel eu uso a função auto_open e lá eu fiz uma condição que verifica o nome do computador para acesso caso não esteja registrado o nome do computador nesta programação o excel se fecha e não autoriza a abertura do programa. Se eu quizer usar esta função no acess eu posso fazer da mesma forma que eu já faço no excel ou a programação do excel para o acess muda?

Conto com a ajuda de vcs e oque puderem me mandar de exemplos ficarei muito agradecida.

No Aguardo

Daniela

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/02/2012 11:05 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Dani,
Como está o formato da sua planilha??
Se possível anexa o modelo, pois é simples de fazer isso. Porém precisa ver onde você está colocando essa informação nova, em uma célula no excel mesmo, ou um formulário VBA.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/02/2012 11:16 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Oi caio, eu quero salvar no acess.
Clicar com um botão no excel e ele copiar a colar no acess.
Para salvar: to copiando e colando ta blza, apenas os repetidoss que cola em cima ta ok, so queria que ao inves de colar no excel colar no acess, mais mantendo a mesma condição. olhar os repetidos.

E para buscar na verdade atualmente eu uso um Listview no excel q eu consulto e copio o que eu preciso, se o acess tiver como fazer isso blza.
Eu clicar no listview que eu ja tenho e ele abrir o que eu tenho no acess salvo e qdo eu filtrar e mandar transferir os dados ele colar no excel ficaria otimo.

Anexo segue meu modelo de buscar atualmente.

Abraços e obrigada pela resposta Caio

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/02/2012 11:40 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Então, acredito que nesse caso terá que criar uma função que lê os dados da listview e insere no banco.
Acho que o Mauro ou o Reinaldo vão poder te ajudar melhor nisso, vou enviar o tópico para eles darem uma olhada ok!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/02/2012 5:26 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Caio, para quem tem afinidade comm o Access até pode parecer simples, eu utilizo bem pouco, como eu ja havia dito, estou começando a lidar c Access e Excel, e geralmente minhas dicas e ajudas sãopraticamentes em modelos prontos, só necessitando ajuste em algumas variaveis ou instruções, e no caso da Dias2011 é necessário criar tudo desde o inicio.

Resumindo, se eu for tentar fazer, levarei uma eternidade, mas se criarem os dois arquivos e as amarrações com o access posso até procurar auxiliar.
Vou ver se começo algo, mas não posso prometer retorno rápido, ainda mais que estou com alguns projetos pendentes.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/02/2012 5:37 pm
(@jpluciani)
Posts: 3
New Member
 

Caio, boa noite !

Trabalho a 15 anos com excel e access, tem como vc guardar as informações em access e depois usando comandos SQL dentro do VBA do excel e vc grava, excluir e altera informações do access usando o access. Aí sua planilha em excel não fica tão grande, e como o access é próprio banco de dados ele pode suportar até 3GB de informações. Não sei como anexar exmplo no forum, mas assim que conseguir te mando um exemplo.

Jorge

 
Postado : 21/02/2012 5:39 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia Jorge

Para vc anexar arquivos no fórum ---> logo abaixo da janela de resposta tem o botão "Adicionar um Arquivo --> clicando nele vai aparecer o botão procurar para vc localizar o arquivo no teu PC.

Segundo as regras do fórum é obrigatóriio compactar o arquivo para anexá-lo.

Um abraço.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/02/2012 6:19 am
(@jpluciani)
Posts: 3
New Member
 

Pessoal, segue um exemplo de conexão de excel com access, e a manipulação de alguns dados.

 
Postado : 23/02/2012 6:29 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola colegas do forum,
só pude olhar hj e gostei muito de ver que tinha varias dicas referente oque eu perguntei, baixei o arquivo que o colega enviou e gostei muito, mais tenho uma duvida, caso eu queira pedir para o excel procurar dentro do acess determinado nome e me devolver ele no excel, daria para fazer isto?

Aguardo retorno.

Obrigada

Daniela

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/03/2012 10:46 am
(@jpluciani)
Posts: 3
New Member
 

Daniela, bom dia !

Daria sim para fazer essa pesquisa usando comandos SQL, se quiser me mande uma planilha que monto em cima dela a busca. Que pode ser por qualquer campo!

Grato,
Jorge

 
Postado : 07/03/2012 5:43 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

...caso eu queira pedir para o excel procurar dentro do acess determinado nome e me devolver ele no excel, daria para fazer isto?...

Antes tarde do que nunca, segue um exemplo baseado em http://www.macoratti.net/vb_tdl1.htm

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/03/2012 6:20 am
(@natalia-oliveira)
Posts: 43
Eminent Member
 

Ola ... estou fazendo o inverso, mas não consegui fazer, esta dando um erro . alguem poderia me ajudar ...
Tento copiar os dados do excel no access ...

 
Postado : 11/07/2012 11:09 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Natália,
Veja esse Modelo:

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/07/2012 4:02 pm
(@natalia-oliveira)
Posts: 43
Eminent Member
 

Pessoal fiz o seguinte ... mais não esta rodando .. tenho o excel 2010 .. o que estaria de errado?

Sub AtualizarBD()

Dim cnt As ADODB.Connection, _
rst As ADODB.Recordset, _
dbPath As String, _
tblName As String, _
colHead As String, _
rcdDetail As String, _
sConnect As String
On Error Resume Next

Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset

dbPath = "C:Usersnatalia.oliveira.CONNECTCOMDesktopplanilhas novasPLANILHA PEÇAS.accdb"
tblName = "estoque_vivo_novo"
tblCol = "saldo_atualizado"
sConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & dbPath & "';"

cnt.Open sConnect

Dim i, j, k As Integer

i = 7 ' linha
j = 3 ' coluna do id
k = 20 ' coluna do saldo atualizado

Do

strSQL = "UPDATE " & tblName & " "
strSQL = strSQL & "SET " & tblCol & "=" & Worksheets("estoque").Cells(i, k).Value & " "
strSQL = strSQL & "WHERE "
strSQL = strSQL & "ID=" & Worksheets("estoque").Cells(i, j).Value

Set rst = cnt.Execute(strSQL)

i = i + 1

Loop Until Worksheets("estoque").Cells(i, j).Value = ""

'MsgBox strSQL, vbOKOnly, ""
cnt.Close
Set rst = Nothing
Set cnt = Nothing
On Error GoTo 0

End Sub

 
Postado : 16/07/2012 11:36 am
(@natalia-oliveira)
Posts: 43
Eminent Member
 

Gente estava certo ... rodou legal ...

 
Postado : 17/07/2012 9:12 am