JMRF

Boa noite, Me indicaram os códigos abaixo: Private Sub txtValor_materiais_produtos_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtValor_materiais_produtos.TextChanged txtValor_materiais_produtos.Text = FormatCurrency(txtValor_materiais_produtos.Text, 2) End Sub Private Sub txtValor_unitario_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtValor_unitario.TextChanged txtValor_unitario.Text = FormatCurrency(txtValor_unitario.Text, 2) End Sub Private Sub txtValor_estoque_atual_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtValor_estoque_atual.TextChanged txtValor_estoque_atual.Text = FormatCurrency(txtValor_estoque_atual.Text, 2) End Sub isso para que nos campos: - Valor mercadorias produtos - Valor unitário e - Valor estoque atual ficasse configurado para Moeda R$1.025,32, por exemplo. Realmente funciona, só que quando eu tento incluir um novo cadastro me dá a seguinte mensagem: A conversão da seqüência de caracteres '' no tipo 'Double' não é válida. Creio que é porque quando clico no botão incluir todos os campos do Form ficam vazios, para receberem os novos dados, e então já dá de cara o erro, porque os campos estão vazios: -Valor materiais produtos -Valor unitário -Valor estoque atual Como poderei resolver esse problema. Podem me ajudar. Muito obrigado JMRF

Boa noite, Sei que tem um recurso no VB 2008 onde a gente seleciona uma palavra, em parte ou em todo o Cógido e substitui por outra. Como e onde faço isso: Tipo: quero substituir todas as palavras "MERCADORIAS" por "MATERIAIS" em meu código. Se puderem me ajudar ficarei muitíssimo grato. Desde já muito obrigado JMRF

Bom dia, Xistyle, Funcionou a multiplicação, porém eu fiz dois testes: 1- deixei um dos campos sem valor e depois 2-coloquei uma letra em um dos campos e ao finalizar a operação não me deu nenhuma mensagem de erro, mas quando coloco valores numéricos nos dois campos ele multiplica legal. Pode me orientar algo? Obrigado desde já JMRF

Boa tarde, Aê pessoal, Peço a ajuda de vocês para o seguinte: Preciso multiplicar a textbox1 x textbox 2 e na textbox3 aparecer o resultado da multiplicação. Ex: 10 x R$2,52 = R$25,20. Alguém pode me indicar como escrevo esse código. Não tenho nem noção por onde começar. Obrigado a todos. JMRF

Boa tarde, Quem pode me dar uma dica, por favor. O Código abaixo uso para formatar o textbox valor_unitário_saidas para valor monetátio. Então à medida que digito no textbox vão aparecendo os números com os pontos, vírgulas e os zeros tudo conforme eu digito, e quando o textbox perde o foco aparece o valor como digitado. Exemplo: R$1,52 mas quando clico em confirmar acontece que: 1 - O número que aparece no textbox fica sem os dígitos depois da vírgula, mas no BD o número é gravado com as casas depois da vírgula. 2 - Se o valor digitado é tipo 1,50 ele mosta no textbox depois de clicar em confirmar, apenas 1, se eu digitar 1,51 ele mosta no textbox 2, ou seja ele arredonda, para baixo se menor ou igual a 50 depois da vírgula ou para mais se igual ou maior que 51. O BD Access está formatada a coluna como Moeda.No BD fica gravado R$1,51, o valor que realmente digitei no textbox. Digitei para teste no textbox o valor 1123568 e saí do textbox (perdeu o foco) o número ficou formatado no textbox assim: R$ 1.123.568,00, perfeito, com os pontos, vírgula e o R$. Mas quando clico em confirmar fica no textbox o valor sem pontos, sem vírgula, sem R$ e sem os zeros ou seja sem formatação nehuma = 1123568.Fui até o BD Access abri e lá está gravado: R$ 1.123.568,00. Ou seja, no Banco está gravando tudo legal do jeitinho certo. O problema é no Formulário que não aparece no TextBox o valor formatado igual moeda. Dá para ajudar? Desde já meu muito Obrigado JMRF