[Resolvido]Impressão de carteirinhas para usuários de biblioteca

Boa tarde!

Primeiramente, gostaria de agradecer a todos que postam aqui, seja por terem alguma dúvida, seja para solucionar algum problema.
Já faz algum tempo que pesquiso aqui e meu pequeno projeto está ganhando forma graças a vocês.

Contudo, "empaquei" neste ponto.
O banco de dados será para gerenciar uma biblioteca escolar. O que eu gostaria de fazer é emitir várias carteirinhas de uma vez só, a partir de um formulário. O que ocorre é que não consigo filtrá-lo neste ponto.

Vejam o código:

Dim sql As String
Dim alunos As String
Dim varItm As Variant


   alunos = ""
   For Each varItm In Combinação0.ItemsSelected
       alunos = alunos & Combinação0.ItemData(varItm) & ","
   Next varItm
   alunos = Left(alunos, Len(alunos) - 1)
   
   sql = " SELECT tblEstudantes.CodigoEstudante, tblEstudantes.Nome, tblEstudantes.[Data de Nascimento]," & _
         " tblEstudantes.Endereco, tblEstudantes.Telefone, tblEstudantes.Serie, tblEstudantes.Ativo" & _
           " FROM tblEstudantes WHERE (((tblEstudantes.Ativo)=true)) "
   
   DoCmd.OpenReport "RptCarteirinha", acViewPreview, , sql


Eu sei que há vários problemas aqui. Até agora, não consegui relacionar a variável "alunos" com a consulta.
Provavelmente, eu já me deparei com a resposta, mas não consigo identificar. Estou até meio "zonza", rsrs.

Se vocês puderem ajudar, agradeço muito.

Bem vinda ao Forum.

Seria mais prático postar parte do bd para quem interessar dar uma ajuda mais rápida.

Abraços

Dá uma olhada nesse exemplo do colega Carlos Moura


https://www.dropbox.com/s/oye6pdhs20lvgr2/etiquetas.zip?dl=0



Bons estudos

Muito obrigada!
Este exemplo me ajudou muito mesmo. Consegui aplicá-lo no meu projeto ou seja, resolveu o meu problema.
Contudo, sem querer abusar, gostaria de colocar uma propriedade a mais. Como posso fazer para o multiselect funcionar sem usar Ctrl/Shift?
O usuário iria selecionar item a item com o clique do mouse.

O modelo q você mandou seleciona com o código abaixo:

Public Sub SelecaoMultiplaR(cmb As Control, sCampo As String, _
NomeRel As String)
'Para abrir Formulários ou Relatorios com valores selecionados
'Autor: Carlos Moura em 10/08/98 e-mail: crpmoura@ig.com.br
'Num formulario com uma caixa de seleção múltipla

Dim varItem As Variant, strList As String, strWhere As String

With cmb
   For Each varItem In .ItemsSelected
   'Aqui você concatena do jeito que quiser
   'Para valor campo string & "'" & ",'"
   'Para valor campo numerico & ","
   
   strList = strList & .Column(0, varItem) & ","
   
   Next varItem
End With
   'Para valor campo string ('" & strList & "')
   'Para valor campo numerico (" & strList & ")
   strWhere = sCampo & " In (" & strList & ")"
   DoCmd.OpenReport NomeRel, acPreview, , strWhere
End Sub

Se continuar sendo necessário, posso postar o bd...

Obrigada, novamente.

Vou pesquisar nos meus arquivos acho tenho uma solução nesses moldes.

a questão é bem simples, vá em propriedades da caixa de listagem, na Aba Outra em Seleções Múltiplas altere de estendida para simples.

Não precisa de código algum, srssrsrrrs.


Abraços,

hahaha
muito bom! deu certo
obrigada!

Blz o forum agradece o retorno


Abraços