MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Conflito em usar vírgula

    avatar
    tombr
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 326
    Registrado : 08/04/2018

    [Resolvido]Conflito em usar vírgula Empty [Resolvido]Conflito em usar vírgula

    Mensagem  tombr 28/9/2021, 04:46

    Olá,

    Abri esse novo tópico a pedido do Scandinavo (O código abaixo e dele também).

    Não consigo fazer a filtragem dos dados usando "vírgula" (Exemplo: 1,60 cm).

    O Scandinavo acredita que o conflito está no uso da vírgula. Tanto que ele sugeriu em escrever dessa forma (Exemplo: 160 cm).

    Mas gostaria de saber se é possível fazer a "filtragem das alturas menor/maior" com vírgula mesmo (1,60 cm) ?

    Código:
    Private Sub RtlFiltroAltura_Click()
     Dim AlturaMenor As Variant, AlturaMaior As Variant

       AlturaMenor = InputBox("Introduza a altura menor", "FILTRO POR ALTURA")
       AlturaMaior = InputBox("Introduza a altura maior", "FILTRO POR ALTURA")
       If AlturaMenor = 0 And AlturaMaior = 0 Then
           Me.FilterOn = False
       Else
           Me.Filter = (Me.Altura) & " Between " & AlturaMenor & " and " & AlturaMaior
          Me.FilterOn = True
       End If
    End Sub
    Anexos
    [Resolvido]Conflito em usar vírgula AttachmentAltura (Com Virgula).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (45 Kb) Baixado 2 vez(es)


    Última edição por tombr em 28/9/2021, 21:45, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 13/12/2016

    [Resolvido]Conflito em usar vírgula Empty Re: [Resolvido]Conflito em usar vírgula

    Mensagem  Alexandre Fim 28/9/2021, 10:17

    Tom,

    Sua pesquisa está totalmente equivocada.
    Você não vai consegui filtrar Altura gravada na tabela como Texto. Não vai funcionar.

    Crie um campo na tabela chamado AlturaNum como Inteiro e preencha de acordo o exemplo.
    Ex.: 1,70 = 170
    1,50 = 150

    Em seguida, utilize este filtro:
    Me.Filter = "[AlturaNum] Between " & CInt(Replace(AlturaMenor, ",", "")) & " and " & CInt(Replace(AlturaMaior, ",", "")) & ""


    É isso

    Boa sorte.

    []'s

    FIM

    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 326
    Registrado : 08/04/2018

    [Resolvido]Conflito em usar vírgula Empty Re: [Resolvido]Conflito em usar vírgula

    Mensagem  tombr 28/9/2021, 13:02

    Olá, Alexandre.

    Obrigado pela ajuda.

    Mudei a Altura como tipo de dados: Número.
    É no tamanho do campo coloquei como: Inteiro.

    Anexo postado novamente, mas agora certo (Com ajuda do Scandinavo)
    Anexos
    [Resolvido]Conflito em usar vírgula AttachmentAltura (Número e não Caixa de Texto).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (44 Kb) Baixado 0 vez(es)


    Última edição por tombr em 28/9/2021, 21:19, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 13/12/2016

    [Resolvido]Conflito em usar vírgula Empty Re: [Resolvido]Conflito em usar vírgula

    Mensagem  Alexandre Fim 28/9/2021, 13:14

    Tom,

    Esqueci de avisaR.

    O campo "AlturaNum" se refere a altura do individuo em "centimetros", ou seja, 1,70 = 170 (cm)
    O cálculo é realizado através deste campo.
    É isso

    []'s

    FIM








    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 326
    Registrado : 08/04/2018

    [Resolvido]Conflito em usar vírgula Empty Re: [Resolvido]Conflito em usar vírgula

    Mensagem  tombr 28/9/2021, 17:13

    Olá, Alexandre Fim

    Então não é possível usar vírgula?

    1,60 cm
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 13/12/2016

    [Resolvido]Conflito em usar vírgula Empty Re: [Resolvido]Conflito em usar vírgula

    Mensagem  Alexandre Fim 28/9/2021, 17:21

    Sim. Não é para usar. O campo deve ser inteiro.
    Deve armazenar somente o numero.
    Ou seja 160 é equivalente ao campo texto onde vc armazena "1,60 m"

    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 326
    Registrado : 08/04/2018

    [Resolvido]Conflito em usar vírgula Empty Re: [Resolvido]Conflito em usar vírgula

    Mensagem  tombr 28/9/2021, 17:27

    Então é uma regra do Access. Devo encerrar o tópico?

    Porque o objetivo é usar com vírgula mesmo.

    Mas gostaria de saber se é possível fazer a "filtragem das alturas menor/maior" com vírgula mesmo (1,60 cm) ? escreveu:
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 13/12/2016

    [Resolvido]Conflito em usar vírgula Empty Re: [Resolvido]Conflito em usar vírgula

    Mensagem  Alexandre Fim 28/9/2021, 18:24

    Tom,

    É uma regra de qualquer liguagem.
    O campo que vc quer filtrar é do tipo texto, apesar de conter números também.
    O operador BETWEEN é utilizado em campos numéricos, data, hora e etc.



    tombr gosta desta mensagem

    avatar
    tombr
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 326
    Registrado : 08/04/2018

    [Resolvido]Conflito em usar vírgula Empty Re: [Resolvido]Conflito em usar vírgula

    Mensagem  tombr 28/9/2021, 21:40

    Como não é possível escrever e filtrar as alturas com vírgulas.

    Vou escrever somente deste jeito: 160 cm.

    Nesse caso vou usar o código abaixo passado pelo Scandinavo pela primeira vez:
    Código:
    Private Sub Comando259_Click()
     Dim IdadeMenor As Byte, IdadeMaior As Byte '1,50 cm
       IdadeMenor = Val(InputBox("Introduza a idade menor", "FILTRO POR IDADES"))
       IdadeMaior = Val(InputBox("Introduza a idade maior", "FILTRO POR IDADES"))
       If IdadeMenor = 0 And IdadeMaior = 0 Then
           Me.FilterOn = False
       Else
           Me.Filter = "Val(Alturacm) Between " & IdadeMenor & " and " & IdadeMaior
           Me.FilterOn = True
       End If
    End Sub

    Segue em anexo o projeto.
    Observação: Deu certo fazer a filtragem no campo Altura2 em caixa de texto mesmo.
    Anexos
    [Resolvido]Conflito em usar vírgula AttachmentAltura2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (42 Kb) Baixado 2 vez(es)

      Data/hora atual: 16/10/2021, 17:47