Error while switching forms

[Bradex]

I have 9 pages in a tab control.

I use this code for the Next page button: Me.TabCtl0.Value = (Me.TabCtl0.Value + 1) Mod 9
I use this code for the Previous page button: Me.TabCtl0.Value = (Me.TabCtl0.Value - 1) Mod 9

The Next page button works flawlessly in that, if I click the Next page button from Page 9, it automatically goes to Page 1. However, if I click the Previous page button from Page 1, I get this error: Run-time error 2101: The setting you entered isn't valid for this property.

Can somebody correct my mistake!



Thanks!

[RuralGuy]

What would you expect [(Me.TabCtl0.Value -1) Mod 9] to yield when Me.TabCtl0.Value = 1?

[Bradex]

I want it to go to Page 9 when I click 'Previous page' from Page 1.

[RuralGuy]

I know what you want to accomplish. Mod 9 will not get you there. You will probably end up using an If Else End If structure.

[Bradex]

I am not that well versed with access. In fact, this is the first database I have created.

Could you please write down the entire line of the code here.

Thanks!

[Bradex]

I don't get it. If the same thing is possible with the next button (switching from Page 9 to Page 1) why am I not able to it with the Previous button (switching from Page 1 to Page 9). If Mod does not work, surely there must be some other way?

[RuralGuy]

If Me.TabCtl0.Value = 1 Then
   Me.TabCtl0.Value = 9
Else
   Me.TabCtl0.Value = Me.TabCtl0.Value -1
End If

[Bradex]

Where should I paste it. Pasting it just below the previous code like this did not work:

Private Sub Command688_Click()
Me.TabCtl0.Value = (Me.TabCtl0.Value - 1) Mod 9
If Me.TabCtl0.Value = 1 Then
   Me.TabCtl0.Value = 9
Else
   Me.TabCtl0.Value = Me.TabCtl0.Value - 1
End If
End Sub

EDIT: Deleting the line

Me.TabCtl0.Value = (Me.TabCtl0.Value - 1) Mod 9

did not help either

[RuralGuy]

Assuming Command688 is the "Previous" button then:

Private Sub Command688_Click()
    If Me.TabCtl0.Value = 1 Then
      Me.TabCtl0.Value = 9
   Else
      Me.TabCtl0.Value = Me.TabCtl0.Value - 1
   End If
End Sub

Poor name for the control BTW.

[Bradex]

This code is giving the same run time error when I press the Previous button from Page 1 and 2. In the other pages, it works fine. I am not able to understand why.

Could you please clear this doubt as well:
Are controls to be renamed after creating them? Is there a convention for that?
Why should I rename a control? I can easily find the name of the control in the Property Sheet.

[ssanfu]

It is along the line of being to easily read and understand the name.
What is 23.100.122.175? If you type that IP address into a browser, it will display the Microsoft site. Microsoft.com is a lot easier to understand than the IP address.

Looking through code, would it be easier to know what the code links to by reading "Command33" or "btnSave" or "cmdQuit"? Without having to refer back to the form?

What about "Combo12", "Combo14", "Combo16"? Object names like that are a real PITA when trying to trace code!

This code is giving the same run time error when I press the Previous button from Page 1 and 2. In the other pages, it works fine. I am not able to understand why.

In design view, open the properties sheet. click on the first tab. In the properties sheet, click on the Format tab. Look for the property "Page Index".
Clicking on the tab control tabs, do the indexes go from 0 to 9 or 0 to 8?

The code RuralGuy provided works in my form.

[Bradex]

Thanks for the explanation. Now, I understand.

Page Index does go from 0 to 8 for the 9 pages.

[Bradex]

I found the answer!

The number 9 had to be replaced with 8 as access counts my 9th page as 8.

[RuralGuy]

@Steve Thanks for jumping in; I had an appointment and was gone for a while. Good explanation and Bradex has solved the issue. I think that's terrific! Good all the way around.

[Bradex]

Thanks a ton both of you guys! You both were awesome!