RADIO BUTTON EM VB.NET

JMRF 05/06/2012 09:00:35
#403518

Bom dia,

Estou solicitando, por favor, a ajuda de vocês para a solução do seguinte problema:

Estou trabalhando em um programa de Controle de Estoque onde preciso do seguinte:

1 - Quando eu der ENTRADA ou SAÍDA em algum Material devo selecionar num ComboBox a opção ENTRADA ou SAÍDA.
Se eu selecionar entrada no ComboBox os campos referentes aos dados de entradas, tipo: Nº NFiscal, Data NFiscal, Valor Unitário etc devem ficar ATIVOS e os dados de saídas como: Requisição, dataRequisição, Depto Requisitante etc devem ficar DESATIVADOS e se eu selecionar no ComboBox a opção Saídas lógicamente acontecerá o contrário. Até aí tudo está funcionando legal.

2 - Só que preciso também que ao selecionar a opção ENTRADAS, e ao clicar no Botão INCLUIR, o programa ative as opções de entradas e deixe desativadas as opções de saídas. Ative por Exemplo: Entrada Normal, ative Entrada por Recebimento de Empréstimo Concedido, ative Entrada por Empréstimo Tomado E eu macarei a opção que se fizer necessária e Desative as opções de Saídas, como por exemplo: Saída Normal, desative Saída por Empréstimo Concedido e desative Saída por Pagamento Empréstimo Tomado e ao mesmo tempo verifique se tem uma dessas opções selecionada no RadioButton, de acordo como seja : ENTRADA ou SAÍDA, e isso está funcionando também, e caso não tenha nenhuma dessas opções marcadas no RadioButton, dará a mensagem [Ô]Selecionar uma Opção no Tipo de Movimentação[Ô]. Acontece que com o código que estou postando abaixo, dá a mensagem, então eu marco uma das opções e clico no Botão INCLUIR e continua sem reconhecer que uma opção está marcada no RadioButton e a Mensagem acima é mostrada novamente. Eu estava usando o CheckedListBox e funciona legal só que o CheckedListBox eu posso preencher mais de uma opção ao mesmo tempo o que poderá me fazer errar por esquecimento de desmarcar a opção anterior e selecionar a nova, ficando mais de uma opção selecionada, já no RadioButton eu posso selecionar apenas uma opção, se clicar em outro RadioButton ele automaticamente desmarca a opção anterior. Dá pra ajudar a resolver onde está errado no meu código? Ou me passar um código que eu possa usar nesse caso e resolver esse problema?

Trabalo com:

VB.NET
BANCO DE DADOS : Accesss

Abaixo está o código que estou usando.


Private Sub btnIncluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIncluir.Click

[ô] modo de inclusão
vmodo = [Ô]I[Ô]


If RadioButton1.Checked = False Or RadioButton2.Checked = False Or RadioButton3.Checked = False Or RadioButton4.Checked = False Or RadioButton5.Checked = False Or RadioButton6.Checked = False Then

MessageBox.Show ( [Ô]Selecionar uma opção no Tipo de Movimentação [Ô] )

Else

Try

If CmbEnt_sai_estoque.Text = [Ô]Entradas no Estoque[Ô] Then
hab_campos()
hab_campos_em_comum()
hab_btn()

txtEmpenho.Text = [Ô][Ô]
MaskedData_empenho.Text = [Ô][Ô]
Maskedprocesso.Text = [Ô][Ô]
txtNotas_fiscais.Text = [Ô][Ô]
MaskedData_nota_fiscal.Text = [Ô][Ô]
txtValor_unitario.Text = 0
txtValor_materiais_produtos.Text = 0
txtcod_materiais_produtos.Text = [Ô][Ô]
txtMateriais_produtos.Text = [Ô][Ô]
txtUnidade.Text = [Ô][Ô]
MaskedData_de_entrada.Text = [Ô][Ô]
txtEntradas.Text = [Ô][Ô]
lblMateriais_produtos.Text = [Ô][Ô]
txtEmpenho.Focus()

Else

hab_campos_saidas()
hab_campos_em_comum()
hab_btn()

MaskedRequisicoes.Text = [Ô][Ô]
MaskedData_de_saida.Text = [Ô][Ô]
txtsaidas.Text = [Ô][Ô]
txtDepartamento_requisitante.Text = [Ô][Ô]
txtSupervisao_requisitante.Text = [Ô][Ô]
txtValor_unitario.Text = 0
txtValor_materiais_produtos.Text = 0
txtcod_materiais_produtos.Text = [Ô][Ô]
txtMateriais_produtos.Text = [Ô][Ô]
txtUnidade.Text = [Ô][Ô]
MaskedRequisicoes.Focus()
[ô]Para colocar o cursosr depois de SE no MaskedRequisicoes
Me.MaskedRequisicoes.SelectionStart = 2

End If


Catch ex As Exception
MessageBox.Show([Ô]Erro de gravação de dados[Ô] & vbCrLf & ex.Message, [Ô]ERRO[Ô], MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End Try
End If
End Sub

Aguardo a costumeira ajuda de todos.


Um abraço

JMRF