mdomingos Postado Dezembro 11, 2009 Denunciar Share Postado Dezembro 11, 2009 Galera, tenho um form que lança dados um um banco no Access o código é:Private Sub ClientesBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesBindingNavigatorSaveItem.Click Dim flg_test As Boolean Me.Validate() Me.ClientesBindingSource.EndEdit() Me.FornecedoresDataSet.AcceptChanges() flg_test = Me.ClientesTableAdapter.UpdateCadastro(TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, _ TextBox7.Text, TextBox1.Text, TextBox8.Text, TextBox9.Text, TextBox10.Text, CInt(TextBox11.Text)) End SubTenho 11 textbox e tudo funciona bem, porém eu preciso inserir no fom, um checkbox, que terá o valor de -7%Aqui eu estou apanhando, tentei de várias formas colocar dentro do código o seguinte: em outras palavrasif checkbox1 = true thensubtrair do valor de textbox1 o valor de -7%end ifParece simples , mas não estou conseguindo, se alguém puder me ajudar.ValeuMdomingos Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 juninnn Postado Dezembro 13, 2009 Denunciar Share Postado Dezembro 13, 2009 tae manoif checkbox.checked then textbox1.text = cdbl(textbox1.text - (cdbl(textbox1.text) / 100 * 7)) end if Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 mdomingos Postado Dezembro 14, 2009 Autor Denunciar Share Postado Dezembro 14, 2009 Valeu cara, deu certo mesmoUm abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
mdomingos
Galera, tenho um form que lança dados um um banco no Access o código é:
Private Sub ClientesBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ClientesBindingNavigatorSaveItem.Click
Dim flg_test As Boolean
Me.Validate()
Me.ClientesBindingSource.EndEdit()
Me.FornecedoresDataSet.AcceptChanges()
flg_test = Me.ClientesTableAdapter.UpdateCadastro(TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, _
TextBox7.Text, TextBox1.Text, TextBox8.Text, TextBox9.Text, TextBox10.Text, CInt(TextBox11.Text))
End Sub
Tenho 11 textbox e tudo funciona bem, porém eu preciso inserir no fom, um checkbox, que terá o valor de -7%
Aqui eu estou apanhando, tentei de várias formas colocar dentro do código o seguinte: em outras palavras
if checkbox1 = true then
subtrair do valor de textbox1 o valor de -7%
end if
Parece simples , mas não estou conseguindo, se alguém puder me ajudar.
Valeu
Mdomingos
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.