Viva

No formulário em Vista folha de dados, há alguma forma deactivar o rodapé/cabeçalho de modo a poder colocar um botão para imprimir?

Aconrete que eu não tenho e nem quero os menus activos.

Obrigado.

Utilize ctrl + "p" ou crie um menu personalizado.

Ok

Obrigado

Mas eu pretendo imprimir um relatório com base no formulário que estou a ver (em vista de folha de dados).

E dessa forma não consigo. Certo?

Consegue, faça o teste, abre o formulário e pressione ctrl + p

Assim ele imprimie o que está no monitor.

Eu queria era enviar um relatório.

Estranho acabei de fazer o teste em minha máquna e imprime o formulário ativo.

Certo, imprim o formulário activo. Acontece que o que gostava de fazer era imprimir um relatório de acordo com o que está no formulário.

O relatório já está feito.

Ah agora entendi, neste caso voce tera que criar um menu personalizado.

Ok
vou fazer então o menu.

Já agora veja se voçês sabe isto.

O seguinte código abre um form de acordo com uma pesquisa por número.

###########################
stDocName = "tabela_folha_obra"

stLinkCriteria = "[n_obra]=" & Me![n_obra]
DoCmd.Close

n = DCount("[n_obra]", "tbl_folha_obra", stLinkCriteria)
gb_mensagem = "Existem " & n & " registos com o critério " & stLinkCriteria

DoCmd.OpenForm stDocName, acFormDS, , stLinkCriteria

###########################

Como é que eu podia abrir o form de acordo com uma consulta em que o campo n_obra contivesse o que está em Me![n_obra]? E não a totalidade do valor (como está feito).

Obrigado

(ainda não coloquei esta questão no forum)

Deixa eu entender o que vc precisa:

'Aqui voce define o nome da tabela
stDocName = "tabela_folha_obra"

'Aqui vc define o critério , voce esta passando para o criterio exatamente o que esta em Me![n_obra]!
stLinkCriteria = "[n_obra]=" & Me![n_obra]

'Aqui não entendi a razão deste close
DoCmd.Close

'Aqui vc conta o numero de registros existentes com este critério e passa para n
n = DCount("[n_obra]", "tbl_folha_obra", stLinkCriteria)

'mensagem
gb_mensagem = "Existem " & n & " registos com o critério " & stLinkCriteria

'Abre o formulário com o critério.
DoCmd.OpenForm stDocName, acFormDS, , stLinkCriteria

ou seja ele não traz a totalidade e sim o valor de Me![n_obra], não entendi sua dúvida!

Então vamos ver se explico melhor.

Da forma como está se digitar 56 na caixa de texto ele vai abrir um form com todos os registos com o n_obra=56. Logo não abre o registo que tem o n_obra = 567.

Eu queria que mostrasse todos os registo que têm 56 no seu n_obra. Teria que mostrar o 56, 0 567, o 2567, etc...

Numa consulta/query eu colocaria assim no critério: Como "*" & [Digite o(s) caractere(s): ] & "*"

Obrigado