Lello

Dim Var1 As String Dim Var2 As String Var1 = "123,65" Var2 = "867,01" não Aparece as Casas Decimais Depois q uso a Funcao Format () Debug.Print "Funcao CCUR" Debug.Print Format(CCur(Var1), "#######0,00") Debug.Print Format(CCur(Var2), "#######0,00") Debug.Print "Funcao Val" Debug.Print Format(Val(Var1), "#########0,00") Debug.Print Format(Val(Var2), "#########0,00") Debug.Print "Funcao CDbl" Debug.Print Format(CDbl(Var1), "#########0,00") Debug.Print Format(CDbl(Var1), "#########0,00") não Consegui Entender Isto ainda , No Help Do Vb diz o seguinte: Você deve utilizar as funções de conversão de tipo de dados em vez de Val para fornecer conversões de dados internacionais de um tipo de dados para outro. Por exemplo, quando você utiliza CCur, separadores decimais diferentes, separadores de milhares diferentes e várias opções de moeda são reconhecidas apropriadamente dependendo da definição da localidade em seu computador. Mas não fiz Funcionar, alguém pode Me Ajudar ?

Eu já Descobri , na Verdade o Find não retorna o Registro q eu Estou Posicionado então eu Verifico o Registro Atual ,Se não For eu Procuro .. Muito Obrigado.

Como Posso Montar um Criterio no Find para Procurar Codigo,Valor,Nº Cheque etc Eu so sei passar um parametro . ex. TbClientesCheques.Find "Cnpj= '" & Val(VarChqCgc) & "'", adSearchForward Obrigado .

Graymalkin não sube me explicar Supomos q eu vou procurar o codigo 3 1º posiciono o ponteiro no primerio registro 2º Procuro o codigo 3º Encontro Tento procurar o Codigo 2 não encontro so vou encontrar o 4 5 e ai por diante Se Fechar a Tabela e abrir novamente Funciona ? mas não esta certo correto. você conhece um modo de procura mais facil q funcione ?

Estou com problema na consulta , quando faço a consulta a primeria vez funcionada mas se eu tentar novamente so me traz o que esta para frente não traz o que esta anterior o que esta errado aqui ? estou usando o ADO com Acess o codigo TBclientes.MoveFirst TBclientes.Find "Codigo= '" & Val(TxtCodigo.Text) & "'", adSearchForward If TBclientes.EOF Then MsgBox "Registro Não Encontrado", vbCritical, "Atenção" TBclientes.MoveFirst Else AtualizaText TxtCodigo.SetFocus End If obrigado

Procurei mas so encontrei com servidor web . tem como eu conseguir achar o banco na maquina como se fosse um caminho ex. "\\191.168.1.1\pasta\banco.mdb

alguém pode me dar um ajuda . Como posso Fazer Para conectar a um Banco de dados acess em um micro interligado em banda larga . como eu faço para achar este .mdb