Ir para conteúdo
Fórum Script Brasil

Shigue Hash

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Sobre Shigue Hash

Shigue Hash's Achievements

0

Reputação

  1. Faço pesquisa de registros no Access com datas (de inicio e de fim) Uso 2 modos de procura, ambos dão o mesmo erro: Modo 1: SQL = "Select * From Pedidos " SQL = SQL & "WHERE Data >= #" & DataInicio & "#" SQL = SQL & "AND Data <= #" & DataFim & "# ORDER BY Ordem ASC" Modo 2: SQL = "Select * From Pedidos " SQL = SQL & "WHERE Data BETWEEN #" & DataInicio & "# AND #" & DataFim & "# ORDER BY Ordem ASC" Tem algumas situações em que a busca não traz registros corretos. Em muitas outras buscas, dão perfeitamente certo. Ex: há registros datados de 28/11/2022 e 29/11/2022 no Access Se coloco DataInicio = 28/11/2022 e DataFim = 28/11/2022, a procura diz que não encontrou nenhum registro de 28/11/2022 Se coloco DataInicio = 28/11/2022 e DataFim = 29/11/2022, a procura traz somente registros de 28/11/2022, nada de 29/11/2022 Se Se coloco DataInicio = 28/11/2022 e DataFim = 30/11/2022, a procura traz registros de 28/11/2022 e de 29/11/2022 Tentei de tudo para resolver esse problema, mas infelizmente sem sucesso. Alguém pode ajudar? Obrigado desde já!
  2. Shigue Hash

    WebBrowser

    Uso o WebBrowser (WB) já há algum tempo e nunca tive problema na execução. Sempre usei o WB dentro do modo One-page do formulário. Agora tenho um projeto que usa o Multi-page. Inseri uma nova página no Multi-page e lá coloquei o objeto WB para visualizar PDF. Não sei por qual motivo, muitas vezes (ou seja, nem sempre) a janela do WB não aparece ao abrir o formulário ou quando eu saio e volto à página que contém o WB. No modo editor, o WB está intacto. O que pode ser?
  3. Shigue Hash

    Problema VBA

    Tenho um problema no VBA que apesar de super simples não consigo resolver. Na planilha P1, a célula A10 é a soma dos valores inseridos nas células A2 a A9, em percentual. Células sem dado inserido significam ZERO. Por que dá erro se coloco A2=20%, A3=70% e A4=10% se a soma é 100%? Não dá erro nas outras combinações. Ex: A2=10%, A3=70% e A4=20% Testei com duas subrotinas: uma com IF e outra com CASE. Sub Verifica_If() Valor = Sheets("P1").Range("A10") If Valor <> 1 Then MsgBox ("Errado, a soma deve ser 100%!") GoTo Fim Else MsgBox ("OK, a soma é 100%!") End If Fim: End Sub Sub Verifica_Case() Valor = Sheets("P1").Range("A10") Select Case Valor Case Is = 1 MsgBox ("OK, a soma é 100%!") Case Is < 1 MsgBox ("Errado, a soma deve ser 100%!") Case Is > 1 MsgBox ("Errado, a soma deve ser 100%!") End Select End Sub
×
×
  • Criar Novo...