[Resolvido]Como impedir que certos registros sejam impressos?

Boa tarde.
Tenho um Form com um subForm, e nesse último, eu preciso que os registros mais antigos fiquem inacessiveis para impressão (bloqueados),sendo permitido ao usuário imprimir apenas o registro mais recente... Como faço isso?

Se for num relatório baseado numa consulta, coloque no campo data um critério pegando a maior data, ex: Máx([Data])

Olá, Leandro.
Obrigado, pela resposta, mas eu gostaria que isso funcionasse no Formulario.
Explicando mais detalhadamente:
São 3 Forms "aninhados" : Fml_Paciente .... SubFml_Receita... SubFml_ItensDaReceita.
Quando seleciono o paciente no primeiro Fml aparece o registro mais recente do subFml_Receita e SubFml_ItensDaReceita.
Porem o usuário pode escolher entre as várias receitas do segundo formulario e imprimi-las. Eu Queria que ele pudesse visualizar essas receitas "antigas", mas que só pudesse imprimir a mais recente, ficando as anteriores bloqueadas. Ficou claro? Não sei se consegui explicar o que quero ou se ficou confuso...
Obrigado,
Walter

Ficou claro sim, obrigado.

Me diga duas coisas por favor:

1 - Tem que ser Subform ou podem ser Caixas de Listagem?

2 - Você pode postar o banco ou parte dele?

Bem. É subFomulário mesmo. Já está pronto e funcionando, mas falta esse pequeno detalhe. Estou tentando enviar o Banco, sem os dados dos pacientes por questão de sigilo, entende?

Talvez colocando algum código que faça o seguinte: " Se DataReceita não for a mais recente então desabilita o Comando42 (BotãoImprimir)".

Mas não sei como fazer isso...

Bom dia.
"Inventei" o código a seguir e coloquei no evento AposAtualizar do campo DataReceita: porém o mesmo não resultou em nada...
O que está errado nele?

Private Sub DataReceita_AfterUpdate()
If DataReceita < Max(DataReceita) Then 'Se DataReceita não for a mais recente, então...
Me.Parent.Comando42.Enabled = False 'Desabilita o botão Imprimir
End If
End Sub

Obrigado,
Walter

Olá, bom dia a todos...
Apenas dando um pitaquinho....

Tente esse código


Private Sub Imprimir_Click()
Dim strDocName As String
Dim strFilter As String
strDocName = "Rlt_Receita2" ' nome do seu relatorio
strFilter = "CodigoReceita= Forms!fmlpaciente!CodigoReceita" '
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
End Sub

Olá, Silvio.
Tentei esse código, mas ele não funcionou. Não deu nenhuma mensagem de erro, mas os dados que eu queria bloquear (mais antigos) ficaram acessiveis e foram impressos normalmente...

Faça o seguinte:

a- vincular o seu fml_receita ao fml paciente ...como ?

b- clicar no sub form fml_receita, folha de propriedades, aba dados.

c- na aba dados:
1. vincular campos mestres: CodigoPaciente
2. vincular campos filhos : CodigoReceita
3. salve

fiz aqui e funcionou, tanto que imprime apenas o registro que esta na receita.

Teste e nos informe.

Silvio

Olá Walter,

Paralelamente aos passos do Silvio (que está mais explicativo) dê uma olhada no exemplo que estou lhe enviando.

Nivaldo.

Olá, Silvio.
Tentei vincular os formularios como voce sugeriu mas o sistema não funcionou. Quando escolho o nome do paciente na combo de busca os dados dos subFormularios não carregam os registros correspondentes, os campos ficam vazios. Será que fiz alguma besteira?

Boa tarde, Nivaldo.
Isso mesmo. Funcionou com esse código.
Antes de considerar esse tópico como resolvido, queria que voce me ensinasse o caminho das pedras.

1 -Vi o Código seguinte no evento ao clicar no botão, mas o que ele significa? Como ele funciona?
2 -Você mudou mais algum outro comando ou relacionamento? (porque preciso fazer a mesma coisa no banco original que está com muitos registros...).
------------------------------------
Private Sub Comando42_Click()

On Error GoTo Err_Comando42_Click

