Conteúdo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Fundo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Desenho: Liso Onda Linha Retalho Madeira Rocha Couro Colméia Vertical Triângulo
Bem-vindo ao Fórum do BABOO!

Desde 2000 o Fórum do BABOO tem ajudado milhões de internautas de Windows a resolverem seus problemas e dúvidas, além de ajudar na remoção de vírus e malwares de seus computadores. Somos o único fórum brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows, então se você tem uma dúvida ou problema que nenhum outro fórum resolve, poste-a aqui pois o MVP Babooadora desafios!
  

O Fórum do BABOO também conta com a participação exclusiva do administrador da área de Segurança MVP Mr.Million que tem reconhecimento internacional da Microsoft pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Se o seu computador está infectado por algum vírus, ele te ajudará a removê-lo!
  

Nosso time de especialistas também inclui Patropi  Osvaldomp  Caze  Ciro-Mota  XERLOUCO ROUMS  Tatha que responderão suas dúvidas sobre diversos assuntos.
 

Participe da nossa comunidade! 

 

Entre para seguir isso  
Seguidores 0
vivis_

VB.NET - Atualizar Banco de Dados Access... =$

2 posts neste tópico

Boa tarde...

Estou desenvolvendo, pela primeira vez, um sistema de busca em VB.Net e Access... O sistema é simples, porém, não consigo fazer as informações do banco de dados correrem nos Texts.

São 4 TextBox, o banco está conectado, mas só aparece a primeira linha do Banco, ele não prosegue a leitura de "próximo" e "anterior" nem "primeiro" e "ultimo".

Já estou vesga... (Y)

Revirei os materiais do Marcoratti do avesso, mas sempre dá pane...

O controle dos botões eu fiz com BindingContext...

Segue abaixo o código, se alguém puder, me ajude, pleaseee...

Não consigo identificar o erro.. (Y)

------------------------------------------------------------------------------------

Imports System.Data.OleDb

Imports System.IO

Imports System.Drawing

Public Class Form3

Inherits System.Windows.Forms.Form

Dim RecordCount As Integer

Dim Position As Integer

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ControleDataSet.Clear()

'Preenche o DataSet

Me.CadArquivosTableAdapter.Fill(Me.ControleDataSet.CadArquivos)

'Vincula os Controles

Me.txtAssunto.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Assunto")

Me.txtDescricao.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Descricao")

Me.txtArquivo.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Arquivo")

Me.txtGaveta.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Gaveta")

'Adiciona o Handles para o Evento Click

AddHandler Me.btnProximo.Click, AddressOf Validacao

AddHandler Me.btnAnterior.Click, AddressOf Validacao

AtualizaLabel()

End Sub

Private Sub Validacao(ByVal sender As System.Object, ByVal e As System.EventArgs)

'Obtem a quatidade de registros

RecordCount = Me.BindingContext(Me.ControleDataSet.CadArquivos).Count

'Obtem a posicao atual

Position = Me.BindingContext(Me.ControleDataSet.CadArquivos).Position

'Verifica se existem registros

If RecordCount <= 1 Then

Me.btnProximo.Enabled = False

Me.btnAnterior.Enabled = False

AtualizaLabel()

End If

'Analisa se podemos voltar

If sender.Equals(Me.btnAnterior) Then

If RecordCount > 1 Then

Me.BindingContext(Me.ControleDataSet.CadArquivos).Position -= 1

Else

Me.btnAnterior.Enabled = False

End If

End If

'Analisa se podemos avancar

If sender.Equals(Me.btnProximo) Then

Me.BindingContext(Me.ControleDataSet.CadArquivos).Position += 1

Else

Me.btnProximo.Enabled = False

End If

'Obtem a nova posicao

Position = Me.BindingContext(Me.ControleDataSet.CadArquivos).Position + 1

'Recalcula os status dos botoes de navegacao

If RecordCount = Position Then

btnProximo.Enabled = False

Else

btnProximo.Enabled = True

End If

If Position = 1 Then

btnAnterior.Enabled = False

Else

btnAnterior.Enabled = True

End If

'Atualiza o label e mostra a posicao atual

AtualizaLabel()

End Sub

Private Sub AtualizaLabel()

