[Resolvido]Error de Sintaxe 3075

Bom Dia pessoal, tudo bem?

Estou tendo o seguinte problema... Tenho uma linha de código que faz a localização de um número em uma determinada tabela, eu uso os seguintes campos para localizá-lo: o código, a quantidade, nº de nota e indicador...

A questão é que o campo quantidade está como Double na tabela e não como text como os demais...E quando o campo quantidade possui número inteiros (ex: 98) não da problema algum, agora quando tem nº quebrados como 4,2 ele me da erro de operador faltante o erro Run-time error '3075'...

Alguém pode me ajudar?

Detalhe, eu sei q o problema está no campo quantidade pois eu o retirei e código funciona corretamente.. mas eu preciso deste campo para verificação....


Segue a linha:

Set cs = db.OpenRecordset("SELECT * from Numeros where [Material] = '" & wProduto & "' and [Qtd] = " & cs3!Quantidade & " and [Indicador] = '" & cs3![Indicador] & "' and [NF] <> 'S';")

Tente mudar o tipo para Simples ou Decimal.

Tente utilizar a função CDbl

Set cs = DB.OpenRecordset("SELECT * from Numeros where [Material] = '" & wProduto & "' and [Qtd] = " & CDbl(cs3!Quantidade) & " and [Indicador] = '" & cs3![Indicador] & "' and [NF] <> 'S';")

Mas gostaria de ver todo o código.

Olá meninos...

Criquio como eu faço para mudar para simples ou decimal?

JPaulo a função CDbl não funcionou, continua apresentando o mesmo erro...

O código é muito grande, são vários blocos de execução fica complicado de passá-lo...rs

Alguma outra sugestão?

Olá,

Tente assim:

Set cs = db.OpenRecordset("SELECT * from Numeros where [Material] = '" & wProduto & "' and [Qtd] = " & Format(cs3!Quantidade,"#.00") & " and [Indicador] = '" & cs3![Indicador] & "' and [NF] <> 'S';")

Bom...peguei o trecho de começo desse bloco...


Set cs3 = db.OpenRecordset("SELECT * from VALORES where periodo = " & vPeriodo & " and Cod_Filial = '" & Me.lstFilial.ItemData(Me.lstFilial.ItemsSelected.Item(k)) & "' and mod3lanc.Sysid='" & Me.lstSistema.ItemData(Me.lstSistema.ItemsSelected.Item(j)) & "' and arquivo = 'C' order by cod_produto_a;")

If Not cs3.EOF Then
Do While Not cs3.EOF
Set cs4 = db.OpenRecordset("SELECT * from TAB_060 where [P/n_a] = '" & cs3![cod_produto_a] & "';")
If Not cs4.EOF Then
Do While wProduto = cs3.Fields("cod_produto_a")
cs3.MoveNext
If cs3.EOF Then
Exit Do
End If
Loop
If cs3.EOF Then
Exit Do
End If
End If
Set cs4 = db.OpenRecordset("SELECT * from Modelos where [Modelo Estoque] = '" & cs3![cod_produto] & "';")
If Not cs4.EOF Then
vMaterial = Trim(cs4![Modelo Venda]) & Space(20 - Len(Trim(cs4![Modelo Venda])))
Else
vMaterial = Trim(cs3![cod_produto]) & Space(20 - Len(Trim(cs3![cod_produto])))
End If
wProduto = cs3.Fields("cod_produto_a")

Do While wProduto = cs3.Fields("cod_produto_a")
vNF = cs3![Num_doc]
vCfop = cs3![Cfop]

Set cs5 = db.OpenRecordset("SELECT * from Numeros where [Material_a] = '" & wProduto & "' and [Qtd] = " & (cs3!Quantidade) & " and [Indicador] = '" & cs3![Indicador] & "' and [NF_Usada] <> 'S';")

'Preenche-se a NF
If vNF = "" Or IsNull(vNF) Then
If Not cs5.EOF Then
cs5.Edit
cs5!NF_Usada = "S"
cs5.Update
vNF = cs5.Fields("Numero_NF")
End If
Else
vNF = cs3![Num_doc]




Não sei se ajuda muito....rs

Para mudar o tipo na tabela, basta ir nas propriedades do campo e mudar a linha "Tamanho do campo".

Faça o teste, como o Grande Claudio lhe passou ou mesmo formantado o CDbl;

db.OpenRecordset("SELECT * from Numeros where [Material] = '" & wProduto & "' and [Qtd] = " & Format((Cdbl(cs3!Quantidade)),"#.00") & " and [Indicador] = '" & cs3![Indicador] & "' and [NF] <> 'S';")

Usando o Format((Cdbl(cs3!Quantidade)),"#.00")

Quando o valor é inteiro é pra dar problema também?

Já alterei na tabela o Tamanho do campo, tentei o Format sozinho e não funcionaram....

Disponibilize parte do bd para vermos, se possível.

Imagem da tabela... e parte do código eu postei acima...

Olá,

Inclua as linhas abaixo antes da linha que apresenta o erro:

MsgBox cs3!Quantidade
MsgBox cs3!Indicador
MsgBox wProduto

Após executar o programa, quais são os valores apresentados?

Olá... desculpem a demora na resposta...

Usando o Format((cs3!Quantidade), "#,00")

Os valores exibidos são:
2
E
000000100120001435

Sem usar o Format aparecem (esta é justamente a linha do erro):
43,2
E
000000171920000265

O erro continua, mesmo na alteração indicada pelo JPaulo?

db.OpenRecordset("SELECT * from Numeros where [Material] = '" & wProduto & "' and [Qtd] = " & Format((Cdbl(cs3!Quantidade)),"#.00") & " and [Indicador] = '" & cs3![Indicador] & "' and [NF] <> 'S';")

Nesse caso, vamos precisar mesmo do banco de dados para avaliar melhor. Não deveria apresentar erro.

Bom... como eu já tinha o e-mail do JPaulo enviei para ele....

Vou é estar até amanhã a baixar, 322 Megas ???? ....

Ele foi zipado pra você JPaulo?

Sim chegou zipado, estou a trabalhar nele e já encontrei varios problemas no Gigante código.

Logo que estiver, envio.

Impossivel de rever isto tudo num só dia...

Note bem;

Você abre 8 recordset`s e só declara 5 e no final apenas fecha 1.

Tem abertura do mesmo recordset varias vezes, criando inconsistência, por exemplo o cs5!


Conselho:
Primeiramente reveja bem todo o seu projeto e depois vemos isso quando estiver mais direito.

Bom meninos, com as soluções que foram me passadas não funcionou, porém alterei o idioma da máquina de português para inglês e funcionou tanto com números inteiros quanto os "quebrados".... Por isso irei encerrar este post.

Obrigada,