PROBLEMA COM INSTRUCAO DE SQL

USUARIO.EXCLUIDOS 15/06/2004 18:46:28
#29793
Nesta rotina abaixo não estou conseguindo pegar o campo Idade Maior que o TXTLimite.text
Na tabela idade esta assim= 15 a 19 como texto
Campo txtlimite no formulario = 14

Codigo abaixo:
Private Sub ObterMaximo()
Screen.MousePointer = 11
Set RsTemp = BancoDeDados.OpenRecordset("Select MAX(Posição) as Maximo from súmula where Idade > '" & Limite.Text & "'and Categoria = '" & CmbCategoria & "' and Local = '" & txtlocalcompetição & "' and Data = #" & Format(txtdatacompetição, "mm/dd/yy") & "# ")
If IsNull(RsTemp("Maximo")) Then
TxtPosição.Text = "0001"
Else
TxtPosição.Text = Format$(RsTemp("Maximo") + 1, "0000")
End If
RsTemp.Close
Screen.MousePointer = 0
Exit Sub
End Sub

Temos uma solução para o prolema ou uma maneira de contornar ....
Sds geronimo
CAJU 15/06/2004 20:48:39
#29802 Resposta escolhida
Private Sub ObterMaximo()
Screen.MousePointer = 11
Set RsTemp = BancoDeDados.OpenRecordset("Select MAX(Posição) as Maximo from súmula where Idade > '" & Limite.Text & "' and Categoria = '" & CmbCategoria & "' and Local = '" & txtlocalcompetição & "' and Data = #" & Format(txtdatacompetição, "mm/dd/yy") & "# ")
If IsNull(RsTemp("Maximo")) Then
TxtPosição.Text = "0001"
Else
TxtPosição.Text = Format$(RsTemp("Maximo") + 1, "0000")
End If
RsTemp.Close
Screen.MousePointer = 0
Exit Sub
End Sub

é muito familiar essa rotina...

não tem problema se o campo é texto... quando vc colocar o sinal de maior/menor ele interpreta como número..
Tópico encerrado , respostas não são mais permitidas
Voltar