Multipla seleção em caixa de cobinação desvinculada

Boas,

Tenho um formulário de pesquisa com várias caixas de combinação desvinculadas, numa delas queria que fosse possível multiplas seleções, mas não estou a encontrar a forma

na caixa de combinação "codausencia" queria selecionar vários códigos ao mesmo tempo

José Silva

As caixas de combinação não tem seleções múltiplas

Somente as caixas de listagem tem essa propriedade,
que está na aba outra, na folha de propriedades.

{ }'s

Balem

Olá Noobezinho,

Agradeço desde já a atenção dispensada

alterei para caixa de listagem mas ao clicar não assume esses dados na consulta da lista em que tenho o seguinte critério

Como [Formulários]![frmAusenciasConsulta]![CodAusencia]

Atenciosamente

JS

Precisaria ver parte do teu projeto com as tabelas, formulário e afins para analisar.


Balem

Olá Noobezinho,

Separei os modulos que interessam para este tema, e por questões de protecção de dados, alterei os nomes dos colaboradores

a ideia seria poder fazer múltiplas selecções nos quatro campos que identifico e que podem conter várias seleções cada um deles

Empresa
Geografia
Area Processamento
CodAusencia

Agradeço o interesse e a ajuda no conhecimento de Mestre

Boa tarde

+ ou - isto ?

Olá Boa Noite, Assis,

Isso é o que já faz actualmente, mas o que pretendo e já entendido pelo Mestre Noobezinho e é alterar para caixa de listagem e não sei como fazer

Quero seleccionar vários codigos de ausencia ao mesmo tempo e da forma que tenho só faz um codigo de cada vez

no exemplo queria seleccionar o codigo ausencia 6000, o 6002 e o 9100, da forma que está só seleciona um de cada vez (ver imagem anexa)

O mesmo acontece se quiser seleccionar varias empresas ou varias areas de processamento ou geografias

Jose

Aqui nesse TÓPICO  tem exatamente o que precisa>

{ }'s

Balem

Noobezinho,

muito obrigado, vou estudar e adaptar à minha situação

José Silva

Ótimo

Caso necessário, é só voltar a esse tópico e retirar o Resolvido.

Boa sorte

Balem

Boas, Noobezinho,
de novo ao tema,

Tentei adaptar o que sugeriu no tópico que indicou do Mestre JPaulo, mas não dá para o que pretendo, ou então não entendi
para tornar mais simples, vejamos a figura da mensagem nº 1, pretendo na caixa de combinação seleccionar os os códigos à escolha exemplo 6007, 6010, 6501, 6502, da forma que está só posso seleccionar um de cada vez

já referiu que tem de ser por caixa de listagem e é isso que ainda não consegui

quero, onde tem a caixa de combinação para o Tipo Ausencia, colocar uma caixa de listagem onde possa escolher vários códigos a apresentar, e isso ainda não consegui

JS

Jose

Clicando com o botão direito na caixa de combinação, tem a opção Alterar para, escolha caixa de listagem

Nessa caixa coloque a consulta que deseja, e na folha de propriedade, na aba OUTRA, escolha

Seleções Múltiplas = Sim.

Após selecionar os registros nessa caixa, terá que fazer um loop  For - Next entre os registros selecionados

para popular o controle que deseja.

{ }'s

Olá, Noobezinho,

A caixa de listagem já tinha feito, o que falta é como fazer o código

tenho andado na procura pelo forum a ver se encontro algo parecido para testar pois não sei nada de VB

Jose

A função a seguir deve ser colocada em um módulo básico.

Estude o código abaixo e  adapte-o  no teu projeto.

Chame a função no evento após atualizar da listbox

assim:
selNomes

{}'s

Código:


Function selNomes()
 Dim frm As Form, ctl As Control
 Dim varItm As Variant, intI As Integer
 Set frm = Forms!frm_Func ' nome do fumulário onde está a listbox
 Set ctl = frm!lst_fun          'nome da listbox
 
  
 For Each varItm In ctl.ItemsSelected
     For intI = 0 To ctl.ColumnCount - 1
         Debug.Print ctl.Column(intI, varItm)
     Next intI
     Debug.Print
 Next varItm
  