Dim stDocName As String
stDocName = "Rlt_Receita2"
If Me.TxtStatus = 1 Then
DoCmd.OpenReport stDocName, acViewPreview
Else
MsgBox "Essa receita não pode ser impressa"
End If
Exit_Comando42_Click:
Exit Sub

Err_Comando42_Click:
MsgBox Err.Description
Resume Exit_Comando42_Click

End Sub

Olá Walter,

Vamos lá:

1) Na Origem Da Linha da Combinação32 inclui um campo chamado Status. Dá uma olhada na estrutura da consulta que você verá as alterações.

2) No Fml-Paciente inclui uma Caixa de Texto chamada TxtStatus.

3) No evento Após Atualizar da combo Combinação32 atualizei o TxtStatus no formulário Fml-Paciente.

4) No evento Ao Clicar do botão Comando42 alterei para o que você já viu.

Qualquer dúvida é só falar.


Nivaldo.

Bom dia, Nivaldo.
Consegui ver códigos, e deu certinho... Fico muito grato pela ajuda.

Queria apenas implementar mais uma melhoria nesse formulário.
Veja que quando seleciono o nome do paciente no Fml_Paciente, no subformulario é carregada a receita mais antiga...
Seria conveniente que carregasse a mais recente.
Tentei colocar na consulta da origem da linha da Combinação32 o critério Máx([DataReceita]), e tentei também colocar o critério Máx([CodigoReceita]), mas ambos não funcionaram.
Pode ver isso prá mim?

Bom dia Walter,

Nesse caso a alteração deve ser feita na Fonte do Registro do Fml_Receita.
Em vez de vincular pela Tbl_Receita, chame o construtor de consulta (clicando nos ...)
coloque os campos na consulta classificando o campo DataReceita como Decrescente.

Deve resolver.

Nivaldo

Desculpe, Nivaldo, mas não consegui entender...
Você falou para alterar a Fonte do Registro do Fml_Receita. Mas na aba Dados do Fml_Receita, em Objeto de Origem ( é o mesmo que Fonte do Registro?) está Fml_Receita, e não Tbl_Receita. Acho que não consegui localizar a Fonte do Registro... Além disso em Objeto de Origem não aparecem os tres pontinhos(...) para fazer a consulta.
Pode clarear prá mim?

Walter,

Você deve estar querendo fazer a alteração dentro do Fml_Paciente.
Abra o Fml_Receita no modo estrutura e faça as alteraçôes.

Para ganhar tempo você pode ainda fazer o seguinte:

Criar um consulta simples da Tbl_Receita e vincular o Fml_Receita a essa consulta.

Nivaldo.

Nivaldo,por favor tenha paciencia comigo...
Veja: Abri o Fml_Receita no modo design e, na aba "Dados" não encontrei onde chamar o Contrutor de Consultas (...).Lá aparecem os seguintes itens:
Objeto de Origem.............. Fml_Receita
Vincular Campos Mestres........CodigoPaciente
Vincular Campos Filho .........CodigoPaciente
Filtro ao Esvaziar Mestre .... Sim
Ativado ...................... Sim
Bloqueado .................... Não

Não estou sabendo onde é a "Fonte do Registro" do Fml_Receita.

Walter

Olá Walter,

Não se preocupe, meu sobrenome é paciência.

Quando você abrir o Fml_Receita no modo desing, clique com o botão direito do mouse para ver a Folha de Propriedades do formulário (clique no quadradinho do canto superior esquerdo). Geralmente quando se abre no modo estrutura já aparece as propriedades do formulário.

O que deve estar acontecendo é que você está clicando no subformulário que está no Fml_Receita e vendo as propriedades do subformulário.

Testa aí e me retorna.

Nivaldo.

Viva!!!
Parabéns Nivaldo.
Consegui fazer como você falou! Ficou beleza. Vou clicar em resolvido. Fico muito agradecido com sua ajuda. Esse Forum realmente é muito bom. Espero nos encontrar-mos em outros tópicos e poder contar com a ajuda do "Nivaldo Paciência".
Um abraço.

Walter

Obrigado Walter pelo retorno.

O fórum agradece.

Nivaldo.