[Resolvido]Duvida de como desenvolver esse procedimento ao imprimir....

Bom dia a todos...

Se alguém puder me dar uma luz, fico agradecido.

Olha aí Amigão

No campo selecionar Rua

Bons estudos , se precisar ajuda apita..........

Mas para colocar todos em todos os campos não sei não, como ira ser ?

Boa noite nobre amigo Assis...

Eu consigo imprimir de vários modos conforme a figura lhe mostra, mas preciso por exemplo:
Veja as variações possíveis....

1- selecionar todos os dentistas.
2- selecionar todos os planos.
3- selecionar apenas uma situação.
4= selecionar todos os status.

ou

5- selecionar um dentista.
6- selecionar um plano.
7- selecionar todas as situações
8- selecionar apenas um status.

Veja que as variações de escolha por parte do end user ( utilizador ou usuário ) podem ser muitas.

É nessa escolha que eu estou apanhado aqui. Imagina tipo....uma relação para muitos, é mais ou menos isso que está ocorrendo agora.

Boa noite, Sílvio
Na origem dos dados da caixa de combinação, adapte-a para inserir o "Todos"
p.ex. SELECT Dentista FROM Dentistas para SELECT Dentista FROM Dentistas UNION SELECT 'Todos' FROM Dentistas WHERE ID=1

Boa tarde Alexandre...

Desculpe, mas não captei, entendi, a lógica do teu raciocínio.
Poderia ser mais um pouco claro....por favor ?
Não tenho como eu definir o ID como sendo 1....

Abaixo os dados da TblDentista e a origem da CboDentista...

Boa tarde, Sílvio

Adaptado para dentistas
SELECT IDDentista, NomeDentista FROM tblDentista UNION SELECT '0', 'Todos' FROM tblDentistas WHERE IDDentista=1

Você filtra tudo no formulario com as suas comboboxes e ao carregar o seu relatório para impressão, faz o seguinte;

Código:

Public Sub Atualizar()
'sub para filtragem do relatorio para impressao
'jpaulo 2017-10-09
Dim strFilter As String

If Len(Forms!FrmImpresso.Form!CboDentista & "") > 0 Then
   If Forms!FrmImpresso.Form!CboDentista.Column(0) = "Todos" Then
    strFilter = strFilter & " AND DentistaOculta Like '*'"
   Else
    strFilter = strFilter & " AND DentistaOculta ='" & Forms!FrmImpresso.Form!CboDentista.Column(0) & "'"
   End If
End If

If Len(Forms!FrmImpresso.Form!CboPlano & "") > 0 Then
   If Forms!FrmImpresso.Form!CboPlano.Column(0) = "Todos" Then
    strFilter = strFilter & " AND PlanoOculta Like '*'"
   Else
    strFilter = strFilter & " AND PlanoOculta ='" & Forms!FrmImpresso.Form!CboPlano.Column(0) & "'"
   End If
End If

If Len(Forms!FrmImpresso.Form!CboSituacao & "") > 0 Then
   If Forms!FrmImpresso.Form!CboSituacao.Column(0) = "Todos" Then
    strFilter = strFilter & " AND SituacaoOculta Like '*'"
    Else
   strFilter = strFilter & " AND SituacaoOculta ='" & Forms!FrmImpresso.Form!CboSituacao.Column(0) & "'"
   End If
End If

If Len(Forms!FrmImpresso.Form!CboStatus & "") > 0 Then
   If Forms!FrmImpresso.Form!CboStatus.Column(0) = "Todos" Then
    strFilter = strFilter & " AND StatusOculta Like '*'"
    Else
   strFilter = strFilter & " AND StatusOculta ='" & Forms!FrmImpresso.Form!CboStatus.Column(0) & "'"
   End If
End If

strFilter = Mid(strFilter, 6)

If Len(strFilter) > 0 Then
    Me.Filter = strFilter
    Me.FilterOn = True
Else
    Me.Filter = ""
    Me.FilterOn = False
End If
End Sub

Hoje mesmo estava com esta dificuldade. Havia a necessidade de colocar um "Todos" na primeira linha da caixa de listagem e eu não sabia como.
Sem querer achei a resposta, entrando no tópico para verificar se eu poderia dar uma resposta para a dúvida postada.

Esse é o milagre da internet, da comunicação instantânea e de todos aqui dispostos a ajudar.

Muito obrigado!

Com a ajuda do JPaulo, dou por encerrado o tópico.

Mais uma vez, gratidão a ti, JPaulo.

Fico feliz
Obrigado pelo retorno o fórum agradece.