Notifications
Clear all

Codigo de procura em banco de dados

10 Posts
1 Usuários
0 Reactions
2,770 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia a todos!
Estou com uma duvida em um codigo que vai resolver varios probemas de uma só vez.
É o seguinte, no meu trabalho nonitoro varios equipamentos, Cada equipamento possui varios sistemas, no exemplo postado a analise é referente ao oleo usado no sistema, que pode ser Normal, Anormal ou Critico, e recebo pelo menos 2 laudos mês para cada sistema e preciso monitorar pelo menos os ultimos 3 mês.
Bom, oque quero dizer com isso é o seguinte:
Tenho um banco de dados extenso, com muitos registros, cada registro tem muitos campos (simplifiquei para ficar mais didatico, Já que resolvendo isso, resolve meu problema), e gostaria que quando no formulario eu selecionar o equipamento e o sistema, ele preenchesse as caixas de texto com os registro mais recente, e ainda quando apertar a seta mudasse sempre em odem de data decrescente.
O problema é que não consigo nem começar o codigo, meus conhecimentos em vba são restritos, Já consegui algo parecidos com formulas na planilha mas para isso tenho que usar colunas e linhas auxiliares e formulas muito grandes.
Se pudesse fazer isso em vba ficaria muito melhor.
Espero não ter me alongado alem do necessario.
Desde já agradeço, pois me ajudará demais.
Obrigado a todos pela atenção!!!

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

 
Postado : 13/06/2011 9:03 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola a todos !
Ao trabalhar na planilha percebi 2 falhas :
A primeira foi em relação aos dados, digitei transmissão com 1 s só(transmisão)
O segundo foi na dadas coincidentes demais, o que prejudica os teste.

O que consegui desenvolver segue na nova plan, é mais ou menos isso que quero mas ainda não consegui achar um jeito de programa isso no formulario.

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

 
Postado : 13/06/2011 6:06 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Anderson, para preencher os Textbox e fazer a evolução dos SpinButton1 é necessário desenvolver algumas rotinas, não prometo nada a curto prazo, mas assim que possível implemento e posto aqui, no momento estou de saída, e só vou poder começar a mexer nele amanhã conforme a disposição de tempo.
Por enquanto ficamos no aguardo da ajuda dos colegas.

abraços

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

 
Postado : 14/06/2011 7:38 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Anderson....

segue anexo arquivo com algumas adaptações que não tenho certeza de atender ao que pretende, mas creio estar bem próximo.

Eu gosto de trabalhar com Filtro Avançado nestes casos...

Faça os testes necessários e indique o que ainda não está retornando como o esperado que ajusto assim que possível...

Sempre, claro, contando com a colaboração dos outros colegas do fórum...

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

 
Postado : 16/06/2011 6:43 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!

Baum demais!!!

Vou estudar o codigo para aplica-lo qualquer duvida volto a perguntar. :geek:

Muito obrigado a todos pela atenção e desculpe pelo incomodo. :mrgreen:

Bom fim de semana a todos!!! :D

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

 
Postado : 17/06/2011 9:37 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá Edson, Tudo BLZ?

To começando a adaptar os codigos, entendi razoavelmente para fazer as mudanças necessarias, só preciso entenderum pedaço do codigo:
, CriteriaRange:=Range("FAV!Criteria"), CopyToRange:=Sheets("FAV").Range("G1:J1"), Unique _
:=False
Oque significa Unique :=False e no trecho de baixo oque significa o CountA
n = Application.WorksheetFunction.CountA(Sheets("FAV").Range("G:G")) - 1
Novamente muito obrigado.

T+

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

 
Postado : 25/06/2011 7:28 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Otimo !

Já estou aplicando e esta funcionando bem.

T+

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

 
Postado : 29/06/2011 5:02 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Valeu!

8-)

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

 
Postado : 29/06/2011 6:49 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Resolvido!

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

 
Postado : 29/06/2011 7:34 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Tô tentando fechar meus topicos resolvidos.
Vamo ve se vai...
Resolvido :D :D :D

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

 
Postado : 10/07/2011 2:31 pm