Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Form Pelo ComboBox...

Tutoriais elaborados da comunidade
Avatar do usuário
kedim43
Colaborador
Colaborador
Mensagens: 45
Registrado em: Dom Fev 05, 2012 3:12 pm
Localização: Goias
Contato:

Form Pelo ComboBox...

Mensagem por kedim43 »

Salve Galera! estou de volta com mais uma dica bem simples e de grande ajuda.
Quem não quer acessar seus forms em um só lugar, com mais ações e de forma mais dinâmica.
Então. Vou deixar o passo a passo para todos.
Sintam se a vontade para modificarem o código da forma que lhes for melhor.

Então vamos colocar as mãos no código.

Você irá necessitar de um Combobox e um comandbutton
Apenas isso.

Agora vamos programar o combobox, é bem simples e muito facil de se desenvolver.

Vamos lá.
Seu combobox deve - se iniciar com este comando, veja que já deixei algumas informações a todos, assim, linhas não vão faltar.
Más, o que faz cada linha?
Simples, as linhas são as informações que cada usuário pode acessar, atraves delas, você pode ir diretamente ao Form solicitado, como veremos mais adiante.


Código: Selecionar todos

Private Sub UserForm_Initialize()

Me.Combo_selecao.AddItem "Usuário"
Me.Combo_selecao.AddItem "Ordem de Serviço"
Me.Combo_selecao.AddItem "Apropriar Mão de Obra"
Me.Combo_selecao.AddItem "Funcionário"
Me.Combo_selecao.AddItem "Integração"
Me.Combo_selecao.AddItem "Clientes"
Me.Combo_selecao.AddItem "Empresa"
Me.Combo_selecao.AddItem "Estoque"
Me.Combo_selecao.AddItem "Fornecedor"
Me.Combo_selecao.AddItem "Agenda"
Me.Combo_selecao.AddItem "Baixar Estoque"
Me.Combo_selecao.AddItem "Contas a Pagar"
Me.Combo_selecao.AddItem "Contas a Receber"
Me.Combo_selecao.AddItem "Gasto Com Veiculos"
Me.Combo_selecao.AddItem "Equipamento"
Me.Combo_selecao.AddItem "Visualizar Funcionário"
Me.Combo_selecao.AddItem "Veiculos"
Me.Combo_selecao.AddItem "Saida de Equipamentos"
Me.Combo_selecao.AddItem "Aniversário"
Me.Combo_selecao.AddItem "Ajuda"
Me.Combo_selecao.AddItem "Creditos"
End Sub
Agora vamos para o CommandButton
Este, passo é o principal, para que tudo funcione de forma dinâmica e rapida, Vejamos:
Basta que você altere o nome do form, para a sua aplicação.
Exemplo: Form_funcionario.Show para SEU_FORM.Show

Código: Selecionar todos

Private Sub Command_selecao_Click()

If Combo_selecao.Text = "Funcionário" Then
Form_funcionario.Show

ElseIf Combo_selecao.Text = "Integração" Then
Form_integracao.Show

ElseIf Combo_selecao.Text = "Ordem de Serviço" Then
Form_OrdemServico.Show

ElseIf Combo_selecao.Text = "Usuário" Then
Usuarios.Show

ElseIf Combo_selecao.Text = "Clientes" Then
Form_cliente.Show

ElseIf Combo_selecao.Text = "Empresa" Then
Form_Empresas.Show

ElseIf Combo_selecao.Text = "Estoque" Then
Form_estoque.Show

ElseIf Combo_selecao.Text = "Apropriar Mão de Obra" Then
Form_Horas.Show

ElseIf Combo_selecao.Text = "Fornecedor" Then
Form_fornecedor.Show

ElseIf Combo_selecao.Text = "Agenda" Then
Form_Agenda.Show

ElseIf Combo_selecao.Text = "Baixar Estoque" Then
Form_BaixarEstoque.Show

ElseIf Combo_selecao.Text = "Contas a Pagar" Then
Form_Contas_A_Pagar.Show

ElseIf Combo_selecao.Text = "Contas a Receber" Then
Form_Contas_A_Receber.Show

ElseIf Combo_selecao.Text = "Equipamento" Then
Form_Equipamento.Show

ElseIf Combo_selecao.Text = "Veiculos" Then
Form_Veiculos.Show

ElseIf Combo_selecao.Text = "Gasto Com Veiculos" Then
Form_Gastos.Show

ElseIf Combo_selecao.Text = "Saida de Equipamentos" Then
Form_SaidaEquipamento.Show

ElseIf Combo_selecao.Text = "Visualizar Funcionário" Then
Form_VisualizarFuncionario.Show

ElseIf Combo_selecao.Text = "Aniversário" Then
Form_nascimento.Show

ElseIf Combo_selecao.Text = "Ajuda" Then
Form_Ajuda.Show

ElseIf Combo_selecao.Text = "Creditos" Then
Creditos_Da_Versão.Show

End If

' Aqui se o combobox, for vazio, ele mostra a mensagem e leva o cursor para o combobox em branco.

If Me.Combo_selecao = "" Then
MsgBox ("Selecione Uma Ação Por Gentileza!"), vbInformation, ("Sistema Live - Free")

Me.Combo_selecao.SetFocus
End If

' Aqui, limpa a caixa de seleção após acessar o seu Form.
Me.Combo_selecao = Clear
End Sub
Rapido e facil de se desenvolver.

Assim, sua apliacação poderá ter varias opções de acesso com apenas um Botão de comando, deixando de lado aqueles forms de Menu com varios Botões de acesso.

Bom galera, por hora é isso ai.

Abração e até mais.

Valeu Galera.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder