[Resolvido]Conflito em usar vírgula

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


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

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)

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

Olá, Alexandre Fim

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

1,60 cm

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"

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:

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.

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.