Exemplo Forum

[Rodrigo]

Olá Tomas,

Preciso da sua ajuda. Eu encontrei esse exemplo no seu forum e achei que é perfeito para um projeto que eu vou começar. Mas logo que comecei a mexer nessas ferramento encontrei alguns problemas que não consegui resolver

Nessa ferramenta que vc criou eu tenho que selecionar os funcionários para fazer o lançamento na planilha pedidos.

Tem como colocar uma travar para quando os funcionário não estiverem selecionados mandar uma mensagem e não fazer o lançamento, tipo de uma trava ?
Outra questão: Queria colocar um botão que selecionasse todos funcionário ao mesmo tempo, desconsiderando o cabeçario que inclusive se eu selecionar vai para o banco de dados tbm, ë possível ?

Muito obrigado

[webmaster]

Olá Rodrigo,

Dúvidas! Dúvidas! Dúvidas!

Procure separá-las para podermos ajudar melhor. Vou tentar separar para começar:

Nessa ferramenta que vc criou eu tenho que selecionar os funcionários para fazer o lançamento na planilha pedidos:
Tudo é possível, mas tem o seu esforço. Sim, mas é preciso criar um mínimo de relacionamento entre os dois. Qual será ele? Um funcionário tem vários pedidos e um pedido é só de um funcionário?
Tem como colocar uma travar para quando os funcionário não estiverem selecionados mandar uma mensagem e não fazer o lançamento, tipo de uma trava ?
Sim. Se refere-se ao controle ListBox, basta usar o código abaixo:

Código: Selecionar todos

Private Sub VerificaSelecionados()
    Dim i As Long
    Dim estaSelecionado As Boolean
    For i = 1 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then
            estaSelecionado = True
            Exit For
        End If
    Next
    
    MsgBox estaSelecionado
End Sub

Outra questão: Queria colocar um botão que selecionasse todos funcionário ao mesmo tempo, desconsiderando o cabeçario que inclusive se eu selecionar vai para o banco de dados tbm, ë possível ?
Quase a mesma coisa:

Código: Selecionar todos

Private Sub SelecionaTodos()
    Dim i As Long
    For i = 1 To Me.ListBox1.ListCount - 1
        Me.ListBox1.Selected(i) = True
    Next
End Sub

Lembre-se de que estou ignorando a primeira linha que é a dos títulos da coluna.

Abraços

[Rodrigo]

Olá Tomas,

Funcionou perfeitamente !! Muito obrigado !

Ps.: Na próxima organizo melhor minhas perguntas.