VB6-COMO LIGAR COMBOBOX COM OPCAO SIM/NAO EM BD
Sou iniciante em vb e gostaria de saber como ligar um combobox tendo ele a opção sim/não em uma tabela do access.Estou fazendo um projeto para Hospital e nele tem um campo chamado Particular que é o tipo da consulta se ela é particular sim ou não.
Qual versão do VS voce esta usando?
Uso o visual basic 6
é possÃvel fazer com o controle checkbox bastando [ô]liga-lo[ô] a uma tabela do banco de dados.
Já com o combo box também é possÃvel, mas precisa mais de código.
mostre um print para entender melhor o que deseja.
Já com o combo box também é possÃvel, mas precisa mais de código.
mostre um print para entender melhor o que deseja.
Queria ligar esse campo particular com essas duas opções
Nesse campo do banco de dados
bom vamos lá, quando você diz ligar quer dizer que, deseja clicar no sim ou não e os dois campos seguintes aparecem ou não, e quando for ler um arquivo que a mesma coisa aconteça?
é isso?
é isso?
Isso quando clicar em sim apareça só o campo seguinte que é o valor,e que não de para digitar nada em convenio e quando clicar em não apareça só o campo campo convenio ,e que não de para digitar nada em valor
No evento clique do combo coloque este codigo
Private Sub Combo1_Click()
If Combo1.Text = [Ô]SIM[Ô] Then
Text1.Visible = False
Text2.Visible = True
Else
Text2.Visible = False
Text1.Visible = True
End If
End Sub
==================================================================
Embora fique mais profissional se ao inves de tornar invisÃvel, melhor desabilitar (enable = false)
Private Sub Combo1_Click()
If Combo1.Text = [Ô]SIM[Ô] Then
Text1.Visible = False
Text2.Visible = True
Else
Text2.Visible = False
Text1.Visible = True
End If
End Sub
==================================================================
Embora fique mais profissional se ao inves de tornar invisÃvel, melhor desabilitar (enable = false)
E pra salvar a informação que contem no combobox no banco de dados faço como ?
Da mesma maneira que salva as outras informações. Você irá capturar a propriedade text do combo.
Ex
CampoParticular = Combo1.Text
Faça seu login para responder