[Resolvido]Declarar valor a uma variável/função

Bom dia!
Estou me quebrando aqui pra fazer algo muito simples.
Quero que ao ser clicado um botão "x" em um formulário, a variável adquira um valor "y".
Com esse valor, definirei uma condição "if" para exibição ou não de alguns campos em outro formulário.

Li algum material sobre o VBA só que não compreendi muito bem o básico.
Espero que não seja uma dúvida muito redundante com aquelas que já foram postadas por outros usuários.

Boa tarde Eduhp

No evento do botão
1 - Dclare o tipo da varivel como boolean (True ou False) o padrão é false
Dim Y as Boleean

2 - Depois carregue a varivel com o que deseja
y = True

e na condição

If y = True Then
MsgBox "Verdadeiro
Else
MsgBox "False"
End If

é por ai.


Cumprimentos.

Não estou conseguindo do modo como instruiu.

Reestruturarei minha dúvida:
Tenho vários relatórios. Ao selecionar um relatório, será aberto um formulário. Nesse formulário existem várias opções. Digamos que opções a,b,c,d. O que quero fazer é o seguinte: ao clicar no Relatório 1, quero que os campos b,c,d fiquem desativados; ao clicar no Relatório 2, campos a,c,d desativados; e por ai vai.
O que eu estava fazendo era o seguinte:

No evento Open do relatório, tenho essa linha de código: DoCmd.OpenForm "Relatorios", , , , , acDialog
Para ocultar as opções que não quero, eu estava usando em seguida a linha DoCmd.SetProperty "nome do campo que será invisivel no formulario que foi aberto", acPropertyVisible, False
Não está funcionando dessa maneira. Alguma sugestão?

Post o modelo com os objetos envolvidos para que possamos ver

Cumprimentos.

Quando você diz "modelo" o que quer dizer? O código ou o banco de dados inteiro?
Sou novo e não conheço os jargões.

O Banco mas apenas com as partes que deseja solução.

Cumprimentos.

Fiz um BD pra exemplificar o que quero.

No formulário crie uma caixa texto e coloque o nome txtRecebeFoco

No evento ao abrir do form:

Me.txtRecebeFoco.SetFocus

Porque? porque ao abrir o form se o foco tiver em um dos boõtes ele nao será desabilitado e dará erro,
Esta caixa texto voce pode minimizar ela na largura a te nao ficar visível


No relatorio:


Private Sub Report_Open(Cancel As Integer)
' Abrir formulario e ocultar botões indesejados
DoCmd.OpenForm "Relatorio1"
Forms!Relatorio1!Campo1.Visible = False
Forms!Relatorio1!Campo2.Visible = False
Forms!Relatorio1!Campo3.Visible = False
Forms!Relatorio1.SetFocus


End Sub



Cumprimentos.

Bom, acho que está ocorrendo algum problema ao definir o foco na caixa de texto.
Quando abro o formulário, todos os botões ainda estão lá. Eles só desaparecem quando eu clico no botão que estaria visível.

Ei-lo:

https://dl.dropbox.com/u/26441349/Eduhp_27_06.rar


Cumprimentos.

Já agradeço a ajuda até o momento. Serviu muito bem para o aprendizado.

Ainda não estou conseguindo fazer funcionar e até sei porque, talvez você tenha uma solução.
Ao abrir o relatório, no evento open, ele abre um formulário. Mas no momento que esse formulário é aberto, tenho um código que fecha o relatório, ficando somente o formulário ativo e por isso acredito que a instrução "open" do relatório não seja completada.

Poste o código.


Cumprimentos.

Relatório:
Option Compare Database



Private Sub Report_Close()
DoCmd.Close acForm, "Relatorios"
End Sub


Private Sub Report_Open(Cancel As Integer)
' Set public variable to true to indicate that the report
' is in the Open event
bInReportOpenEvent = True

' Open Formulario relatorios

DoCmd.OpenForm "Relatorios", , , , , acDialog
' Abrir formulario e ocultar botões indesejados
Forms!Relatorios!Comando22.Visible = False
Forms!Relatorios!Comando23.Visible = False
Forms!Relatorios!Comando24.Visible = False
Forms!Relatorios.SetFocus


' Cancel Report if User Clicked the Cancel Button
If IsLoaded("Relatorios") = False Then Cancel = True

' Set public variable to false to indicate that the
' Open event is completed
bInReportOpenEvent = False


End Sub

Private Sub Status_BeforeUpdate(Cancel As Integer)
Expression.Enabled
End Sub


Formulário:
Option Compare Database


Private Sub Cancelar_Click()

DoCmd.Close 'Close Form

End Sub

Private Sub Cancel_Click()
DoCmd.Close 'Close Form
End Sub

Private Sub Comando22_Click()
Me.Visible = False
End Sub

Private Sub Comando23_Click()
Me.Visible = False
End Sub

Private Sub Comando24_Click()
Me.Visible = False
End Sub


Private Sub Form_Open(Cancel As Integer)
If Not bInReportOpenEvent Then
' If we're not called from the report
MsgBox "Para uso do relatório de questões", _
vbOKOnly
Cancel = True
End If
Form_Open_Exit:
Exit Sub

End Sub


Private Sub OK_Click()
Me.Visible = False
End Sub



Módulo:
Option Compare Database
Option Explicit
Public bInReportOpenEvent As Boolean ' Is report in the Open event?

Function IsLoaded(ByVal strFormName As String) As Boolean
' Returns True if the specified form is open in Form view or
' Datasheet view.
Dim oAccessObject As AccessObject
Set oAccessObject = CurrentProject.AllForms(strFormName)
If oAccessObject.IsLoaded Then
If oAccessObject.CurrentView <> acCurViewDesign Then
IsLoaded = True
End If
End If
End Function

Obrigado.

O problema seu está nessa linha em vermelho:

DoCmd.OpenForm "Relatorios", , , , , acDialog
' Abrir formulario e ocultar botões indesejados
Forms!Relatorios!Comando22.Visible = False
Forms!Relatorios!Comando23.Visible = False
Forms!Relatorios!Comando24.Visible = False
Forms!Relatorios.SetFocus

Quando você abre um form em modo AcDialog ele para a execução do Código...
e so retorna a execução após o fechamento do mesmo.

Portanto como está ai, após o comando que abre o form, o restante dos códigos não está sendo executado.

Por isso no meu exemplo eu coloquei o Form com propriedade PoUp = SIm
e retirei o modo AcDialog


Cumprimentos.

Agora entendi!

Ainda não estou familiarizado com essas peculiaridades do access.
Muito obrigado pela ajuda!

Resolvido.

O Fórum Agradece o Retorno.