RecordCount = Me.BindingContext(Me.ControleDataSet.CadArquivos).Count

Position = Me.BindingContext(Me.ControleDataSet.CadArquivos).Position

If RecordCount <= 1 Then

lblPosicao.Text = "Sem Registro"

Else

lblPosicao.Text = "Registro " & Position & " de " & RecordCount

End If

End Sub

Private Sub Form3_Unload()

End Sub

Private Sub Form3_Activate()

End Sub

Private Sub Form3_Deactivate()

End Sub

Private Sub CadastrarNovoArquivoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CadastrarNovoArquivoToolStripMenuItem.Click

Form1.Show()

Me.Hide()

End Sub

Private Sub FazerNovaBuscaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FazerNovaBuscaToolStripMenuItem.Click

Form2.Show()

Me.Hide()

End Sub

Private Sub SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SairToolStripMenuItem.Click

Dim Sair As String

Dim Cancel As Integer

Sair = MsgBox("Tem certeza de que deseja sair do sistema?", MsgBoxStyle.Exclamation + vbYesNo, "::: Controle de Arquivos :::")

If Sair = vbYes Then

End

Else

Cancel = True

End If

End Sub

Private Sub Form3_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

If MessageBox.Show("Tem certeza de que deseja sair do sistema?", "Closing", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then

e.Cancel() = True

Else

End

End If

End Sub

Private Sub lklAlterar_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lklAlterar.LinkClicked

Form4.Show()

Me.Hide()

End Sub

Private Sub lklExcluir_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lklExcluir.LinkClicked

'Confirmar exclusao de registro

Dim Resp As Integer

Resp = MsgBox("Tem certeza que deseja excluir este registro?", MessageBoxButtons.YesNo, "::: Controle de Arquivos :::")

If Resp = vbYes Then

Me.BindingContext(ControleDataSet, "CadArquivos").RemoveAt(Me.BindingContext(ControleDataSet, "CadArquivos").Position)

End If

End Sub

Private Sub txtAssunto_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAssunto.TextChanged

End Sub

Private Sub btnProximo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProximo.Click

'Incrementa a propriedade Position property do objeto BindingContext para mover um registro para frente.

Me.BindingContext(ControleDataSet, "CadArquivos").Position += 1

End Sub

Private Sub btnAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnterior.Click

'Decrementa a propriedade Position property do objeto BindingContext para mover um registro para trás.

Me.BindingContext(ControleDataSet, "CadArquivos").Position -= 1

End Sub

Private Sub btninicio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninicio.Click

Me.BindingContext(ControleDataSet, "CadArquivos").Position = 0

End Sub

Private Sub btnfim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfim.Click

Me.BindingContext(ControleDataSet, "CadArquivos").Position = Me.BindingContext(ControleDataSet, "CadArquivos").Count - 1

End Sub

End Class

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde...

Estou desenvolvendo, pela primeira vez, um sistema de busca em VB.Net e Access... O sistema é simples, porém, não consigo fazer as informações do banco de dados correrem nos Texts.

São 4 TextBox, o banco está conectado, mas só aparece a primeira linha do Banco, ele não prosegue a leitura de "próximo" e "anterior" nem "primeiro" e "ultimo".

Já estou vesga... :)

Revirei os materiais do Marcoratti do avesso, mas sempre dá pane...

O controle dos botões eu fiz com BindingContext...

Segue abaixo o código, se alguém puder, me ajude, pleaseee...

Não consigo identificar o erro.. (Y)

------------------------------------------------------------------------------------

Imports System.Data.OleDb

Imports System.IO

Imports System.Drawing

Public Class Form3

Inherits System.Windows.Forms.Form

Dim RecordCount As Integer

Dim Position As Integer

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ControleDataSet.Clear()

'Preenche o DataSet

Me.CadArquivosTableAdapter.Fill(Me.ControleDataSet.CadArquivos)

'Vincula os Controles

Me.txtAssunto.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Assunto")

Me.txtDescricao.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Descricao")

Me.txtArquivo.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Arquivo")

Me.txtGaveta.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Gaveta")

'Adiciona o Handles para o Evento Click

AddHandler Me.btnProximo.Click, AddressOf Validacao

AddHandler Me.btnAnterior.Click, AddressOf Validacao

AtualizaLabel()