End Function


Olá Noobezinho,

Coloquei o modulo

assim
Function selNomes()
    Dim frm As Form, ctl As Control
    Dim varItm As Variant, intI As Integer
    Set frm = Forms!frm_Func!frmAusenciasConsulta ' nome do fumulário onde está a listbox
    Set ctl = frm!lst_fun!CodAusencia          'nome da listbox
   
     
    For Each varItm In ctl.ItemsSelected
        For intI = 0 To ctl.ColumnCount - 1
            Debug.Print ctl.Column(intI, varItm)
        Next intI
        Debug.Print
    Next varItm
     
   End Function

Na caixa de listagem

Private Sub CodAusencia_AfterUpdate()
Function selNomes()

End Function

mas aparece o seguinte erro

Mano, precisa ler mais sobre os controles.

Veja que Forms!frm_Func é o nome do meu formulário assim como
frm!lst_fun é no nome da listbox dentro do meu form.

Esse é o teu código:

   Set frm = frmAusenciasConsulta                             ' nome do fumulário onde está a listbox
   Set ctl = frm!FALTA O NOME DA TUA LISTBOX          'nome da listbox  

Na imagem

Veja que uma Function termina com End Function
e sub termina com End Sub

O Access está avisando que a tua private sub

Está sem o End Sub

Poxa! é só olhar mais abaixo que tem outra sub terminando certo.
era só ver que a que está selecionada não tem.

Tem que aprender mais sobre VBA amigo.

Olá Noobezinho,

Só dei conta depois de já ter enviado, mas como alterei e continuou dando o mesmo erro, fiquei baralhado

alterei conforme disse mas matem o mesmo erro

anexei para ver que dá o mesmo erro

JS

Meu amigo
Explique o funcionamento do teu projeto, pois até eu fiquei perdido nele.
Me parece que  quer fazer todas as operações em um só formulário, o que é impossível.

Na consulta colocou  agrupar em todas as colunas, conclusão : não vai ser possível, pois
Uma coluna(campo da tabela) vai entrar em conflito com outra(s).
Se coloca data Geral que é data + horário, o Access irá procurar  agrupar todas as datas idênticas inclusive com os segundos,
e vai encontrar somente um registro para agrupar. retornando assim, todos os registros.
vc tem um campo datainicial e outro datafinal colocar aquele expressão somente na data final não funciona.
coloque cada parte em seu campo respectivo.

Jose, clique para abrir:

Leia sobre consultas, precisa entender sobre as linhas Total, Critério e Ou.

O código que enviei, nem colocou onde deveria, pois o nome da listBox (Caixa de combinação) está errado

Set ctl = CodAusencia         'nome da listbox

Mas não irá funcionar, porque a consulta que fez tem muitos campos desnecessários.
foque na tabela tbAusências.

Por último:
O Access é um banco de dados relacional, ou seja deve ter relacionamento entre as tabelas.
O teu aplicativo não tem.
Alguns nomes são diferentes nos Access do Brasil e de Portugal, vou escrever como é aqui.

Para fazer o relacionamento, clique na aba Ferramenta de banco de dados e no botão Relações.

Bem é o que posso fazer para te ajudar no momento.

{ }'s

Olá Noobezinho,

Me envergonhou agora , mas vou meter mãos ao trabalho, estudar os temas que referiu e ver até onde serei capaz

Voltarei

Obrigado por ensinar a pescar

JS

É isso mesmo, meu amigo

Ninguém nasceu sabendo, e nunca saberá tudo.

A vida é um eterno aprendizado, pra em quer aprender.

Eu programava em clipper quando conheci o MSAccess

Fiz um sistema para clínica Veterinária, estudando somente um livro

chamado A bíblia do MSAccess que comprei na livraria, a internet estava gatinhando ainda.

Esse sistema durou mais de 15 anos até onde sei, pois mudei de cidade, não tive mais contato

com a clínica.

Se pretende programar, meu amigo, meta a cara nos estudos, não vai se arrepender.

{ }'s

Balem