[Resolvido]Relatório campos do tipo SIM/NÃO, mostrar somente os setados como SIM

Pessoal, bom dia!

Tenho uma tela onde registro uma OS - Ordem de Serviço!
Nesta tela tenho um sub-formulário onde seto como SIM os itens que devem ser executados nesta OS.

Oque pretendo é imprimir em relatório essa OS, mostrando somente os campos setados como SIM!

Alguém teria uma sugestão para implementar isso?

Bom dia,

Tenta assim:

Crie uma consulta com os campos que irá imprimir
Na consulta, campo Sim/Não na linha (critérios) coloque sim
Crie seu relatório baseado nessa consulta.


Espero ter ajudado.

Bom dia Daniell!

Obrigado pela ajuda, porem o meu caso não é possível resolver assim, pelo fato da minha tabela estar da seguinte forma:

Nº_OS Item_01     Item_02     Item_03      Item_04        ...etc
numero SIM/NÃO SIM/NÃO SIM/NÃO SIM/NÃO



Dessa forma acho que fica um pouco + complicado!

Talvez construir uma consulta , e a partir dai jogar num laço e verificar quais estão como SIM, e depois setar como visível no relatório.

Eu até tentei mas não consegui tirar nada da cachola!! kkkkkkkkkkkk

Estava pensando em algo parecido com isso:

Código:

Prrivate Sub Report_Open(Cancel As Integer)
    Dim Item_Selec As String

    Dim rs2 As DAO.Recordset
    Set rs2 = CurrentDb.OpenRecordset("SELECT * FROM RELATORIO_OS_OF_ITENS where Numero_Ordem = " & Forms!frota_Gerar_OS_OF!Numero_Ordem & ";")
    For I = 3 To rs2.Fields.Count - 1 ' verifica todos os campos do registro

        If rs2.Fields(I) Then ' aqui vai as condições

            'AQUI COLOCARIA O CAMPO QUE ESTIVER COMO SIM, VISIVEL NO RELATORIO, EIS A QUESTÃO!!!

        End If
    Next
End Sub

Vou colocar aqui a solução encontrada! caso sirva opara alguem!

Código:

Private Sub bt_Add_Itens_Click()
    Dim lblNome As control, txtNome As control, bt_Selec As control, bt_Sair As control, rtlNome As control

    Dim FormName As String
    Dim ControlName As String
    Dim ID_Name As String
    Dim Objeto As Variant
    Dim frm As Form
    Dim rs2 As DAO.Recordset
    'Dim Item As Long
    Item = 1

    FormName = "frota_Gerar_OSOF_Selecao_Itens"

    'Deleta o relatorio para recria-lo novamente
    DoCmd.DeleteObject acForm, FormName

    'Cria o formulario Formulário1
    Set frm = CreateForm()
    'Seta desgner
    frm.CloseButton = False
    DoCmd.Restore
    frm.PopUp = True
    frm.Modal = True
    frm.AutoCenter = True
    frm.RecordSelectors = False
    frm.OnLoad = "=RedimensionarTela()"
    frm.Caption = "TESTE"
    frm.NavigationButtons = False
    'Seta o objeto de origem
    'frm.RecordSource = "cns_OSOF_Itens_Ativos"
 
    
    'Fecha e salva o formulario
    DoCmd.Close acForm, "Formulário1", acSaveYes
    'Renomeia o formulario
    DoCmd.Rename FormName, acForm, "Formulário1"
    'Abre o Formulario em modo desgner
    DoCmd.OpenForm FormName, acDesign
    
    'Cria rotulo
    Set rtlNome = CreateControl(FormName, acLabel, , "", "", 50, 100 * Item)
    rtlNome.Caption = "SELECIONE OS ITENS QUE DEVEM ESTAR NA OS/OF"
    rtlNome.FontBold = True
    rtlNome.ForeColor = vbGreen
    rtlNome.FontName = "Tahoma"
    rtlNome.FontSize = 24
    'Largura
    rtlNome.Width = 15000
    'Altura
    rtlNome.Height = 600
    
    'Cria botão sair
    Set bt_Sair = CreateControl(FormName, acCommandButton, , "", "", 15000, 200)
    bt_Sair.Name = "bt_Selec" & "_" & Item
    bt_Sair.OnClick = "=FecharForm()"
    bt_Sair.Caption = "SAIR"
    bt_Sair.FontBold = True
    'Largura
    bt_Sair.Width = 1300
    'Altura
    bt_Sair.Height = 400
    
    'Insere os campos no formulario para seleção
    Set rs2 = CurrentDb.OpenRecordset("SELECT * FROM cns_OSOF_Itens_Ativos;")
    Do While Not rs2.EOF
        Item = Item + 5
        ControlName = rs2!Nome_Itens
        ID_Name = rs2!ID_Itens

        Set txtNome = CreateControl(FormName, acTextBox, , "", "", 10000, 110 * Item)
        Set lblNome = CreateControl(FormName, acLabel, , txtNome.Name, ControlName, 1450, 110 * Item)
        Set bt_Selec = CreateControl(FormName, acCommandButton, , "", "", 100, 110 * Item)

        'Botão para seleção
        bt_Selec.Name = "bt_Selec" & "_" & Item
        'bt_Selec.Name = ID_Name
        bt_Selec.OnClick = "=SelecionaItem()"
        bt_Selec.Caption = "SELECIONAR"
        bt_Selec.FontBold = True
        'Largura
        bt_Selec.Width = 1300
        'Altura
        bt_Selec.Height = 400
        

        'TextBox
        txtNome.Name = ID_Name
        txtNome.SpecialEffect = 0
        txtNome.BorderColor = 0
        txtNome.BorderStyle = 0
        'txtNome.FontBold = True
        'txtNome.ForeColor = vbBlue
        'txtNome.FontName = "Tahoma"
        'txtNome.FontSize = 16
        'Largura
        txtNome.Width = 500
        'Altura
        txtNome.Height = 400

        'Rotulo
        lblNome.SpecialEffect = 0
        lblNome.BorderColor = 0
        lblNome.BorderStyle = 0
        lblNome.FontBold = True
        lblNome.ForeColor = vbBlue
        lblNome.FontName = "Tahoma"
        lblNome.FontSize = 16
        'Largura
        lblNome.Width = 8000
        'Altura
        lblNome.Height = 400

        rs2.MoveNext
    Loop
    rs2.Close
    Set rs2 = Nothing
    
    'Fecha salvando as alterações
    DoCmd.Close acForm, FormName, acSaveYes
    'Abre novamente com configuração realiaza
    DoCmd.OpenForm FormName, acNormal, , , acFormEdit, acDialog

End Sub