[Resolvido]Formatos de numeros criando inconsistencias em instrucao SQL !

Ola pessoal, tudo bem ?

Será que alguem pode me ajudar na duvida a seguir:
Tenho uma instrução SQL que tenta atualizar informacao no campo HPlanejada, da tabela tblPlanejaHoras, aonde a data for igual a DtDisponivel, como segue:
CurrentDb.Execute ("UPDATE tblPlanejaHoras " & _
"SET [HPlanejada] = " & lngHorasDisponiveis & _
" WHERE DtDisponivel = #" & Format(rst!DtDisponivel, "mm/dd/yyyy") & _
"# AND Matricula = '" & NomeFuncionario & "'")

Ocorre que, quando eu altero no Painel de Controle do Windows, para o padrao de numero em portugues, isto é: 10.000,00, entao ele me retorna um erro quando tento atualizar o campo para valores diferentes de 0(zero), se uso o padrao americano, isto é: 10,000.00, entao ele atualiza normalmente. O que pode estar ocorrendo ?
Na tabela tblPlanejaHoras, o campo esta como Standard com 2 casas decimais, na declaracao do codigo o valor que sera atribuido ao campo, no caso lngHorasDisponiveis, está como double.

Obrigada a quem puder me ajudar.

Juliana

Tenta deixar o campo onde é inserido o valor apenas com mascara de monetario, assim qnd for enviar para o sql (onde a coluna deve estar como money) ele receberá o valor como float e o sql se encarrega para converter pra money.
Tente rever as colunas da tabela onde é hora mude para datetime, isso pode parecer bobagem mas qnd vc precisar fazer uma migração de dados pra outro banco vai te poupar muito trabalho.

Oi, obrigada, mas nao deu certo, no caso do valor das horas, eu estou calculando como numerico, pois sera muito complicado tratar como horas (neste caso), porem, independente disto, a grande questao esta no fato de nao aceitar o formato Portugues, por que sera ? Existe alguma forma de formatar o valor, assim como formatei a data, direto na instrucao SQL :?

Ju

Entao ju, isto ocorre pelo motivo q vc mesmo disse, no padrao brasileiro colocamos a virgula como centavos e no float ele coloca o ponto (.) para realizar a fração. voce pode tentar fazer um update transformando as datas com o cdate do proprio access, (tenta criar uma rotina no vba pra ler campo por campo e alterar o valor q ele recebe com o cdate e fazer um update em seguida)

O campo data vc pode somar como se fosse numerico só indicar o q vc esta somando usando DateAdd ex: DateAdd("h", 19, dt1)
Ex:

Set rs = db.OpenRecordset(SELECT * FROM tblPlanejaHoras)
Do While Not rsS.EOF
VARIAVEL = cdate(Format(rs.Fields("campodata"),"dd/mm/yyyy HH:ii:ss"))
chaveprimaria = rs.Fields("campoControlador")
db.execute "UPDATE tblPlanejaHoras SET campodata = " & VARIAVEL & " WHERE campoControlador = " & chaveprimaria
rsS.MoveNext
Loop

explicando...
1 Voce abre a tabela que quer alterar os dados
2 vai lendo campo por campo até o final do arquivo "EOF"
3 pega a o valor que precisa ser alterado e a sua chave primaria
4 faz um update e passa pro proximo registro
5 pronto vc normalizou para o formato necessario para sua nova base

se nao puder gravar na mesma tabela por conflito de tipo de dado inserido (tipo text em campo int) tenta gravar em uma tabela temporaria.

Escreve aqui se ajudou ou nao...

Oi, entao, ajudou do ponto de vista d eme ensinar, mas nao para aquilo que preciso. Na verdade nao quero trabalhar com datas, quero e preciso trabalhar com numeros, a pergunta é, como fazer, ja que o sofwtre sera utilizado nos dois padroes (portugues e americano) ?

Ju

Uma ideia pode ser deixar o número sem formatar na tabela, formatando-o apenas no form ou relatório.

Oi Criquio...anda sumido, que houve ?

Bem, sua dica nao deu certo nao, se houver outra, me envia....mas independente do envio, muito obrigada.

Ju

Boa ideia do Criquio.

tenta fazer um update como eu falei antes e usa o replace para remover todas as virgulas e pontos (ou substituir)

Replace(string, strProcura, strSubstPor, Inicio, Contador, Compare)

String - é a string a ser alterada
strProcura - é a string a procurar em
strSubstPor - é a string usada para substituir a string
Inicio - indica o incio da busca por . (Opcional)
Contador - indica o número máximo de vezes que será substituida
Compare - o modo de comparação a ser efetuada.

Exemplo:

Frase = " Geralmente , temos um problema , quando a temperatura aumenta "

NovaFrase = Replace(Frase, "," , ";" ) retorna => "Geralmente ; temos um problema ; quando a temperatura"

http://www.macoratti.net/strings.htm

Espero q lhe traga novas ideias

Legal, deu certo...obrigada.

Juliana

Bom que funcionou. Quanto ao meu sumiço, estou meio de férias no momento. Tive uma semana de férias completas, quando estava viajando, e agora estou meio parado e meio trabalhando