Boa noite amigos
Estou a criar um relatório filtrado através de um formulário que tem uma caixa de texto desvinculada que será alimentada por uma consulta
Está a funcionar mas o que eu pretendo é quando essa caixa de texto ="" que me dê mensagem de vazio e que para antes de abrir o relatório.
No botão de abrir relatório criado no formulário escrevi a seguinte ordem
If (Forms!RelatóriosEncomenda!ID_Catalogo = "") Then 'tentar identificar caixa de texto e verificar se ela está vazia
MsgBox "Escolha Catálogo", vbCritical, "" 'dá a mensagem
DoCmd.CancelEvent 'cansela a abertura
else
DoCmd.OpenReport "Lista de Encomendas", acViewPreview, "", "", acDialog
End If
Estou a criar um relatório filtrado através de um formulário que tem uma caixa de texto desvinculada que será alimentada por uma consulta
Está a funcionar mas o que eu pretendo é quando essa caixa de texto ="" que me dê mensagem de vazio e que para antes de abrir o relatório.
No botão de abrir relatório criado no formulário escrevi a seguinte ordem
If (Forms!RelatóriosEncomenda!ID_Catalogo = "") Then 'tentar identificar caixa de texto e verificar se ela está vazia
MsgBox "Escolha Catálogo", vbCritical, "" 'dá a mensagem
DoCmd.CancelEvent 'cansela a abertura
else
DoCmd.OpenReport "Lista de Encomendas", acViewPreview, "", "", acDialog
End If