Access - Slide Show???? 1

[Moss100]

Is it possible to run a slide show from Access. I have built a form that has a photo on it and a timer on it and every x seconds goes to the next record. This has run fine for several years, but it is fairly limited. I would now like to run a 'prettier' slide show, but like the fact that as it is set up now, the underlying query of the form keeps all the records up to date that it displays. Anyone any ideas???? Thanks Mark

 

[danvlas]

Do you store the images in the database? If yes, can you get rid of them?

Or you have the path to them in a table?




Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html

 

[Moss100]

Yes the photos are stored in a linked database. Basically the slide show is to display Houses, along with room details etc..

 

[danvlas]

What's the query that feeds the form? And what's the primary key of the table that contains the picture?


Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html

 

[Moss100]

The query is called 'viewer'

And is based on two table:

Table one is called 'photos' and contains the photos
Table two is called 'details' and contains the property details.

I have no problem running the query and then appling it to a form to get a 'basic' slideshow; but I'm wanting to incoporate the data into a better graphical display . i.e. with records fading into each other and the like. Thanks mark

 

[danvlas]

Well, I don't think you can do that in Access...
Maybe someone else has other ideas.




Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html

 

[fneily]

Just a thought - can you create a Powerpoint .pps slide show with your info? Then from within an Access form, you could have a command button to run the show using coding as follows:

Private Sub Command0_Click()

' Remember to set a reference to the most current available
' Microsoft PowerPoint object library.
Dim appPPt As PowerPoint.Application

' Set a reference to the PowerPoint Application object.
Set appPPt = New PowerPoint.Application

' Display the application.
appPPt.Visible = True

' Open a sample presentation.
appPPt.Presentations.Open "c:\Access_running_powerpoint_test.pps"

' Close the presentation.
'appPPt.ActivePresentation.Close
' Quit PowerPoint
'appPPt.Quit
' Close the object reference.
Set appPPt = Nothing
End Sub

Then you can apply all the transitions and animation within Powerpoint.

 

[JoeAtWork]

I had the same sort of idea as Fneily - putting the slideshow in PowerPoint but controlling it from Access.

I'm not familiar with the PowerPoint object model, but if you can drill down deep enough into it (like you can with Word and Excel) I would expect that you could control just about every aspect of the presentation.

So perhaps you could "program" the slideshow via Access, e.g. enter the paths to the diagrams, specify the text, how it should be presented, etc. I could see how that could be useful if you have dozens of similar slideshows that use common text, pictures etc. You could make updates in one spot and all the slideshows would be updated. Hey, that would be pretty neat!

 

[danvlas]

But first you'll have to be able to get the sql statement from a query...



Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html

 

[fneily]

JoeAtWork, or anyone else, maybe you want something like this - the data is stored in Access and displayed in Powerpoint. First, make sure you click Microsoft PowerPoint 9.0 Object Library and Microsoft Office 9.0 Object Library. (for version 2000. Use the latest libs)

Sub cmdPowerPoint_Click()
Dim db As DAO.Database, rs As DAO.Recordset
Dim ppObj As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
On Error GoTo err_cmdOLEPowerPoint

' Open up a recordset on the Employees table.
Set db = CurrentDb
Set rs = db.OpenRecordset("Employees", dbOpenDynaset)

' Open up an instance of Powerpoint.
Set ppObj = New PowerPoint.Application
Set ppPres = ppObj.Presentations.Add

' Setup the set of slides and populate them with data from the
' set of records.
With ppPres
While Not rs.EOF
With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle)
.Shapes(1).TextFrame.TextRange.Text = "Hi! Page " & rs.AbsolutePosition + 1
.SlideShowTransition.EntryEffect = ppEffectFade
With .Shapes(2).TextFrame.TextRange
.Text = CStr(rs.Fields("LastName").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True
End With
.Shapes(1).TextFrame.TextRange.Characters.Font.Size = 50
End With
rs.MoveNext
Wend
End With

' Run the show.
ppPres.SlideShowSettings.Run

Exit Sub
err_cmdOLEPowerPoint:
MsgBox Err.Number & " " & Err.Description
End Sub

You have to click through with your mouse.

 

[fneily]

Forgot to mention that you then can open a query instead of a table.