|
|
Postada em 29/03/2008 15:40 hs
estou usando a seguinte forma de salvar os dados no bd: Private Sub cmdAdd_Click()(INSERIR DADOS) cmd.CommandText = "insert into Supplier values('" & txtCode.Text & "','" & txtcpf.Text & '") e Private Sub cmdSearch_Click()(ATUALIZAR DADOS) cmd.CommandText = " update Supplier set name= '" & txtName.Text & "',cpf= '" & txtcpf.Text & "') Como faço para o optionbutton se for CPF = 1 se for CNPJ = 0, eu coloque nas linhas acima '" & optcpf.value & "', só que na tabela do banco salvou verdadeiro / falso, como transformar verdadeiro em 1 e falso 0??? |
|
|
|
|
|
|
|
Postada em 29/03/2008 17:17 hs
supondo que vc queira que para CPF assuma 0 e CNPJ seja 1: "insert into Cadastro (......) values('" & txtCode.Text & "','" & iif(optcpf.value = true, "0", "1" & '");" supondo que vc queira que para CPF assuma 1 e CNPJ seja 0: "insert into Cadastro (......) values('" & txtCode.Text & "','" & iif(optcpf.value = false, "1", "0" & '");" Quanto a formatação aconselho utilizar o MaskEditBox naquele exemplo anterior onde vc formata dois sendo que quando clica no option button cpf então esconde o cnpj e desabilita fazendo o inverso com o campo CPF. NO mask vc precisa apenas cuidar a propriedade Mask e Prompt include mask para CNPJ: ##.###.###/####-## mask para CPF: ###.###.###-## a PROPRIEDADE Prompt Include define se vc quer incluir os separadores como parte da string sendo que se vc usar true então vai gravar com estes caracteres. |
|
|
|
|
|
Postada em 29/03/2008 23:10 hs
eu utilizo MaskEditBox, um para o CPF e outro para o CNPJ sobrepostos no form Quando aciono o button o cpf atribuo à propriedade visible e enable do mask de cnpj como false e do mask do CPF como true. E da forma inversa quando aciono o outro button. apenas preste atenção nas propriedades Mask e PrompInclude deste controle. Na propriedade mask do cpf utilize ###.###.###-## Na propriedade mask do cnpj utilize ##.###.###/####-## A propriedade Prompt Include define se os separadores (.,-,/) serão parte do texto na hora de mover para outra variável. exemplo cpf com Promp include = false quando movido para uma variável texto será apenas os nove dígitos sem os separadores. |
|
|
|
|
|
Postada em 31/03/2008 10:44 hs
BLZ CONSEGUI UTILIZAR O MASKBOX, AGORA PRA SALVAR ISSO NO BANCO EU FAÇO O MESMO ESQUEMA DO OPTIN BUTTON? TEM QUE SALVAR O CPF SE TIVER VALOR NO CAMPO CPF E SALVAR O CNPJ SE TIVER VALOR NO CAMPO CNPJ.... |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 03/04/2008 00:05 hs
PINTOU OUTRO PROBLEMA, NO FORMULARIO DE CADASTRO EU TENHO UM BOTÃO DE PESQUISA, QUANDO MANDO PESQUISAR E SELECIONO O CLIENTE QUE EU QUERO O FORMULARIO TRAZ TODAS INFORMAÇÕES DO CLIENTE, MENOS OS OPTINBUTTONS QUE NÃO VEM MARCADOS SE É CPF OU CNPJ, POREM O TEXTBOX COM O NUMERO VEM PREENCHIDO, E NA TABELA TA SALVO A INFORMAÇÃO NA COLUNA DO OPTIONBUTTUN....1 PARA CPF E 0 PARA CNPJ....ESTOU USANDO ASSIM: Private Sub cmdOk_Click() On Error Resume Next
Load frmCustomerSearch
If rec.State > 0 Then rec.Close
rec.open "select * from Customer where code ='" & CompSearchList.SelectedItem & "'", conn
frmCustomerDetails.txtCode.Text = rec(0)
frmCustomerDetails.txtName.Text = rec(1)
frmCustomerDetails.txtcpf.Text = rec(2) Unload frmCustomerSearch
End Sub O OPTIONBUTTON NESSE CASO SERIA O rec(3) que é a coluna id_cpf da tabela.... |
|
|
|
|
|
Postada em 03/04/2008 08:04 hs
Se na sua tabela está gravado: CPF=1 e CNPJ=0, então, antes de mostrar os dados, você teria que verificar na tabela: Se opção=1, então é CPF e se opção=0, então é CNPJ, aí para mostrar os OptionButton, seria: se opção=1, então OptCpf.Value=True ou se opção=0, então OptCnpj.Value=True. If rec(3)=1 then OptCpf.Value=True ElseIf rec(3)=0 then OptCnpj.Value=True Endif Tenta e veja se dá certo. |
|
|
|