End Sub

Private Sub Validacao(ByVal sender As System.Object, ByVal e As System.EventArgs)

'Obtem a quatidade de registros

RecordCount = Me.BindingContext(Me.ControleDataSet.CadArquivos).Count

'Obtem a posicao atual

Position = Me.BindingContext(Me.ControleDataSet.CadArquivos).Position

'Verifica se existem registros

If RecordCount <= 1 Then

Me.btnProximo.Enabled = False

Me.btnAnterior.Enabled = False

AtualizaLabel()

End If

'Analisa se podemos voltar

If sender.Equals(Me.btnAnterior) Then

If RecordCount > 1 Then

Me.BindingContext(Me.ControleDataSet.CadArquivos).Position -= 1

Else

Me.btnAnterior.Enabled = False

End If

End If

'Analisa se podemos avancar

If sender.Equals(Me.btnProximo) Then

Me.BindingContext(Me.ControleDataSet.CadArquivos).Position += 1

Else

Me.btnProximo.Enabled = False

End If

'Obtem a nova posicao

Position = Me.BindingContext(Me.ControleDataSet.CadArquivos).Position + 1

'Recalcula os status dos botoes de navegacao

If RecordCount = Position Then

btnProximo.Enabled = False

Else

btnProximo.Enabled = True

End If

If Position = 1 Then

btnAnterior.Enabled = False

Else

btnAnterior.Enabled = True

End If

'Atualiza o label e mostra a posicao atual

AtualizaLabel()

End Sub

Private Sub AtualizaLabel()

RecordCount = Me.BindingContext(Me.ControleDataSet.CadArquivos).Count

Position = Me.BindingContext(Me.ControleDataSet.CadArquivos).Position

If RecordCount <= 1 Then

lblPosicao.Text = "Sem Registro"

Else

lblPosicao.Text = "Registro " & Position & " de " & RecordCount

End If

End Sub

Private Sub Form3_Unload()

End Sub

Private Sub Form3_Activate()

End Sub

Private Sub Form3_Deactivate()

End Sub

Private Sub CadastrarNovoArquivoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CadastrarNovoArquivoToolStripMenuItem.Click

Form1.Show()

Me.Hide()

End Sub

Private Sub FazerNovaBuscaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FazerNovaBuscaToolStripMenuItem.Click

Form2.Show()

Me.Hide()

End Sub

Private Sub SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SairToolStripMenuItem.Click

Dim Sair As String

Dim Cancel As Integer

Sair = MsgBox("Tem certeza de que deseja sair do sistema?", MsgBoxStyle.Exclamation + vbYesNo, "::: Controle de Arquivos :::")

If Sair = vbYes Then

End

Else

Cancel = True

End If

End Sub

Private Sub Form3_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

