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
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
Última edição por Helder Milhome em 5/7/2023, 19:27, editado 1 vez(es)