Adding pictures on a switchboard

[weazer via AccessMonster.com]

I am currently using Access97 and used the switchboard manager to create my
switchboard.

My problem is I have two switchboards - How do I get different pictures on
the switchboards?

The same picture is showing up on each switchboard. I figured out how to
change the titles of each switchboard, but I am at a loss on how to get
different pictures.

All advice will be appreciated.

 

[fredg]

I am currently using Access97 and used the switchboard manager to create my
switchboard.

My problem is I have two switchboards - How do I get different pictures on
the switchboards?

The same picture is showing up on each switchboard. I figured out how to
change the titles of each switchboard, but I am at a loss on how to get
different pictures.

All advice will be appreciated.

Add the following code just before the
rst.Close
line of the Sub FillOptions() sub routine.

If you have just a 2 page menu:
(Watch out for line wrap)

If Me.SwitchboardID = 2 Then
Me.Picture = "C:\Program Files\Microsoft
Office\Office10\Bitmaps\Dbwiz\Ledger.GIF"
Else
Me.Picture = "C:\Program Files\Microsoft
Office\Office10\Bitmaps\Dbwiz\INVENTRY.GIF"
End If

Change the path to whatever folder your pictures are in.

 

[weazer via AccessMonster.com]

Thanks for your prompt reply.

I could not find the Sub FillOptions() sub routine. Could you tell me where I
would find it?

Thanks again for your help.

I am currently using Access97 and used the switchboard manager to create my
switchboard.

[quoted text clipped - 7 lines]

All advice will be appreciated.

Add the following code just before the
rst.Close
line of the Sub FillOptions() sub routine.

If you have just a 2 page menu:
(Watch out for line wrap)

If Me.SwitchboardID = 2 Then
Me.Picture = "C:\Program Files\Microsoft
Office\Office10\Bitmaps\Dbwiz\Ledger.GIF"
Else
Me.Picture = "C:\Program Files\Microsoft
Office\Office10\Bitmaps\Dbwiz\INVENTRY.GIF"
End If

Change the path to whatever folder your pictures are in.

 

[fredg]

Thanks for your prompt reply.

I could not find the Sub FillOptions() sub routine. Could you tell me where I
would find it?

Thanks again for your help.

I am currently using Access97 and used the switchboard manager to create my
switchboard.

[quoted text clipped - 7 lines]

All advice will be appreciated.

Add the following code just before the
rst.Close
line of the Sub FillOptions() sub routine.

If you have just a 2 page menu:
(Watch out for line wrap)

If Me.SwitchboardID = 2 Then
Me.Picture = "C:\Program Files\Microsoft
Office\Office10\Bitmaps\Dbwiz\Ledger.GIF"
Else
Me.Picture = "C:\Program Files\Microsoft
Office\Office10\Bitmaps\Dbwiz\INVENTRY.GIF"
End If

Change the path to whatever folder your pictures are in.

Open the Switchboard in Design View.
Click on View + Code.
The Sub FillOptions() is the 4th sub down.

Private Sub FillOptons()
' Fill in the options for this switchboard page.

' The number of buttons on the form.
Const conNumButtons = 8

Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As Integer
etc.....

 

[weazer via AccessMonster.com]

Now I see it.

Thanks again for your help - exactly what I needed.

Thanks for your prompt reply.

[quoted text clipped - 25 lines]
Open the Switchboard in Design View.
Click on View + Code.
The Sub FillOptions() is the 4th sub down.

Private Sub FillOptons()
' Fill in the options for this switchboard page.

' The number of buttons on the form.
Const conNumButtons = 8

Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As Integer
etc.....

 

[weazer via AccessMonster.com]

I have a few more questions.
When I put the code in last night, it looked like it was working and then
this morning I noticed that when clicking the button on the main switchboard
to go to the second switchboard the picture on the first switchboard was
still on the screen. If I took the outline of the switchboard and moved it up
I noticed that the second picture was underneath. So even though the
switchboards were changing properly the pictures were not. Also, is there any
way to change the size and position where the pictures show on each
switchboard.

I hope this makes sense and thanks for your patience - I am new to Access.

Thanks for your prompt reply.

[quoted text clipped - 25 lines]
Open the Switchboard in Design View.
Click on View + Code.
The Sub FillOptions() is the 4th sub down.

Private Sub FillOptons()
' Fill in the options for this switchboard page.

' The number of buttons on the form.
Const conNumButtons = 8

Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As Integer
etc.....

 

[fredg]

I have a few more questions.
When I put the code in last night, it looked like it was working and then
this morning I noticed that when clicking the button on the main switchboard
to go to the second switchboard the picture on the first switchboard was
still on the screen. If I took the outline of the switchboard and moved it up
I noticed that the second picture was underneath. So even though the
switchboards were changing properly the pictures were not. Also, is there any
way to change the size and position where the pictures show on each
switchboard.

I hope this makes sense and thanks for your patience - I am new to Access.

Thanks for your prompt reply.

[quoted text clipped - 25 lines]

Change the path to whatever folder your pictures are in.

Open the Switchboard in Design View.
Click on View + Code.
The Sub FillOptions() is the 4th sub down.

Private Sub FillOptons()
' Fill in the options for this switchboard page.

' The number of buttons on the form.
Const conNumButtons = 8

Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As Integer
etc.....

If you are still having a problem with this, you can set the Picture
Size Mode, Picture Alignment and Picture Tiling properties to position
your picture on the form.

The code I gave you assumed just 2 switchboard pages. If you have more
then 2 pages, you will need to modify the If.. Then .. Else to
include those other pages.