[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


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)

Olá, Alexandre Fim

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

1,60 cm

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:

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.