Olá amigos, gostaria de ajuda para montar um critério para abertura de relatório onde eu poderia escolher a impressão de um item ou todos.
agradeço a colaboração
agradeço a colaboração
Private Sub btnVerReport_Click()
'ahteixeira 2016 - MaximoAccess
'verifica se foi escolhido o campo
If Len(Me.cboProduto.Column(0) & "") <> 0 Then
'se sim aplica o filtro
DoCmd.OpenReport "relListagemProdutos", acViewPreview, , "Codigo = " & Me.cboProduto.Column(0)
Else
'caso o campo nao tenha nada, não aplica filtro
DoCmd.OpenReport "relListagemProdutos", acViewPreview
End If
End Sub