MultiPage
Just for clarification, the constants Year(Now) equates to numeric and it
was being compared to text which is always greater than numeric. So your If
statement would be true in every case and therefor would hide each page.
The Format function that Barb suggested changes the year to text so that
apples are being compared to apples and it works.
"LaDdIe" wrote in message
...
Thanks Barb, it did the trick.
"Barb Reinhardt" wrote:
I'm not sure what you mean by a multipage box, but I think I'd try
changing
this
If .Pages(i).Caption Year(Now) Then
to
If .Pages(i).Caption format(date,"yyyy") Then
--
HTH,
Barb Reinhardt
"LaDdIe" wrote:
Hi, i've got a multipage box with tabs that are labelled with years:-
2009;2010;2011.
I'm trying to hide those tabs that are greater than the current year,
I've
started on the code below, but this hides all tabs, unless I change
'If .Pages(i).Caption Year(Now) Then' To
'If .Pages(i).Caption 2010'
With Me.MultiPage1
For i = 0 To .Count - 1
If .Pages(i).Caption Year(Now) Then
.Pages(i).Visible = False
End If
Next i
End With
Any ideas are welcome
|