option Box Select visible data

[Lez]

Hi Guys,

I have a form the an option box that I want to select what data displays
subject to the option box selected. This is the code I am trying but it does
not work and fails, I am targeting correctly ? or is my problem something
else?

Private Sub Report_Open(Cancel As Integer)
With CodeContextObject
If (.[frmEditQuote].[optPayType] = 1) Then
.GroupHeader1.Visible = True
End If
If (.[frmEditQuote].[optPayType] = 1) Then
.GroupHeader2.Visible = False
End If
If (.[frmEditQuote].[optPayType] = 1) Then
.GroupHeader3.Visible = False
End If
End With
End Sub

Many thanks
Lez

 

[fredg]

Hi Guys,

I have a form the an option box that I want to select what data displays
subject to the option box selected. This is the code I am trying but it does
not work and fails, I am targeting correctly ? or is my problem something
else?

Private Sub Report_Open(Cancel As Integer)
With CodeContextObject
If (.[frmEditQuote].[optPayType] = 1) Then
.GroupHeader1.Visible = True
End If
If (.[frmEditQuote].[optPayType] = 1) Then
.GroupHeader2.Visible = False
End If
If (.[frmEditQuote].[optPayType] = 1) Then
.GroupHeader3.Visible = False
End If
End With
End Sub

Many thanks
Lez

All you need do is, in the GroupHeader1 Format event, code:
Cancel = forms!frmEditQuote!optPayType <> 1

In the GroupHeader2 Format event:
Cancel = forms!frmEditQuote!optPayType = 1

In the GroupHeader3 Format event:
Cancel = forms!frmEditQuote!optPayType = 1

What do you want to do if a different option is selected?

Note... The form must be open when this report is run.

 

[Lez]

Hi Fred,

Thanks for that. If option 2 then groupheader2 visible, 1 and 3 to be not
visible

Lez

Hi Guys,

I have a form the an option box that I want to select what data displays
subject to the option box selected. This is the code I am trying but it
does
not work and fails, I am targeting correctly ? or is my problem something
else?

Private Sub Report_Open(Cancel As Integer)
With CodeContextObject
If (.[frmEditQuote].[optPayType] = 1) Then
.GroupHeader1.Visible = True
End If
If (.[frmEditQuote].[optPayType] = 1) Then
.GroupHeader2.Visible = False
End If
If (.[frmEditQuote].[optPayType] = 1) Then
.GroupHeader3.Visible = False
End If
End With
End Sub

Many thanks
Lez

All you need do is, in the GroupHeader1 Format event, code:
Cancel = forms!frmEditQuote!optPayType <> 1

In the GroupHeader2 Format event:
Cancel = forms!frmEditQuote!optPayType = 1

In the GroupHeader3 Format event:
Cancel = forms!frmEditQuote!optPayType = 1

What do you want to do if a different option is selected?

Note... The form must be open when this report is run.

 

[Lez]

Hi Fred, sorted it now, thanks for that it was a real help
Lez

Hi Guys,

I have a form the an option box that I want to select what data displays
subject to the option box selected. This is the code I am trying but it
does
not work and fails, I am targeting correctly ? or is my problem something
else?

Private Sub Report_Open(Cancel As Integer)
With CodeContextObject
If (.[frmEditQuote].[optPayType] = 1) Then
.GroupHeader1.Visible = True
End If
If (.[frmEditQuote].[optPayType] = 1) Then
.GroupHeader2.Visible = False
End If
If (.[frmEditQuote].[optPayType] = 1) Then
.GroupHeader3.Visible = False
End If
End With
End Sub

Many thanks
Lez

All you need do is, in the GroupHeader1 Format event, code:
Cancel = forms!frmEditQuote!optPayType <> 1

In the GroupHeader2 Format event:
Cancel = forms!frmEditQuote!optPayType = 1

In the GroupHeader3 Format event:
Cancel = forms!frmEditQuote!optPayType = 1

What do you want to do if a different option is selected?

Note... The form must be open when this report is run.