NoteBook desliga em 2 ou 4 segundos.

Se seu problema é com notebook quando liga não fica mais que 4 segundos ligados? bem começe a ficar preocupado! porque já vou adiantando pode ser problema na placa mãe algum circuito que fritou e precise de reposição! mais vou passar uma lista de possiveis problemas que podem ser verificados antes de começar a choradeira!

1 - Alta temperatura: não use o notebook sobre uma superfice que cubra a saida do ar quente, como por exemplo o colo! em cima da cama!!! eh parece maravilhoso ficar no msn com o note na cama mais cuidado você esta tampando a saida de ar! ou quando você instala algum software que exige muito do processamento o que acontece, força o processador a trabalhar mais aumentando muito o calor levando a queimar! porque a dicipação de calor do note eh muito fraca!

2 - Pode ser um simples vírus filha da mãe! então abra a tampa inferior que protege o hd! compre ou pegue emprestado um case para hd de note! que custa na faixa de uns R$15,00 monte com a sua hd, ligue no pc e passe um bom anti-vírus.

3 - Cooler! sua ventoinha não deve estar aguentando esfriar o processador no local onde você deve estar usando o note, então sugiro comprar uma base para notebook, ajuda muito!

4 - Uma ferramenta otima para fazer o teste de temperatura de seu note ou ate mesmo pc! use o programa Speedfan! é free! e mostra a temperatura de todas os coolers e você pode programar alertas! com ele você pode descobrir se o problema é realmente calor!

Bem ai está um pequena lista dos possiveis problemas se não for nenhum deles! bem! leve o seu note para um assistencia ESPECIALIZADA!!! na marca do seu note! não leve em qualquer lojinha de esquina! eles vão fazer um solda horrível! e você vai ter dores de cabeça horriveis! Obrigadu!

Access VBA, Trabalhando com tabelas

Access VBA Banco de Dados

Várias vezes já sofri com a falta de ferramentas para manipular os dados dentro do

access, então resolvi avançar no conhecimento usando codigo VBA para manipular os

dados, então descobri como instanciar em uma variavel o banco de dados e por esta

variavel ligar uma tabela a uma variavel e atravez desta variavel com a tabela fazer

consultas inserir, apagar e corrigir informações, vou mostrar o codigo e explicar como

funciona.

1- Crie uma variavel para armazenar o Banco de Dados.

Dim BancoDados as Database

2- Crie uma variavel para armazenar a tabela.

Dim Tabela as Recordset

3- Faça a configuração da variavel BancoDados com a db atual q esta usando.

Set BancoDados = CurrentDb

4- Faça a configuração da variavel que vai receber a tabela desejada

Set Tabela = Banco.OpenRecordset("NomeDaTabela", dbOpenTable)

Agora esta tudo pronto Qualquer operação que queira fazer é so usa a varaivel Tabela

Vou dar um exemplo de consulta.

1- Faça a seleção do campo da tabela que deseja consultar algum registro

Tabela.index = "CampoDesejado"

2- Faça a procura usando a função Seek.

Tabela.Seek "=", ValorQueDesejaProcurar

3- Você pode usar a função NoMatch para ver se foi ou não encontrado algum registro.

Vou mostrar o codigo completo.

Private Sub buttonConsultar_Click()
Dim BancoDados as Database
Dim Tabela as Recordset

Set BancoDados = CurrentDb
Set Tabela = Banco.OpenRecordset("NomeDaTabela", dbOpenTable)

Tabela.index = "CampoDesejado"
Tabela.Seek "=", ValorQueDesejaProcurar

If Tabela.NoMatch = True Then
MsgBox("Registro encontrado!")
Else
MsgBox("REsgitro não encontrado!")
End If
End Sub

Em caso de duvidas eu terei o maior prazer em ajudar!