Perk
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 14/08/2007 16:57 hs
Preciso usar esta fórmula : Principal.Report1.SelectionFormula = "{movest.Numdoc}='" & Txt_Sai_Numdoc & "'" Só que o campo Numdoc no BD é numérico e neste momento de compará-lo ao Txt_Sai_Numdoc o programa dá o erro: 20515 - A number is required here. Não posso mudar o campo no BD para Text, como solucionar isto ?
<<<< Vivendo e aprendendo >>>>
|
|
|
|
|
|
Álvaro
|
GUARULHOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/08/2007 08:07 hs
Perk, verifique pois isso está falando que um número é requerido no banco, o que você pode fazer é entrar no banco via visdata ou acess e nesse campo tirar a opção required, assim provavelmente ele não dará esse erro e use também o isnumeric ou o val na frente, pois isso transforma tudo de texto para número mesmo que o banco esteja em branco como aparentemente é o seu caso
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
Perk
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/08/2007 08:22 hs
Alvaro, Não resolveu. No BD ele já está como não requerido. Todos os registros tem informação neste campo, pois ele é o nro da NF, e mesmo estando como não requerido, no preenchimento dele no programa ele é obrigatório. Usar alguma função que converta o Txt_Sai_Numdoc para numérico também não resolveu, continua sempre dando o mesmo erro. E o engraçado é que se eu forço usando o código abaixo dá certo: Principal.Report1.SelectionFormula = "{movest.numdoc}= 171953"
<<<< Vivendo e aprendendo >>>>
|
|
|
|
Álvaro
|
GUARULHOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/08/2007 09:59 hs
Agora que eu vi, quando se é um número não é necessário utilizar a aspas simples ' , apenas quando se tentar fazer uma busca por texto
Tenta assim
Principal.Report1.SelectionFormula = "{movest.Numdoc}=" & Txt_Sai_Numdoc.text
Quando você tenta forçar, você já está jogando um valor fixo para esse campo, porém o que ele não estava conseguindo entender era que o campo tinha um valor numérico e sem as aspas simples provavelmente deve funcionar
Abaixo coloquei uma busca no banco com a consulta por numero
"select * from ItensSaidaSimplesRemessa where nnota=" & TxtNf.Text
E aqui é uma atualização com os dados da tela, note que quando tem valor não existe aspas simples
DB.Execute "update pedido set ipi='" & TxtIpi.Text & "',totalunit='" & TxtTotalItens.Text & "',desconto='" & TxtDesconto.Text & "',totalpedido='" & LblTotalPedido.Caption & "' where npedido=" & Val(TxtPedido.Text) & " and complementopedido=" & Val(TxtComplemento.Text)
Abraço e que DEUS te abençõe, espero poder ter te ajudado
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
Perk
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/08/2007 12:17 hs
Agora sim! Finalmente descobri como fazer isto, que já era um problema antigo. Super obrigado Álvaro
<<<< Vivendo e aprendendo >>>>
|
|
|
|
