[Resolvido]Selecionar valor numa checklist com multiplos valores

Boa tarde,

Estou a tentar criar um formulário de novidades na minha empresa, um género de e-mail e gostava de saber quais foram as pessoas que já leram a informação enviada, para isso, criei um checklist com os User's das pessoas e onde poderei selecionar o user em questão que já viu a mensagem enviada.
Porem não seria eu a fazer essa validação mas o formulario, ou seja, quando eles fosse carregar num botão o mesmo iria identificar o User de Rede e fazer um visto no mesmo na checklist. Isto será possivel?

Obrigado

Use Environ("Username").

Bom dia Criquio,

Infelizmente nao entendi como usa-lo.

Código:

Private Sub Comando3_Click()
me.texte = Environ ("Teste")
End Sub

Desta forma da erro e se puser apenas:

Código:

Private Sub Comando3_Click()
Environ ("Teste")
End Sub

não faz nada.

Sinceramente nao entendi como utilizar.

Não é para substituir "Username". Você quer pegar o usuário logado no Windows, certo? Passando o nome "Username" no Environ, você deve conseguir. É "Username" mesmo e não um nome qualquer no lugar dele.

Boas Criquio,

Eu nao quero ir buscar o User, pois isso eu consigo...
Eu queria é que ele me pusse um visto na sheklist que tenho com todos os user's activos.
Para que posteriormente o sistema identificasse que aquele User ja tinha visto aquela SMS e não voltasse a fazer o alerta do mesmo.

(Nao sei se me expliquei)

Boa noite,

Querem que ponho uma BD com algum exemplo do que realmente estava a pensar fazer?

Obrigado

Boa noite,

Aqui vai o Exemplo que tenho tentado explicar.
No proprio Formulário está a explicação.

Obg

Boa tarde,

Estive a ver o seu exemplo, mas não intendi o que ia escrever no campo "texto1"?
Eu ja fiz algo parecido, onde quando eu alterava algum valor numa tabela, todos os usuarios recebiam uma mensagem a avisar que houve uma alteração.
Só tive que na tabela dos users acrescentar um campo Sim/Não onde após alteração o utilizador recebia a mensagem e ao ler o valor do campo Sim/Não passava a -1 e assim eu sabia através de uma consulta quem já tinha lido a mensagem.

Espero que tenha percebido meu raciocino.

Abraço....

Olá Roberto,

Não entendi muito bem, uma vez que, tendo eu mais de 100 pessoas iria quere dizer que a mesma msg seria enviada 100 vezes, certo? ou seja ficava com um registo para cada User (100 registo)


Em relação ao que falo no Texto1, seria neste caso o User de rede automatico, mas como nao pus o codigo deveriamos por um dos nomes da lista e ao carregar no "Ok", o visto na checklist seria posto no User indicado.
Achas que me conseguirias ajudar?

Obrigado

Sim, na sua tabela dos user o campo Sim/Não passaria a -1 quando user visualizasse mensagem e aí você ficaria a visualizar quem já leu mensagem.
Depois bastava criar código onde você repunha valor de cada user que já tivesse lido mensagem para 0.
Caso quisesse ter mais pormenor sobre Data e hora da leitura da mensagem poderia também acrescentar campo Data/hora onde ao passar campo Sim/não para -1 ele também registava a data e hora de leitura.

Assim não aumentava aos registos da sua BD, ele escravaria sempre no mesmo sitio da tabela.

Abraço...

Ola Roberto,

Entendo o que me dizes mas não poderi ter isso dessa forma, uma vez que posso ter varias msg a ser geradas ao mesmo tempo pelos varios supervisores que tenho ao trabalho.
Nao conseguirias ajudar-me com o botão?

Obrigado

Vou tentar alterar seu exemplo para sua necessidade.

Abraço...

Ola Roberto,

Consegui entender que a logica da cheklist funciona por linhas, ou seja,

se utilizarmos o este codigo Me.quemviu.Selected(0) = True ele vai procurar a primeira linha da cheklist e seleciona-la como True.
Agora só temos de tentar encontrar o código que irá encontrar o User na listagem e identificar em que linha se encontra.
Se tiveres novidades avisa.

Bom dia,

Veja isso....

Abraço...

Ola Roberto,

Infelizmente não é bem isso, gostei do Exemplo, mas teria de ter uma tabela para cada Mensagem e a medida que fosse acrescentando novos User's iria ter de os acrescentar em todas as tabelas.
Vou de qualquer forma aproveitar o seu exemplo para testar umas coisas.


Reparei tambem que este valor identificar o ID que tenho na tabela de User's.
Se conseguisses identificar o linha em que este ID se encontra na sheklist, penso que o problema estaria resolvido, o meu problema é que nao entendo ainda muito de VBA e ando aqui a fazer experiencias

Me.quemviu.Value

Veja....

Roberto,

Olhei melhor para o teu exemplo e reparei que realmente se adaptava ao meu caso, mas nao cheguei a testar porque descubri outra forma e bem mais pratica
Nós com a sheklist temos um segundo que campo que é o campo do valor atribuido.
Se enviarmos a informação para esse campo ele seleciona automaticamente o mesmo na Sheklista

Ora vê o exemplo e diz-me o que achas

Onde está exemplo???

Nao sei porque nao carregou, desculpa

Boa tarde,

Após ter dado vista de olhos, parece-me adaptar-se a sua necessidade.
Ainda bem que consegui resolver.
Continuação de bons estudos.

Abraço...

Obrigado,

Até era bastante simples