Powerpoint to Access (wanna write it, please?)

I have users that need to watch mandatory Powerpoint shows. They always email me when they are done and I go into an Access db and fill in their info. Instead I want to create a submit form at the end that does this for me.

Can someone create a small access database with a couple feilds and a powerpoint slide that has some feilds and a submit button. So when you hit submit the data gets sent to the access database... (this is basically accounting for everyone that watches the slide show).

Then I can use that code you used to connect to the db and start working with it. Thanks! :please:

vonoventwin:

I am not an expert in PowerPoint, Access, or Visual Basic, but I think you would have better luck if you wrote a Visual Basic application and had you PowerPoint presentation run within the Visual Basic application. Then you could use VB to interact with an Access database.

I'm not sure, but I don't think you will be able to get information from a PowerPoiint slide directly into Access.

I did a little searching and all I could come up with is this link:
http://www.microsoft.com/downloads/d...DisplayLang=en
but I don't think that will really solve your problem.

Good Luck

I isnt too difficult. I would do it in PPT VBA (I have done similar tasks before).

IE. Have a button on the last slide, the user clicks it, thier 'info' is is sent over to an Access table.

vonoventwin, it is generaly custom for you to attempt the task, then ask for help when you get stuck.

So, knock up a dummy slide show (must be .ppt - so it can be editied) with a ComandButton and drop in some code to access a DB Table.

Also, you need to identify what the target OS is (or multiple). What is 'thier info'?

I would never ask without trying: Looks good but doesn't work. Doesn't do anything when I hit submit, and yes I am adding a SSN that is already inside the DB.

VB Code:

Private Sub CommandButton1_Click()
Dim DB As database
Dim Records As recordset
 
Set DB = OpenDatabase("C:\Documents and Settings\brad.vonoven\Desktop\training.mdb")
Set Records = DB.OpenRecordset("training")
 
Do Until Records.EOF
    'Check Record Field
    If Records("SSN") = "Me.TextBox3.Value" Then
         'EDIT IT
         Records.edit
             Records("LOAC1") = Format(Now, "mm/dd/yyyy")
         Records.Update
        Exit Do
 
   End If
   'Critical or it becomes an infinate loop
   Records.movenext
Loop
 
Records.Close
DB.Close
End Sub