[Resolvido]Localizar com várias condições

Boa tarde

Tenho esta função da autoria do Mestre JPaulo para abrir um Form com 2 condições

DoCmd.OpenForm "Produçao", , , "[Espuma]='" & Me![Espuma] & "' AND [Altura]= '" & Me![Altura] & "'"

Dá erro no campo "Altura". Os dados do campo altura são assim " 0,025, 1,20, 1,19 ... etc "

Tente assim:

DoCmd.OpenForm "Produçao", , , "[Espuma]='" & Me![Espuma] & "' AND [Altura]= " & Me![Altura]

A questão está nas aspas.

Boa tarde Criquio

Erro 3075

Erro de sintaxe (Virgula) na expressão da consulta '[Espuma]= 'SP14' and [Alt]=0,025

Se não é texto nunca levará as aspas simples.

Pode fazer como o Criquio lhe passou ou somente com as aspas duplas.

Código:


DoCmd.OpenForm "Produçao", , , "[Espuma]='" & Me![Espuma] & "' AND [Altura]= " & Me![Altura] & ""


Boas JPaulo

Continua erro 3075

Boa tarde, Assis

Suponho que o campo espuma seja texto e o campo altura seja número
Não nomeie o controlo com o nome do campo
veja se dá:
DoCmd.OpenForm "Produçao", , , "[Espuma]='" & Me![TxtEspuma] & "' AND [Altura]= " & Me![TxtAltura]
Cumprimentos,

Boa tarde
E desde já o meu obrigado a todos
Eis o meu Exemplo.

http://dl.dropbox.com/u/8169944/Mapa%20Assis%20%281%29.mdb

Corrigido Peço desculpa

Já numa duvida sua anterior, lhe tinha dito que as virgulas têm de ser substituídas por ponto na pesquisa.

Private Sub Comando63_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "PlacasRecuperadasResumoTotal"
stLinkCriteria = "[espuma]='" & Me![Espuma] & "' AND [Alt]=" & Replace(Me![TXTAlt], ",", ".") & ""
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

Bons estudos...

Obrigado JPaulo