[Resolvido]Condicao if dentro do relatorio

Boa noite todos

Estou tentando fazer um relatório com a condição SE

assim:
no meu form que é uma tela de impressao
tem uma seleção
marcada é verdadeiro
desmarcada é falso
no relatorio tem esse campo
="BOM PARA   " & [DataBomPara]
quando verdadeiro ele esta ativo visivel
enabled.true
anabled.false


   If Me.BomPara = True Then
   Me.txtBomPara.Enabled = True
   End If

só que dar erro com a seleção marcada --  Método desconhecido ou não encontrado

só que: quando a opção estar desmarcada imprime prefeito
sem erro, mais quando esta verdadeiro dar esse erro .

no botao de imprimir coloquei... que vai direto pra impressão

Private Sub PrintCheque_Click()
On Error GoTo Carnet_Err

   Dim stDocName As String
   Dim stLinkCriteria As String
   
   stDocName = "Rel Imp cheque"
   stLinkCriteria = "[ID_Cheques]=" & Me![ID_Cheques]
   DoCmd.OpenReport stDocName, , , stLinkCriteria

Carnet_Exit:
   Exit Sub

Carnet_Err:
   Exit Sub
   Resume Carnet_Exit


End Sub

agradeço quem poder ajudar
Helder

Boa noite. Estranho, quando o metódo é desconhecido é porque ele está procurando alguma parte do campo ou a função não é para aquele campo. Não vi erro, a a não ser que tenha algum rótulo. Refaça de novo.

Na seção onde se encontra o campo 'txtBomPara' no relatório, teste esta linha no Evento 'Ao Formatar':


Me.txtBomPara.Visible = Me.BomPara

Boa tarde
meu projeto

Olá Helder,

Copie e cole o código abaixo nas respectivas sub do relatório:

Código:



Private Sub Report_Open(Cancel As Integer) ' abre

    '-- Alexandre Fim - 13/07/2023 -----------------------
    If IsNull(Me.BomPara) Then
        Me.BomImp.Visible = False
    Else
        Me.BomImp.Visible = True
    End If
    '-----------------------------------------------------
 
 
    ' If Me.BomPara = True Then
    '    Me.TextoCH.Enabled = True  '=[Formulários]![Dialogo Contas]![Data de Inicio]
    ' Else
    '    'Me.TextoCH.Enabled = False
    ' End If


End Sub

Private Sub Report_Page()
       
    '-- Alexandre Fim - 13/07/2023 -----------------------
    If IsNull(Me.BomPara) Then
        Me.BomImp.Visible = False
    Else
        Me.BomImp.Visible = True
    End If
    '-----------------------------------------------------
       
       
    'If Me.BomPara = True Then
        'Me.BomImp.Enabled = True 'BomImp
        ' Me.TextoCH.Enabled = True
        '=[Formulários]![Frm Cheques]![BomPara]
    'Else
        'Me.TextoCH.Enabled = False
    'End If

End Sub



É isso.
Espero ter ajudado

Att,

Alexandre Fim

Boa tarde Alexandre
Show ...
Deu Certo
Agradeço
Muito obrigado
Helder

Sucesso