If MessageBox.Show("Tem certeza de que deseja sair do sistema?", "Closing", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then

e.Cancel() = True

Else

End

End If

End Sub

Private Sub lklAlterar_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lklAlterar.LinkClicked

Form4.Show()

Me.Hide()

End Sub

Private Sub lklExcluir_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lklExcluir.LinkClicked

'Confirmar exclusao de registro

Dim Resp As Integer

Resp = MsgBox("Tem certeza que deseja excluir este registro?", MessageBoxButtons.YesNo, "::: Controle de Arquivos :::")

If Resp = vbYes Then

Me.BindingContext(ControleDataSet, "CadArquivos").RemoveAt(Me.BindingContext(ControleDataSet, "CadArquivos").Position)

End If

End Sub

Private Sub txtAssunto_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAssunto.TextChanged

End Sub

Private Sub btnProximo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProximo.Click

'Incrementa a propriedade Position property do objeto BindingContext para mover um registro para frente.

Me.BindingContext(ControleDataSet, "CadArquivos").Position += 1

End Sub

Private Sub btnAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnterior.Click

'Decrementa a propriedade Position property do objeto BindingContext para mover um registro para trás.

Me.BindingContext(ControleDataSet, "CadArquivos").Position -= 1

End Sub

Private Sub btninicio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninicio.Click

Me.BindingContext(ControleDataSet, "CadArquivos").Position = 0

End Sub

Private Sub btnfim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfim.Click

Me.BindingContext(ControleDataSet, "CadArquivos").Position = Me.BindingContext(ControleDataSet, "CadArquivos").Count - 1

End Sub

End Class

Não consegui enteder muito bem, se quizer ajuda com isto me manda um e-mail :

mlobo@cmnetsolucoes.com.br

[]'s!


-------------------------------------------------------------

Marcos Lobo

Analista Desenvolvedor / Sócio Gerente Wolfinfo.Net

-------------------------------------------------------------

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Esse tópico é útil para você?
Então compartilhe e ajude outros internautas!
Entre para seguir isso  
Seguidores 0

  • NOVIDADES DO SITE BABOO

  • Posts

    • Bom dia. Alguém pode me dizer onde realmente consigo os drivers de controladores de rede e de vídeo?? Manufacturer   Product   SerialNumber             Version
      DIGIBOARD      G41M-S    To be filled by O.E.M.   5.0 MSI - CU - 7592
    • 1- não, dependendo é até melhor. Faço assim há anos. 2- Se sua fonte não dispõe, o que eu duvido, precisará comprar adaptadores. Mas ela deve ter sim, são mais achatados e costuma tar escrito SATA neles. http://www.robotizando.com.br/arquivos/pinagem/sata-pinout.png
    • Então Caze, você disse que os cabos RCA servem para TVs antigas, que não possuem entradas HDMI. Eu sei que o cabo HDMI serve para capturar com mais qualidade. Os cabos RCA conseguem capturar com uma boa qualidade? Por exemplo, um 720p?  Mas então... Eu comprei essa placa na china e o cabo RCA que veio com ela é diferente... Como eu não entendo disso, eu pesquisei e vi que se chama Cabo Vídeo Componente. Eu tenho uma televisão no quarto, antiga de tubo... E ela não tem entrada HDMI, então eu tentei usar os cabos de Vídeo Componente nela e acabou dando certo... na verdade... meio certo. Eu consegui capturar a imagem da TV, utilizando o Cabo Vídeo Componente, porém, a imagem que chega para a placa de captura é em preto e branco. LINK DO VÍDEO SE QUISER VER: https://www.YouTube.com/watch?v=1noTgnt-lKE&feature=youtu.be Eu fiz isso daqui: [Eu sei que os cabos branco e vermelho do RCA, são áudios... Só conectei-os ali, por conectar.] Eu dei mais uma pesquisadinha e vi que os cabos de vídeo componente, servem para cada um levar uma cor de imagem... é isso mesmo?  Se o branco e o vermelho do RCA são os áudios, logo, somente o amarelo é o vídeo. Pergunta 1: É por isso que a imagem está chegando em preto e branco, na placa de captura? Por que a imagem do vídeo, que vem do RCA, só está entrando em "uma cor" do cabo vídeo componente? Ou não é isso? Pergunta 2: Se for isso mesmo, existe um adaptador, que possa pegar o vídeo do cabo RCA (cabo amarelo) e jogar pros 3 cabos do vídeo componente? Em fim, acho que você entendeu. Se existir um adaptador para isso, ou alguma outra maneira, por favor, me diga.
    • Olá Rafael.   a IFARO tem uma solução para validação e segmentação de emails.   possuímos uma base com 40 milhões de emails segmentados por região, Cidade, sexo e etc.   e também validamos sua lista de email para envio de email marketing.   http://www.ifaro.com.br/lp/datafaro/index.html
    • Amigo, boa noite. Muito obrigado pela ajuda! Pesquisarei estes HDs aí. Dúvidas: 1. Ter o SO instalado num HD e os jogos instalados em outro HD faz com que fiquem mais lentos? 2. Também preciso comprar os cabos de energia e sata? Abraços!
    •  Não há atualmente nenhuma ferramenta de decodificação automática de arquivos criptografados por Spora.. Tente: https://esupport.trendmicro.com/en-us/home/pages/technical-support/1105975.aspx Por aqui nada a fazer..  
    • Olá, Boa Noite! Meu PC está infectado com esse vírus chamado spora ransomware. Já fiz todo o procedimento solicitado no tópico oficial. Segue meu log para exame Aguardo instruções. Obrigada! Logfile of Trend Micro HijackThis v2.0.4
      Scan saved at 20:55:35, on 24/02/2017
      Platform: Windows 7 SP1 (WinNT 6.00.3505)
      MSIE: Internet Explorer v11.0 (11.00.9600.17840)
      Boot mode: Normal Running processes:
      C:\PROGRA~2\GbPlugin\GbpSv.exe
      C:\Program Files (x86)\Skype\Phone\Skype.exe
      C:\Program Files (x86)\Dropbox\Client\Dropbox.exe
      C:\Program Files (x86)\Skype\Browser\SkypeBrowserHost.exe
      C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
      C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
      C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
      C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
      C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
      C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
      C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
      C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
      C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
      C:\Users\User\Downloads\HijackThis (1).exe
      C:\Windows\SysWOW64\DllHost.exe R1 - HKCU\Software\Microsoft\Internet Explorer\Main,Search Bar = Preserve
      R1 - HKCU\Software\Microsoft\Internet Explorer\Main,Search Page = http://go.microsoft.com/fwlink/?LinkId=54896
      R0 - HKCU\Software\Microsoft\Internet Explorer\Main,Start Page = 
      R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Default_Page_URL = http://go.microsoft.com/fwlink/p/?LinkId=255141
      R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Default_Search_URL = http://go.microsoft.com/fwlink/?LinkId=54896
      R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Search Page = http://go.microsoft.com/fwlink/?LinkId=54896
      R0 - HKLM\Software\Microsoft\Internet Explorer\Main,Start Page = http://br.hao123.com/?tn=sdkw_inner_hp_09_hao123_br&guid=7af2992cb84e39b4307bf5b2cf538906
      R0 - HKLM\Software\Microsoft\Internet Explorer\Search,SearchAssistant = 
      R0 - HKLM\Software\Microsoft\Internet Explorer\Search,CustomizeSearch = 
      R0 - HKLM\Software\Microsoft\Internet Explorer\Main,Local Page = C:\Windows\SysWOW64\blank.htm
      R0 - HKCU\Software\Microsoft\Internet Explorer\Toolbar,LinksFolderName = 
      F2 - REG:system.ini: UserInit=userinit.exe
      O2 - BHO: Groove GFS Browser Helper - {72853161-30C5-4D22-B7F9-0BBC1D38A37E} - C:\PROGRA~2\MICROS~1\Office14\GROOVEEX.DLL
      O2 - BHO: Java(tm) Plug-In SSV Helper - {761497BB-D6F0-462C-B6EB-D4DAF1D92D43} - C:\Program Files (x86)\Java\jre1.8.0_101\bin\ssv.dll
      O2 - BHO: URLRedirectionBHO - {B4F3A835-0E21-4959-BA22-42B3008E02FF} - C:\PROGRA~2\MICROS~1\Office14\URLREDIR.DLL
      O2 - BHO: G-Buster Browser Defense CEF - {C41A1C0E-EA6C-11D4-B1B8-444553540003} - C:\Program Files (x86)\GbPlugin\gbiehcef.dll
      O2 - BHO: Java(tm) Plug-In 2 SSV Helper - {DBC80044-A445-435b-BC74-9C25C1C588A9} - C:\Program Files (x86)\Java\jre1.8.0_101\bin\jp2ssv.dll
      O4 - HKLM\..\Run: [Dropbox] "C:\Program Files (x86)\Dropbox\Client\Dropbox.exe" /systemstartup
      O4 - HKCU\..\Run: [Skype] "C:\Program Files (x86)\Skype\Phone\Skype.exe" /minimized /regrun
      O4 - HKCU\..\Run: [CCleaner Monitoring] "C:\Program Files\CCleaner\CCleaner64.exe" /MONITOR
      O4 - HKCU\..\Run: [GoogleChromeAutoLaunch_BCEA24321E5E4F1401136BBEDFB545FE] "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" --no-startup-window /prefetch:5
      O4 - Startup: BR758-03HRR-TOFOT-ZTKTO-RRZZT-XXAYY.html
      O9 - Extra button: Enviar para o OneNote - {2670000A-7350-4f3c-8081-5663EE0C6C49} - C:\Program Files (x86)\Microsoft Office\Office14\ONBttnIE.dll
      O9 - Extra 'Tools' menuitem: &Enviar para o OneNote - {2670000A-7350-4f3c-8081-5663EE0C6C49} - C:\Program Files (x86)\Microsoft Office\Office14\ONBttnIE.dll
      O9 - Extra button: &Anotações Vinculadas do OneNote - {789FE86F-6FC4-46A1-9849-EDE0DB0C95CA} - C:\Program Files (x86)\Microsoft Office\Office14\ONBttnIELinkedNotes.dll
      O9 - Extra 'Tools' menuitem: &Anotações Vinculadas do OneNote - {789FE86F-6FC4-46A1-9849-EDE0DB0C95CA} - C:\Program Files (x86)\Microsoft Office\Office14\ONBttnIELinkedNotes.dll
      O11 - Options group: [ACCELERATED_GRAPHICS] Accelerated graphics
      O15 - Trusted Zone: http://www.caixa.gov.br
      O17 - HKLM\System\CCS\Services\Tcpip\..\{BCDF52C3-729C-46A7-B35B-E5CFB9FBDDD8}: NameServer = 8.8.8.8,8.8.4.4,4.2.2.1,4.2.2.2,208.67.222.222,208.67.220.220,8.26.56.26,8.20.247.20,156.154.70.1,156.154.71.1
      O18 - Filter hijack: text/xml - {807573E5-5146-11D5-A672-00B0D022E945} - C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSOXMLMF.DLL
      O20 - Winlogon Notify:  GbPluginCef - C:\Program Files (x86)\GbPlugin\gbiehCef.dll
      O23 - Service: Adobe Acrobat Update Service (AdobeARMservice) - Adobe Systems Incorporated - C:\Program Files (x86)\Common Files\Adobe\ARM\1.0\armsvc.exe
      O23 - Service: Adobe Flash Player Update Service (AdobeFlashPlayerUpdateSvc) - Adobe Systems Incorporated - C:\Windows\SysWOW64\Macromed\Flash\FlashPlayerUpdateService.exe
      O23 - Service: @%SystemRoot%\system32\Alg.exe,-112 (ALG) - Unknown owner - C:\Windows\System32\alg.exe (file missing)
      O23 - Service: Serviço Atualização do Dropbox (dbupdate) (dbupdate) - Dropbox, Inc. - C:\Program Files (x86)\Dropbox\Update\DropboxUpdate.exe
      O23 - Service: Serviço Atualização do Dropbox (dbupdatem) (dbupdatem) - Dropbox, Inc. - C:\Program Files (x86)\Dropbox\Update\DropboxUpdate.exe
      O23 - Service: DbxSvc - Unknown owner - C:\Windows\system32\DbxSvc.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\efssvc.dll,-100 (EFS) - Unknown owner - C:\Windows\System32\lsass.exe (file missing)
      O23 - Service: @%systemroot%\system32\fxsresm.dll,-118 (Fax) - Unknown owner - C:\Windows\system32\fxssvc.exe (file missing)
      O23 - Service: Gbp Service (GbpSv) - GAS Tecnologia - C:\PROGRA~2\GbPlugin\GbpSv.exe
      O23 - Service: Serviço do Google Update (gupdate) (gupdate) - Google Inc. - C:\Program Files (x86)\Google\Update\GoogleUpdate.exe
      O23 - Service: Serviço do Google Update (gupdatem) (gupdatem) - Google Inc. - C:\Program Files (x86)\Google\Update\GoogleUpdate.exe
      O23 - Service: @%SystemRoot%\system32\ieetwcollectorres.dll,-1000 (IEEtwCollectorService) - Unknown owner - C:\Windows\system32\IEEtwCollector.exe (file missing)
      O23 - Service: @keyiso.dll,-100 (KeyIso) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)
      O23 - Service: @comres.dll,-2797 (MSDTC) - Unknown owner - C:\Windows\System32\msdtc.exe (file missing)
      O23 - Service: @%SystemRoot%\System32\netlogon.dll,-102 (Netlogon) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)
      O23 - Service: @%systemroot%\system32\psbase.dll,-300 (ProtectedStorage) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)
      O23 - Service: @%systemroot%\system32\Locator.exe,-2 (RpcLocator) - Unknown owner - C:\Windows\system32\locator.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\samsrv.dll,-1 (SamSs) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)
      O23 - Service: ScsiAccess - Unknown owner - C:\Program Files (x86)\Photodex\ProShow Producer\ScsiAccess.exe
      O23 - Service: Skype Updater (SkypeUpdate) - Skype Technologies - C:\Program Files (x86)\Skype\Updater\Updater.exe
      O23 - Service: @%SystemRoot%\system32\snmptrap.exe,-3 (SNMPTRAP) - Unknown owner - C:\Windows\System32\snmptrap.exe (file missing)
      O23 - Service: @%systemroot%\system32\spoolsv.exe,-1 (Spooler) - Unknown owner - C:\Windows\System32\spoolsv.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\sppsvc.exe,-101 (sppsvc) - Unknown owner - C:\Windows\system32\sppsvc.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\ui0detect.exe,-101 (UI0Detect) - Unknown owner - C:\Windows\system32\UI0Detect.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\vaultsvc.dll,-1003 (VaultSvc) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\vds.exe,-100 (vds) - Unknown owner - C:\Windows\System32\vds.exe (file missing)
      O23 - Service: @%systemroot%\system32\vssvc.exe,-102 (VSS) - Unknown owner - C:\Windows\system32\vssvc.exe (file missing)
      O23 - Service: Warsaw Technology - GAS Tecnologia LTDA - C:\Program Files\Diebold\Warsaw\core.exe
      O23 - Service: @%SystemRoot%\system32\Wat\WatUX.exe,-601 (WatAdminSvc) - Unknown owner - C:\Windows\system32\Wat\WatAdminSvc.exe (file missing)
      O23 - Service: @%systemroot%\system32\wbengine.exe,-104 (wbengine) - Unknown owner - C:\Windows\system32\wbengine.exe (file missing)
      O23 - Service: @%Systemroot%\system32\wbem\wmiapsrv.exe,-110 (wmiApSrv) - Unknown owner - C:\Windows\system32\wbem\WmiApSrv.exe (file missing)
      O23 - Service: @%PROGRAMFILES%\Windows Media Player\wmpnetwk.exe,-101 (WMPNetworkSvc) - Unknown owner - C:\Program Files (x86)\Windows Media Player\wmpnetwk.exe (file missing) --
      End of file - 8681 bytes
         
    •   Seguem duas fórmulas para contar as ocorrências de "Prescrição" na coluna 'J' em duas situações: primeira, filtrando a coluna 'J', segunda, não filtrando a coluna 'J'. 1a. situação - uma ou mais colunas filtradas e a coluna 'J' filtrada para exibir somente "Prescrição"
      =SUBTOTAL(103;J:J)-1 2a. situação - uma ou mais colunas filtradas e a coluna 'J' não filtrada
      =SOMARPRODUTO(SUBTOTAL(3;DESLOC(J2;LIN(A2:A1000)-LIN(A2);0));(J2:J1000="Prescrição")+0)
      Resumo: se for filtrar 'J' utilize qualquer das duas, se não for filtrar 'J' utilize a segunda fórmula.
    • Sei disso, mas o que vou fazer? "Seguinte chefe, eu me recuso a instalar e configurar as máquinas pros usuários trabalharem, porque o Office é pirata." Eu vivo sugerindo a compra do Office e sempre em busca de promoções pra ver se ajuda, mas eu sou o peão aqui... ¯\_(ツ)_/¯
O site BABOO está no ar para informar e ajudar o internauta de Windows. Este site foi publicado em 1999 por Aurélio "Baboo", engenheiro e um dos maiores especialistas brasileiros em Windows, que trabalha profissionalmente com esse sistema operacional desde 1987. Desde 2004 ele é premiado anualmente pela Microsoft como MVP (Most Valuable Professional) pela sua contribuição e ajuda à comunidade de usuários de Windows.

Em 2001 foi criado o
Fórum do BABOO para ajudar o internauta brasileiro a solucionar problemas e dúvidas sobre Windows, Segurança, Office, Hardware e outros temas. Desde 2010 a Microsoft também tem premiado o Mr.Million, administrador da área de Segurança do Fórum do BABOO, pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Atualmente ele é o único MVP brasileiro de Segurança em desktop.

O BABOO é o único site brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows e que participa diariamente e ativamente nos comentários e discussões do site e fórum BABOO.