ERRO EM CONSULTA SQL

GNCNET 30/05/2011 11:02:56
#375302
Estou tendo erro nesta consulta.
run time error 3464 - tipos de dados incompativel na expressão de criterio
BD Access

Private Sub txtorc_click()

[ô]/-/ carregar o combo dos orçamentos
Dim bb As Database
Dim rs As Recordset
Set bb = OpenDatabase(caminho)

Set rs = bb.OpenRecordset([Ô]select * from tblorcam where status_orc <> [ô]rep[ô] and orcamento = [ô][Ô] & txtorc.Text & [Ô][ô] and codcli=[Ô] & txt_codigo.Text)

If rs.RecordCount > 0 Then
Lbl_status_orc = IIf(IsNull(rs!Status_orc), [Ô][Ô], rs!Status_orc)
Else
Exit Sub
End If
[ô]/-\

End Sub


Agradecido,
Gardel
MARCELO.TREZE 30/05/2011 11:07:51
#375303
qual o tipo dos campos:

status_orc
orcamento
codcli
KIKO.WIZZ 30/05/2011 11:38:10
#375309 Resposta escolhida
O campo orçamento não é numérico? Se for, tente tirar as aspas simples.
GNCNET 30/05/2011 11:43:22
#375311
codcli = numero
orcamento = numero
status_orc = text

Marcelo, já estou até com vergonha de tantas ajudas. Obrigado mais uma vez!
GNCNET 30/05/2011 12:35:15
#375315
kiko
resolveu.
obrigado
PARREIRA 30/05/2011 12:37:38
#375316
Você está passando codcli como numero texto
Converta para numero primeiro. Tipo
Dim Codcli as integer
Dim Orcamento as interger

Codcli = cint(txt_codigo.text)
Orcamento = cint(txtorc.text)

Set rs = bb.OpenRecordset([Ô]select * from tblorcam where status_orc <> [ô]rep[ô] and orcamento = [Ô] & Orcamento & [Ô] and codcli=[Ô] & Codlci)
LUIZCOMINO 30/05/2011 12:43:06
#375318
Set rs = bb.OpenRecordset([Ô]select * from tblorcam where status_orc <> [ô]rep[ô] and orcamento = [Ô] & txtorc.Text & [Ô] and codcli=[Ô] & txt_codigo.Text)
Tópico encerrado , respostas não são mais permitidas
Voltar