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.
